(VBScript) JSON Hex Encoding

See more JSON Examples

Let's say your JSON contains content that is hex encoded like this: \u05d1\u05d3\u05d9\u05e7

This example shows how to get the decoded string.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

s = "{ ""example"": ""\u05d1\u05d3\u05d9\u05e7"" }"

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")

success = json.Load(s)

' When getting the member data, it is automatically decoded.
outFile.WriteLine("member data: " & json.StringOf("example"))

' Output:
' member data: בדיק

' When getting the full JSON, it remains encoded. This is expected and intentional.
outFile.WriteLine("full JSON: " & json.Emit())

' Output:
' full JSON: {"example":"\u05d1\u05d3\u05d9\u05e7"}

' To get the full JSON without the encoding, you can decode manually.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")
success = json.EmitSb(sb)
' The hex encoding used by JSON is utf-8.
success = sb.Decode("json","utf-8")

outFile.WriteLine(sb.GetAsString())

' Output:
' {"example":"בדיק"}

outFile.Close