XProfan

- Page 1 -

Jörg
Sellmeyer

calm - once my computer again runs, werd I so time befassen. me hovers one Program to, the then arbitrary json-Objects z. B. as Treeview indicating. somehow bid the structure for on, find I.

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

06/09/18 ▲

RGH

The something improved Translates for HTML-tags into Source code (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]*~]", "")

Greeting
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

06/09/18 ▲

Michael
W.

iF, we need one verbessertes html_entity_decode(), the then too any Sonderfälle again entzaubert.
are The HexCodes a Klassifizierung?
or a further ID?

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

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

06/09/18 ▲

RGH

straight is me noticed, I a important JSON-function in the Help forget have:
js = json("Parse", Text)
it'll one Json-Objekt from the String Text created. Text must one gültiges Json-Objekt in Textform his.

so could one The above-mentioned File with the Quelltexten too directly use:

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

The Json-list becomes into String Text red, into Json-Objekt gepackt and Parse then into Json-Objekt js read.

Greeting
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

06/10/18 ▲

Michael
W.

important JSON-function in the Help forget

though Json() already one great container is...

Roland can You then too the
html_entity_decode() and the Gegenstück html_entities()
as functions moreover give liberally? the goes in Pascal codiert still something flotter.

Beschreibungen are under PHP to find.

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

06/11/18 ▲

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

- Page 2 -

Michael W. (09.06.2018)

are The HexCodes a Klassifizierung?
or a further ID?

in the meantime unnecessary Überbleibsel from damaligem PHPBB-system, The restlos removes go könn(t)en.

06/13/18 ▲

H.Brill

Perhaps could RGH whom Json-container yet strain.
what are missing would :

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

and vlt. another variables
Json("Find",....)

interestingly wären indeed yet Structures.

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.

03/14/23 ▲

H.Brill

Hi,
I have another small Merkwürdigkeit at Hash-Array and
Json discover :

Declare Long js, xs, Hash hasharray[]
Declare String Schluessel, worth
Cls
js = Create("Json")
Json("AddString", js, "Beruf", "Bäcker")
Json("AddString", js, "Beruf", "Metzger")
Json("AddString", js, "Beruf", "Schlosser")
hasharray[] = Json("Hash", js)
ForEach hasharray[], Schluessel, worth
Print Schluessel, "=", worth
EndFor
Print
Print
xs = Create("Json")
Json("AddString", xs, "Bäcker", "Beruf")
Json("AddString", xs, "Metzger", "Beruf")
Json("AddString", xs, "Schlosser", "Beruf")
hasharray[] = Json("Hash", xs)
ForEach hasharray[], Schluessel, worth
Print worth, "=", Schluessel
EndFor
WaitKey
End

usually should Yes no equal Key with
Json("AddString", js, [name], string)
uses go. functions but it does nevertheless.
The Merkwürdigkeit comes but then the Reading with
ForEach...EndFor.
The equal Key go nevertheless aufgelistet, but the
values not any. only the first found worth becomes over ands over again
übernommen. so it nevertheless works, can Key and
values simply swap, so The Key again einmalig are.
the can but too only designed Konstellationen make.

whether the now one bow is, or not be time to there set.
i think, there exists yet Handlungsbedarf by RGH.
either listet ForEach too any values on or but RGH
checks with Json("AddString", js, [name], string), whether the Key
already present is and gives properly a Error Message
or -1 (How with whom others functions) back.

as Workarround remaining here only, with Json("Count", js) and of/ one
Loop the To to check on. it ought to here only erwähnt go, there
I yourself straight in these 'Falle' getappt be.

03/26/23 ▲

Georg
Teles

Hi,

shining objectively one Auslesefehler To his, because The Datensätze go into File correctly abgespeichert:

js.json

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

xs.json

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

View source

Declare Long js, xs, Hash hasharray[]
Declare String Schluessel, worth
Cls
js = Create("Json")
Json("AddString", js, "Beruf", "Bäcker")
Json("AddString", js, "Beruf", "Metzger")
Json("AddString", js, "Beruf", "Schlosser")
hasharray[] = Json("Hash", js)
Declare i&
Clear i&
For i&, Json("COUNT", js)'SizeOf(hasharray[])
print i&-1, Json("NAME", js, i&-1), "=", Json("VALUE", js, i&-1)
EndFor
Json("WRITE", js, "js.json")
Print
Print
xs = Create("Json")
Json("AddString", xs, "Bäcker", "Beruf")
Json("AddString", xs, "Metzger", "Beruf")
Json("AddString", xs, "Schlosser", "Beruf")
hasharray[] = Json("Hash", xs)
ForEach hasharray[], Schluessel, worth
Print worth, "=", Schluessel
EndFor
print
print
Clear i&
For i&, Json("COUNT", xs)'SizeOf(hasharray[])
print i&-1, Json("NAME", xs, i&-1), "=", Json("VALUE", xs, i&-1)
EndFor
Json("WRITE", xs, "xs.json")
WaitKey
End

Regards
Georg

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

03/26/23 ▲

H.Brill

thanks for verification.
with "Auslesefehler " have you got it very met.
with the Hash-aray or. the ForEach-Loop has it
though nothing To do :
here time händisch read :

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

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

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

EndWhile

Print

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

    Print Json("GetString", xs, SubStr$("Beruf1,profession2,profession3", &LOOP + 1, ","))

EndWhile

Waitkey

functions at Objekt js neither so, How expects.
means can we it already time by then eingrenzen.

03/26/23 ▲

Georg
Teles

I suspect though, that The first "Spalte" here zwangsläufig one "Primärschlüssel" is, similar the SQL scheduler

the Reading suspect I results even to this Primärschlüssel ... I can only suppose, that the possible technical conditioned is, that one The Primärschlüssel somehow mappt or "splittet" or somehow listet, means quick ausliest and which values as an array zuweist, otherwise should one hingehen and the first slot with of/ one Loop go through and the values (here Key = Key) first once reading and to determine, thereafter again a Loop run, around the dazugehörigen values zuzuordnen ... mean I tell Schrott.

On each drop is it clear, that with gleichgenannten Schlüsseln The even "unikal" his must if one assumes, that The first slot even How "Primärschlüssel" treats go, well then same hot, here Schonmal The values one incorrect Key zugeordnet and be we've whom known effect

but the can you only Roland say, as objectively behind whom Kulissen is

Alle Sprachen
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

03/29/23 ▲

H.Brill

On each drop is it somehow comic,
The Key can read, though tappt im dunkeln
identical are, mere the help gehörende values
not.
If I now SQL-scheduler read, The a Primärschlüssel
on z.B. whom names places, question I but too, Why
the there functions. there can indeed too several z.b. "Maier"
vorkommen and the index functions nevertheless. this is Yes the
benefit of/ one such DB, that one there even any "Maier" with
its Values only with of/ one only SELCT-instruction
rausziehen can.

now look time, How different Hash-Arrays at
stuff react. usually should Yes each the same
showing :

Declare long js, hash person1[], person2[], person3[], String key, value
Cls
js = Create("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
Print key, value
EndFor
Print "\n"
ForEach person2[], key, value
Print key, value
EndFor
Print "\n"
ForEach person3[], key, value
Print key, value
EndFor
Waitkey

here should one know, which method RGH at Befüllen the
Hash-aray over JSON (Json("Hash", js) uses. Json("GetString",..)
shining it times not To his.

How already said, either becomes only the first found
Attribut read and which worth or. displayed, or
even any Key with the moreover gehörenden Values.

everything else lead former or later To Fehlfunktionen in the program.

03/30/23 ▲