XProfan

- page 1 -

Jörg
Sellmeyer

Cool - sobald mon calculateur wieder fonctionne, werd je mich avec cela la fois befassen. Mir schwebt un Programme avant, cela ensuite beliebige json-Objekte z. B. comme Treeview anzeigt. Irgendwie bietet sich qui Struktur pour à, finde je.

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

09.06.2018 ▲

RGH

qui quelque chose verbesserten Translates pour qui HTML-tags dans den Quellcodes (s.o.):

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

Salut
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 un verbessertes html_entity_decode(), cela ensuite aussi alle Sonderfälle wieder entzaubert.
sommes qui HexCodes une Klassifizierung?
ou bien une 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

justement c'est moi aufgefallen, dass je une wichtige JSON-Funktion dans qui Aider oublier qc habe:
js = json("Parse", text)
Es wird un Json-objet aus dem String text erzeugt. text muss un gültiges Json-objet dans Textform son.

avec cela pourrait on qui obige Dossier avec den Quelltexten aussi direct verwenden:

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

qui Json-liste wird dans den String text gelesen, dans un Json-objet emballé et Parse ensuite dans cela Json-objet js lire.

Salut
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-Funktion dans qui Aider oublier qc

quoique Json() oui déjà un großer Container ist...

Roland peux Du ensuite aussi cela
html_entity_decode() et cela Gegenstück html_entities()
comme Funktionen en supplément spendieren? cela allez dans Pascal codiert doch quelque chose flotter.

Beschreibungen sommes sous PHP pour trouver.

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

- page 2 -

Michael W. (09.06.2018)

sommes qui HexCodes une Klassifizierung?
ou bien une weitere ID?

Mittlerweile unnötige Überbleibsel aus damaligem PHPBB-System, qui restlos entfernt volonté könn(t)en.

13.06.2018 ▲

H.Brill

peut-être pourrait RGH den Json-Container encore erweitern.
quoi manquer serait :

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

et vlt. encore un variables
Json("Find",....)

intéressant wären oui aussi encore Strukturen.

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

Salut,
j'ai encore une kleine Merkwürdigkeit beim Hash-Array et
Json entdeckt :

Déclarer Long js, xs, Hash hasharray[]
Déclarer String Schluessel, Wert
Cls
js = Créer("Json")
Json("AddString", js, "Beruf", "Bäcker")
Json("AddString", js, "Beruf", "Metzger")
Json("AddString", js, "Beruf", "Schlosser")
hasharray[] = Json("Hash", js)
ForEach hasharray[], Schluessel, Wert
Imprimer Schluessel, "=", Wert
EndFor
Imprimer
Imprimer
xs = Créer("Json")
Json("AddString", xs, "Bäcker", "Beruf")
Json("AddString", xs, "Metzger", "Beruf")
Json("AddString", xs, "Schlosser", "Beruf")
hasharray[] = Json("Hash", xs)
ForEach hasharray[], Schluessel, Wert
Imprimer Wert, "=", Schluessel
EndFor
WaitKey
Fin

normalement devrait oui aucun gleichen Schlüssel chez
Json("AddString", js, [nom], string)
verwendet volonté. marcher tut es mais quand même.
qui Merkwürdigkeit venez mais ensuite beim Lecture avec
ForEach...EndFor.
qui gleichen Schlüssel volonté toutefois aufgelistet, mais qui
Werte pas alle. seulement qui erste gefundene Wert wird toujours wieder
übernommen. avec cela es toutefois klappt, peux on Schlüssel et
Werte simple tauschen, avec cela qui Schlüssel wieder einmalig sommes.
cela peux on mais aussi seulement chez certain Konstellationen faire.

si cela eh bien un Bug ist, ou bien pas sei la fois dahin gestellt.
je denke, là besteht encore Handlungsbedarf seitens RGH.
Entweder listet ForEach aussi alle Werte sur ou bien mais RGH
prüft chez Json("AddString", js, [nom], string), si qui Schlüssel
déjà vorhanden ist et gibt entsprechend une Fehlermeldung
ou bien aussi -1 (comment chez den anderen Funktionen) zurück.

comme Workarround bleibt ici seulement, avec Json("Count", js) et dans einer
Boucle cela trop überprüfen. Es sollte ici seulement erwähnt volonté, là
je selber justement dans cet 'Falle' getappt suis.

26.03.2023 ▲

Georg
Teles

Salut,

scheint réellement un Auslesefehler trop son, car qui Datensätze volonté dans qui Dossier korrekt abgespeichert:

js.json

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

xs.json

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

Voir le texte source

Déclarer Long js, xs, Hash hasharray[]
Déclarer String Schluessel, Wert
Cls
js = Créer("Json")
Json("AddString", js, "Beruf", "Bäcker")
Json("AddString", js, "Beruf", "Metzger")
Json("AddString", js, "Beruf", "Schlosser")
hasharray[] = Json("Hash", js)
Déclarer i&
Claire i&
For i&, Json("COUNT", js)'SizeOf(hasharray[])
imprimer i&-1, Json("NAME", js, i&-1), "=", Json("VALUE", js, i&-1)
EndFor
Json("WRITE", js, "js.json")
Imprimer
Imprimer
xs = Créer("Json")
Json("AddString", xs, "Bäcker", "Beruf")
Json("AddString", xs, "Metzger", "Beruf")
Json("AddString", xs, "Schlosser", "Beruf")
hasharray[] = Json("Hash", xs)
ForEach hasharray[], Schluessel, Wert
Imprimer Wert, "=", Schluessel
EndFor
imprimer
imprimer
Claire i&
For i&, Json("COUNT", xs)'SizeOf(hasharray[])
imprimer i&-1, Json("NAME", xs, i&-1), "=", Json("VALUE", xs, i&-1)
EndFor
Json("WRITE", xs, "xs.json")
WaitKey
Fin

