XProfan

- Página 1 -

Jörg
Sellmeyer

Cool - sobald mein Rechner otra vez se ejecuta, werd Yo mich así veces befassen. Mir schwebt una Programa antes, el entonces beliebige json-Objetos z. B. como Treeview anzeigt. Irgendwie bietet el Struktur dafür a, finde Yo.

XProfan X4
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

09.06.2018 ▲

RGH

El algo verbesserten Translates para el HTML-tags en el Quellcodes (s.o.):

set("RegEx", 1)
texto = translate$(texto, "& #40;", "(")
texto = translate$(texto, "& #41;", ")")
texto = translate$(texto, "& #58;", ":")
texto = translate$(texto, "&auml;", "ä")
texto = translate$(texto, "&ouml;", "ö")
texto = translate$(texto, "&uuml;", "ü")
texto = translate$(texto, "&szlig;", "ß")
texto = translate$(texto, "&quot;", "\q")
texto = translate$(texto, "~[b[ -Z^-z]*~]", "// ")
texto = translate$(texto, "~[/b[ -Z^-z]*~]", "")
texto = translate$(texto, "~[code[ -Z^-z]*~]", "")
texto = translate$(texto, "~[/code[ -Z^-z]*~]", "")
texto = translate$(texto, "~[color=[ -Z^-z]*~]", "")
texto = translate$(texto, "~[/color[ -Z^-z]*~]", "")

Saludo
Roland

XProfan X3
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

09.06.2018 ▲

Michael
W.

IF, wir brauchen una verbessertes html_entity_decode(), el entonces auch todos Sonderfälle otra vez entzaubert.
Sind el HexCodes una Klassifizierung?
Oder una weitere ID?

[...b:...0a03fb2d32]WAV-Aufnahme über MCI[.../...b...:...0a03fb2d32]
[...code...:...1...:...0a03fb2d32]...[.../...code...:...1...:...0a03fb2d32]

Alle Sprachen
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

09.06.2018 ▲

RGH

Gerade me está aufgefallen, dass Yo una wichtige JSON-Función en el Ayuda vergessen habe:
js = json("Parse", texto)
Lo se una Json-Objeto de el String texto producido. texto muss una gültiges Json-Objeto en Textform ser.

Damit podría uno el obige Expediente con el Quelltexten auch direkt uso:

var cadena texto = blockread("F:\\Entw\\Profano Projekte\\X4\\quelltexte.json")
texto = "{\qtexte\q:" + texto + "}"
var int js = json("Parse", texto)

El Json-Liste se en el String texto gelesen, en una Json-Objeto gepackt y Parse entonces en el Json-Objeto js eingelesen.

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

10.06.2018 ▲

Michael
W.

wichtige JSON-Función en el Ayuda vergessen

Obwohl Json() sí ya una großer Container es...

Roland kannst Usted entonces auch el
html_entity_decode() y el Gegenstück html_entities()
como Características dazu spendieren? Es en Pascal codiert doch algo flotter.

Beschreibungen son bajo PHP para encontrar.

Alle Sprachen
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

11.06.2018 ▲

Alle Sprachen
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

- Página 2 -

Michael W. (09.06.2018)

Sind el HexCodes una Klassifizierung?
Oder una weitere ID?

Mittlerweile unnötige Überbleibsel de damaligem PHPBB-Sistema, el restlos lejos voluntad könn(t)en.

13.06.2018 ▲

H.Brill

Tal vez podría RGH el Json-Container todavía erweitern.
Was fehlen sería :

Json("RemoveString",...)
Json("ChangeString",...)
Json("RemoveObject",...)
Json("ChangeObject",...)
Json("RemoveList",...)
Json("ChangeList",...)

y vlt. todavía una variables
Json("Find",....)

Interessant wären en efecto todavía Estructuras.

Json("AddStruktur", ...)
Json("RemoveStruktur", ...)
Json("ChangeStruktur",...)

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

14.03.2023 ▲

H.Brill

¡Hola,
Yo ni kleine Merkwürdigkeit beim Hash-Array y
Json entdeckt :

