VBScript

Keeping Query Params in a Hashtable

Demonstrates how to use a Chilkat Hashtable to hold query params and re-emit as a query param string.

Note: The ToQueryString method was added in Chilkat v9.5.0.92.

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set ht = CreateObject("Chilkat.Hashtable")

' Add name/value pairs from an existing query param string where the values are already URL encoded.
qp = "txt=this%20is%20a%20test&color=blue&fruits=apples%26oranges"
success = ht.AddQueryParams(qp)

' Add some additional name/value pairs.
success = ht.AddStr("name","Jack Sparrow")
success = ht.AddStr("movie","Pirates of the Carribean")

' Iterate over the hash table to show what we have..

set keys = CreateObject("Chilkat.StringTable")
success = ht.GetKeys(keys)
numKeys = keys.Count

i = 0
Do While i < numKeys
    key = keys.StringAt(i)
    val = ht.LookupStr(key)
    outFile.WriteLine(key & " = " & val)
    i = i + 1
Loop

' Output for the above loop:

' color = blue
' name = Jack Sparrow
' fruits = apples&oranges
' txt = this is a test
' movie = Pirates of the Carribean

' Get all name/value pairs as a query parm string with values URL encoded
qp = ht.ToQueryString()
outFile.WriteLine(qp)

' Result:
' color=blue&name=Jack%20Sparrow&fruits=apples%26oranges&txt=this%20is%20a%20test&movie=Pirates%20of%20the%20Carribean

outFile.Close