Grüße
Georg

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

26.03.2023 ▲

H.Brill

merci pour qui Bestätigung.
avec "Auslesefehler " la hâte du es oui c'est ca getroffen.
avec dem Hash-Array bzw. qui ForEach-Boucle hat es
allerdings rien trop 1faire :
ici la fois händisch ausgelesen :

Déclarer long js, xs
Cls
js = Créer("Json")
Json("AddString", js, "Beruf", "Bäcker")
Json("AddString", js, "Beruf", "Metzger")
Json("AddString", js, "Beruf", "Schlosser")
xs = Créer("Json")
Json("AddString", xs, "Beruf1", "Bäcker")
Json("AddString", xs, "Beruf2", "Metzger")
Json("AddString", xs, "Beruf3", "Schlosser")

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

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

Endwhile

Imprimer

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

    Imprimer Json("GetString", xs, $ Substr("Beruf1,profession2,profession3", &LOOP + 1, »))

Endwhile

Waitkey

Funktioniert beim objet js aussi pas so, comment erwartet.
alors peut wir es déjà la fois jusqu'à dahin eingrenzen.

26.03.2023 ▲

Georg
Teles

je vermute allerdings, dass la première "Spalte" ici zwangsläufig un "Primärschlüssel" ist, ähnlich qui SQL Tabelle

cela Lecture vermute je erfolgt plan pour diesem Primärschlüssel ... je peux seulement vermuten, dass cela eventuell technique bedingt ist, dass on qui Primärschlüssel irgendwie mappt ou bien "splittet" ou bien irgendwie listet, alors vite ausliest et dessen Werte comme Array zuweist, andernfalls devrait on hingehen et la première Spalte avec einer Boucle durchlaufen et qui Werte (ici Key = Schlüssel) seulement einmal einlesen et bestimmen, après wieder une Boucle courir laisser, à dazugehörigen Werte zuzuordnen ... glaub je erzähle Schrott.

sur jeden le cas ist es bien sûr, dass chez gleichgenannten Schlüsseln qui plan "unikal" son doit si on annimmt, dass la première Spalte plan comment "Primärschlüssel" behandelt volonté, et eh bien juste appeler, ici Schonmal qui Werte einem falschen Schlüssel zugeordnet volonté et c'est le bekannten effet

mais cela peux dir seulement Roland dire, comme réellement derrière den Kulissen ist

Alle Sprachen
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

29.03.2023 ▲

H.Brill

sur jeden le cas ist es irgendwie komisch,
qui Schlüssel peux on auslesen, quoique vous
identique sommes, bloß qui en supplément gehörende Werte
pas.
si je maintenant SQL-Tabelle lese, qui une Primärschlüssel
sur z.B. den Namen legt, frage je mich mais aussi, pourquoi
cela là funktioniert. là peut oui aussi plusieurs z.b. "Maier"
vorkommen et qui index funktioniert quand même. c'est oui qui
Vorteil einer solchen DB, qui on là plan alle "Maier" avec
en Werten seulement avec einer einzigen SELCT-Anweisung
rausziehen peux.

maintenant exposition la fois, comment unterschiedlich Hash-Arrays beim
Füllen réagir. normalement devrait oui jeweils cela gleiche
angezeigt volonté :

Déclarer long js, hash personne1[], personne2[], personne3[], String clé, value
Cls
js = Créer("Json")
Json("AddString", js, "Beruf", "Bäcker")
Json("AddString", js, "Beruf", "Metzger")
Json("AddString", js, "Beruf", "Schlosser")
personne2["Beruf"] = "Bäcker"
personne2["Beruf"] = "Metzger"
personne2["Beruf"] = "Schlosser"
personne3[1, "Beruf"] = "Bäcker"
personne3[2, "Beruf"] = "Metzger"
personne3[3, "Beruf"] = "Schlosser"
personne1[] = Json("Hash", js)
ForEach personne1[], clé, value
Imprimer clé, value
EndFor
Imprimer "\n"
ForEach personne2[], clé, value
Imprimer clé, value
EndFor
Imprimer "\n"
ForEach personne3[], clé, value
Imprimer clé, value
EndFor
Waitkey

ici devrait on savons, quelle Methode RGH beim Befüllen des
Hash-Array sur JSON (Json("Hash", js) verwendet. Json("GetString",..)
scheint es la fois pas trop son.

comment déjà dit, entweder wird seulement cela erste gefundene
Attribut ausgelesen et dessen Wert bzw. angezeigt, ou bien
plan alle Schlüssel avec den en supplément gehörenden Werten.

Alles autre führt früher ou bien später trop Fehlfunktionen im Programme.

30.03.2023 ▲