Declarar Largo js, xs, Hash hasharray[]
Declarar String Schluessel, Valor
Cls
js = Crear("Json")
Json("AddString", js, "Beruf", "Bäcker")
Json("AddString", js, "Beruf", "Metzger")
Json("AddString", js, "Beruf", "Schlosser")
hasharray[] = Json("Hash", js)
ForEach hasharray[], Schluessel, Valor
Imprimir Schluessel, "=", Valor
EndFor
Imprimir
Imprimir
xs = Crear("Json")
Json("AddString", xs, "Bäcker", "Beruf")
Json("AddString", xs, "Metzger", "Beruf")
Json("AddString", xs, "Schlosser", "Beruf")
hasharray[] = Json("Hash", xs)
ForEach hasharray[], Schluessel, Valor
Imprimir Valor, "=", Schluessel
EndFor
WaitKey
End

Normalerweise debería sí no gleichen Schlüssel en
Json("AddString", js, [name], cadena)
verwendet voluntad. Funktionieren tut lo aber trotzdem.
El Merkwürdigkeit kommt aber entonces beim Auslesen con
ForEach...EndFor.
El gleichen Schlüssel voluntad todavía aufgelistet, aber el
Werte no todos. Nur el erste gefundene Valor se siempre otra vez
übernommen. Damit lo todavía klappt, puede ser Schlüssel y
Werte simplemente tauschen, así el Schlüssel otra vez einmalig son.
Das puede ser aber auch sólo en cierto Konstellationen hacer.

Ob el nun una Bug es, oder no sei veces dahin gestellt.
Yo denke, como besteht todavía Handlungsbedarf seitens RGH.
Entweder listet ForEach auch todos Werte en oder aber RGH
prüft en Json("AddString", js, [name], cadena), si el Schlüssel
ya disponible es y son entsprechend una Fehlermeldung
oder auch -1 (como en el otro Características) zurück.

Als Workarround restos hier sólo, con Json("Count", js) y uno
Bucle el a überprüfen. Lo debería hier sólo erwähnt voluntad, como
Yo selber gerade en esta 'Falle' getappt bin.

26.03.2023 ▲

Georg
Teles

¡Hola,

scheint tatsächlich una Auslesefehler a ser, porque el Datensätze voluntad en el Expediente korrekt abgespeichert:

js.json

{"Beruf":"Bäcker","Beruf":"Metzger","Beruf":"Schlosser"}

xs.json

{"Bäcker":"Beruf","Metzger":"Beruf","Schlosser":"Beruf"}

Ver código fuente

Declarar Largo js, xs, Hash hasharray[]
Declarar String Schluessel, Valor
Cls
js = Crear("Json")
Json("AddString", js, "Beruf", "Bäcker")
Json("AddString", js, "Beruf", "Metzger")
Json("AddString", js, "Beruf", "Schlosser")
hasharray[] = Json("Hash", js)
Declarar i&
Claro i&
For i&, Json("COUNT", js)'SizeOf(hasharray[])
imprimir i&-1, Json("NAME", js, i&-1), "=", Json("VALUE", js, i&-1)
EndFor
Json("WRITE", js, "js.json")
Imprimir
Imprimir
xs = Crear("Json")
Json("AddString", xs, "Bäcker", "Beruf")
Json("AddString", xs, "Metzger", "Beruf")
Json("AddString", xs, "Schlosser", "Beruf")
hasharray[] = Json("Hash", xs)
ForEach hasharray[], Schluessel, Valor
Imprimir Valor, "=", Schluessel
EndFor
imprimir
imprimir
Claro i&
For i&, Json("COUNT", xs)'SizeOf(hasharray[])
imprimir i&-1, Json("NAME", xs, i&-1), "=", Json("VALUE", xs, i&-1)
EndFor
Json("WRITE", xs, "xs.json")
WaitKey
End

Grüße
Georg

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

26.03.2023 ▲

H.Brill

Gracias para el Bestätigung.
Mit "Auslesefehler " hast du lo genau getroffen.
Mit el Hash-Array o. el ForEach-Bucle ha lo
allerdings nichts a tun :
Hier veces händisch ausgelesen :

