Imports System

Imports RestSharp

Imports System.Linq

​

' https://stackoverflow.com/questions/77640297/get-value-from-restsharp-response-headers-with-version-110-2-0-0

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Environment version: " & Environment.Version.ToString())

        Console.WriteLine("RestSharp version: " & GetType(RestSharp.RestResponse).Assembly.FullName)

        Console.WriteLine()

​

        Dim _ServiceClient = new RestClient()

        Dim url = "https://stackoverflow.com/questions/77640297/get-value-from-restsharp-response-headers-with-version-110-2-0-0"

        Dim Request As New RestSharp.RestRequest(url, Method.Get)

        Dim Response As New RestSharp.RestResponse

        Dim SyncToken as string

​

        Response = CType(_ServiceClient.Execute(Request), RestResponse)

        ' FirstOrDefault()?.Value will throw a NullReferenceException because https://stackoverflow.com/ does not include a SYNCTOKEN header in its response.

        ' To avoid that I used the null-conditional operator ?.Value

        SyncToken = Response.Headers.Where(Function(x) x.Name.ToUpper = "SYNCTOKEN").FirstOrDefault()?.Value

​

        Console.WriteLine() 

        ' Using StringComparison.OrdinalIgnoreCase ensures that case-insensitive comparisons are identical across locales.

        ' See e.g. https://stackoverflow.com/questions/15822236/why-does-i-get-replaced-with-%C4%B1 for what can go wrong when using localized case comparisons

        Dim server = Response.Headers.Where(Function(x) x.Name.Equals("SERVER", StringComparison.OrdinalIgnoreCase)).FirstOrDefault()?.Value

        Console.WriteLine("{0} = {1}", SERVER, server) 

​

        Console.WriteLine() 

​

        For Each x in Response.Headers

            Console.WriteLine(x)

        Next

​

    End Sub

End Module