Hallo ich bin grade dabei eine Json Pasen für einen Runtime PC in VBS zu erstellen. hierzu habe ich ein Beispiel im Netz gefunden das auf meinen PC Funktioniert.
Jetzt stehe ich aber vor dem Problem das Ganze in TIA zu integrieren.
Die einzelnen Funktionen habe ich angelegt.
Decode
Encodr
ParseArray
ParseObject
ParseString
ScanOnce
SkipWhitespace
Hir ist der gesamte Code
http://demon.tw/my-work/vbs-json.html
Da ich ja in Tia keine Class anlegen kann muss ich ja die globalen Variablen als Interne Variablen anlegen. Genau hier stoße ich auf das Problem
Wie könnte ich dies in in Tia anlegen?
Jetzt stehe ich aber vor dem Problem das Ganze in TIA zu integrieren.
Die einzelnen Funktionen habe ich angelegt.
Decode
Encodr
ParseArray
ParseObject
ParseString
ScanOnce
SkipWhitespace
Hir ist der gesamte Code
http://demon.tw/my-work/vbs-json.html
Da ich ja in Tia keine Class anlegen kann muss ich ja die globalen Variablen als Interne Variablen anlegen. Genau hier stoße ich auf das Problem
Wie könnte ich dies in in Tia anlegen?
Code:
Class VbsJson
Private Whitespace, NumberRegex, StringChunk
Private b, f, r, n, t
Private Sub Class_Initialize
Whitespace = " " & vbTab & vbCr & vbLf
b = ChrW(8)
f = vbFormFeed
r = vbCr
n = vbLf
t = vbTab
Set NumberRegex = New RegExp
NumberRegex.Pattern = "(-?(?:0|[1-9]\d*))(\.\d+)?([eE][-+]?\d+)?"
NumberRegex.Global = False
NumberRegex.MultiLine = True
NumberRegex.IgnoreCase = True
Set StringChunk = New RegExp
StringChunk.Pattern = "([\s\S]*?)([""\\\x00-\x1f])"
StringChunk.Global = False
StringChunk.MultiLine = True
StringChunk.IgnoreCase = True
End Sub