Declarar long js, xs
Cls
js = Crear("Json")
Json("AddString", js, "Beruf", "Bäcker")
Json("AddString", js, "Beruf", "Metzger")
Json("AddString", js, "Beruf", "Schlosser")
xs = Crear("Json")
Json("AddString", xs, "Beruf1", "Bäcker")
Json("AddString", xs, "Beruf2", "Metzger")
Json("AddString", xs, "Beruf3", "Schlosser")

WhileLoop 0, Json("Count", js) - 1

    Imprimir Json("GetString", js, "Beruf")

EndWhile

Imprimir

WhileLoop 0, Json("Count", xs) - 1

    Imprimir Json("GetString", xs, Substr$("Beruf1,Beruf2,Beruf3", &LOOP + 1, ","))

EndWhile

Waitkey

Funktioniert beim Objeto js auch no así, como esperado.
Also puede wir lo ya veces a dahin eingrenzen.

26.03.2023 ▲

Georg
Teles

Yo vermute allerdings, dass el erste "Spalte" hier zwangsläufig una "Primärschlüssel" es, ähnlich el SQL Tabla

Das Auslesen vermute Yo es eben después de diesem Primärschlüssel ... Yo kann sólo vermuten, dass el eventuell technisch bedingt es, dass uno el Primärschlüssel irgendwie mappt oder "splittet" oder irgendwie listet, also rápidamente ausliest y dessen Werte como Array zuweist, de otra manera debería uno hingehen y el erste Spalte con uno Bucle durchlaufen y el Werte (hier Key = Schlüssel) sólo una vez einlesen y bestimmen, danach otra vez una Bucle laufen dejar, a dazugehörigen Werte zuzuordnen ... glaub Yo erzähle Schrott.

Auf cada Fall es klar, dass en gleichgenannten Schlüsseln el eben "unikal" ser necesario si uno annimmt, dass el erste Spalte eben como "Primärschlüssel" behandelt voluntad, y nun igual heißen, hier schonmal el Werte una falschen Schlüssel zugeordnet y ser wir haben el bekannten Effekt

aber el kann dir sólo Roland sagen, como tatsächlich hinter el Kulissen es

Alle Sprachen
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

29.03.2023 ▲

H.Brill

Auf cada Fall es irgendwie komisch,
el Schlüssel puede ser auslesen, obwohl ellos
identisch son, bloß el dazu gehörende Werte
no.
Wenn Yo ahora SQL-Tabla lese, el una Primärschlüssel
en z.B. el Namen legt, frage Yo mich aber auch, por qué
el hay funktioniert. Como puede en efecto mehrere z.b. "Maier"
vorkommen y Index funktioniert trotzdem. Es De hecho, el
Vorteil uno solchen DB, daß uno como eben todos "Maier" con
deren Werten sólo uno einzigen SELCT-Anweisung
rausziehen kann.

Jetzt schau mal, como unterschiedlich Hash-Arrays beim
Füllen reagieren. Normalerweise müßte sí jeweils el gleiche
adecuado voluntad :

Declarar long js, hash Person1[], Person2[], Person3[], String key, value
Cls
js = Crear("Json")
Json("AddString", js, "Beruf", "Bäcker")
Json("AddString", js, "Beruf", "Metzger")
Json("AddString", js, "Beruf", "Schlosser")
Person2["Beruf"] = "Bäcker"
Person2["Beruf"] = "Metzger"
Person2["Beruf"] = "Schlosser"
Person3[1, "Beruf"] = "Bäcker"
Person3[2, "Beruf"] = "Metzger"
Person3[3, "Beruf"] = "Schlosser"
Person1[] = Json("Hash", js)
ForEach Person1[], key, value
Imprimir key, value
EndFor
Imprimir "\n"
ForEach Person2[], key, value
Imprimir key, value
EndFor
Imprimir "\n"
ForEach Person3[], key, value
Imprimir key, value
EndFor
Waitkey

Hier müßte uno wissen, welche Método RGH beim Befüllen des
Hash-Array encima JSON (Json("Hash", js) verwendet. Json("GetString",..)
scheint lo veces no a ser.

Como ya dijo, entweder se sólo el erste gefundene
Attribut ausgelesen y dessen Valor o. adecuado, oder
eben todos Schlüssel con el dazu gehörenden Werten.

Alles otro führt früher oder später a Fehlfunktionen en el Programa.

30.03.2023 ▲