Beiträge von 5yp3r

Danke für die Info.

Ich kenne mich mit JSON nicht aus, und benutze die UDF bzw. nur Teile davon um bei einem TCP Client/Server die Pakete wieder in die richtigen Datentypen zu bringen. Also das ich einfach nur genau das senden kann was gerade ansteht (Array, String, Int, Bool, Binary usw.) und auf der anderen Seite es wieder genauso ankommt.

Hallo,

ich hatte das Problem, das ich bei einem Array das Keyword "default" benutzen wollte. Die UDF behandelt aber nur "null".

Beispiel:

#include <array.au3>
#include "JSON.au3"

Global $g_aArray[5]
$g_aArray[0] = True
$g_aArray[1] = Default
$sInput = InputBox("test", "string") ;test.-,(){[]""}/()\Test
$g_aArray[2] = $sInput
$g_aArray[3] = 34345.5656
$g_aArray[4] = 465364556745684568467846789

_ArrayDisplay($g_aArray)

For $i = 0 To 4
    ConsoleWrite(VarGetType($g_aArray[$i]) & @CRLF)
Next

$sJasonstring = _JSON_Generate($g_aArray)

ConsoleWrite($sJasonstring & @CRLF)

$aNewArray = _JSON_Parse($sJasonstring)

_ArrayDisplay($aNewArray)

For $i = 0 To 4
    ConsoleWrite(VarGetType($aNewArray[$i]) & @CRLF)
Next

Ich habe dann in der UDF bei der Funktion _JSON_Generate noch folgendes eingefügt:

Case IsKeyword($o_Object) = 1 ; Default
$s_JSON_String &= "default"

und bei der Funktion _JSON_Parse den String angepasst:

$s_RE_G_KeyWord = '\G[\x20\r\n\t]*\b(null|default|true|false)\b', _

Jetzt funktioniert mein Beispiel von oben auch ohne Probleme.

Evtl. hilft das anderen oder du willst die Änderung in der UDF anpassen.