korrekt umgewandelt?
Code: Alles auswählen
zText.s = ~"{\"parse\":\"Kl\\u00e4rung, S\\u00fcden\"}"
iJSON = ParseJSON(#PB_Any, zText)
Debug ComposeJSON(iJSON)
Code: Alles auswählen
zText.s = ~"{\"parse\":\"Kl\\u00e4rung, S\\u00fcden\"}"
iJSON = ParseJSON(#PB_Any, zText)
Debug ComposeJSON(iJSON)
Code: Alles auswählen
zText.s = ~"{\"parse\":\"Kl\\u00e4rung, S\\u00fcden\"}"
MessageRequester("OK", zText)
iJSON = ParseJSON(#PB_Any, zText)
obj = JSONValue(iJSON)
msg$ = ""
If ExamineJSONMembers(obj)
While NextJSONMember(obj)
msg$ + JSONMemberKey(obj) + " = " + GetJSONString(JSONMemberValue(obj)) + #CRLF$
Wend
EndIf
MessageRequester("Fehler", msg$)
MessageRequester("Fehler", ComposeJSON(iJSON))
Code: Alles auswählen
Procedure.s DecodeUnicodeChars(s$)
Protected pos.i, code$, char$
pos = FindString(s$, "\u")
While pos
code$ = Mid(s$, pos, 6)
char$ = Chr(Val("$" + Mid(code$, 3)))
s$ = ReplaceString(s$, code$, char$)
pos = FindString(s$, "\u", pos+1)
Wend
ProcedureReturn s$
EndProcedure
zText.s = ~"{\"parse\":\"Kl\\u00e4rung, S\\u00fcden\"}"
zText = DecodeUnicodeChars(zText)
Debug zText
iJSON = ParseJSON(#PB_Any, zText)
Debug ComposeJSON(iJSON)