Beim Versuch den Code in der x86-Version auszuführen, kommt folgende Fehlermeldung (egal ob im ASCII- oder im Unicode-Modus):
getestet unter Windows 10PB-IDE hat geschrieben:Kann die Datei nicht mit dem internen Debugger ausführen. Bitte versuchen Sie es mit dem eigenständigen Debugger.
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
Text$ = "Kl\u00e4rung, S\u00fcden"
Text$ = DecodeUnicodeChars(Text$)
Debug Text$