Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB7
Expertise: Intermediate
Mar 10, 2003



Building the Right Environment to Support AI, Machine Learning and Deep Learning

GetUrlParameters - Retrieving the key-value pairs from the specified url

' Returns a hashtable with the key-value pairs extracted from the querystring 
' of the specified url

'   Dim ht As Hashtable = GetUrlParameters
' ("http://www.mysite.com?param1=123&param2=&param3=234")
'   ' print the key=value pairs to the console window
'   Dim myEnumerator As IDictionaryEnumerator = ht.GetEnumerator()
'   While myEnumerator.MoveNext()
'      Console.WriteLine("{0}: {1}", myEnumerator.Key, myEnumerator.Value)
'   End While
'   ' print the value of a specified param, named param3
'   Console.WriteLine("Param3: " & ht("param3"))

Function GetUrlParameters(ByVal url As String) As Hashtable
    Dim ht As New Hashtable()
    ' consider only the querystring, that's the part after the ? char
    Dim qsStart As Integer = url.IndexOf("?")
    If qsStart > -1 Then url = url.Substring(qsStart + 1)
    ' split the querystring with the & char
    Dim params() As String = url.Split(New Char() {"&"c})
    Dim param As String
    ' for each param extract the param name (the part before the =) and the 
    ' value
    For Each param In params
        Dim i As Integer = param.IndexOf("="c)
        If i > -1 Then
            ht.Add(param.Substring(0, i), param.Substring(i + 1))
        End If
    Return ht
End Function
Marco Bellinaso
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date