XProfan

Français

Jörg
Sellmeyer

ensuite hab je aussi juste la fois ne Frage le Hash-Arrays. Irgendwie voulons qui sich mir encore pas so droite erschließen.

Kompilieren Marque Séparation

cls
declare string clé, value
declare hash personne[]
Randomiser

WhileLoop 3

    clé = Format $("0000",Tour(1000)) + " " + Str$(&Boucle)]
    imprimer clé
    personne[clé] = "Eintrag " + Str$(&Boucle)
    personne[clé,"Sub1"] = "Text1 " + Str$(&Boucle)
    personne[clé,"Sub2"] = "Text2 " + Str$(&Boucle)
    personne[clé,"Sub3"] = "Text3 " + Str$(&Boucle)

Wend

imprimer
'sans qui Eingrenzung sur clé bekomme je 12 Ausgaben
'je veux mais seulement 3 Ausgaben avons. avec clé venons mais seulement qui Ausgaben des letzten Eintrags heraus
ForEach personne[clé],clé,value
Imprimer clé,value
Imprimer $ Substr(clé,1,"|")
EndFor
'ici bekomme je qui Werte jeweils 4x
ForEach personne[],clé,value
'Imprimer clé,value
Imprimer $ Substr(clé,1,"|")
EndFor
'ici passiert garnichts...

Whileloop 0,2

    Imprimer personne[]

Wend

WaitKey

peux je ici irgendwie seulement qui ersten Bezeichner auslesen? alors cela, quoi per Zufall dans cela Array geschrieben wurde? ou bien lese je toujours avec ForEach alles aus et nutze ensuite Substr$(), um den ersten Wert trop ermitteln?
ou bien anders gefragt: peux J'apprécie des ersten Eintrages auslesen, sans den Bezeichner trop connaître?

[OFFTOPIC]
David, je crois, du musst ForEach la fois encore dans qui Syntaxerkennung einpflegen...
[/OFFTOPIC]

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

09.11.2015 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

je versuche, es la fois trop expliquer:

Du erzeugst im Hash-Array 12 Einträge, wobei jeweils 4 den gleichen ersten Schlüssel (clé) avons et numéro 2 jusqu'à 4 jeweils une anderen zweiten Schlüssel bekommen.

si Du eh bien im ersten FOREACH alle Eintrage avec dem letzten Wert de Key comme ersten Schlüssel auflistest, bekommst Du naturellement qui letzten quatre Einträge des Arrays angezeigt.

Im zweiten FOREACH gibst Du keinen Schlüssel comme Einschränkung à, alors bekommst Du alle 12 Einträge angezeigt.

(ah oui: chez WHILIELOOP wäre peut-être une Fehlermeldung angebracht, là on un komplettes Array pas ausdrucken peux.)

qui Hauptzweck eines Hash-Arrays besteht plan y, dass on pas sur une numéro (qui Position im Array), mais une ou bien plusieurs Schlüssel (aussi Hash genannt) sur den le contenu zugreift.

sans Weiteres peux Du alors zunächst pas sur den ersten Eintrag zugreifen, sans den Schlüssel trop connaître. il peut sich mais une kleine Boucle bricoler, um den Eintrag Nr eines Hasharrays auszulesen:

Kompilieren Marque Séparation

Var Int Nr = 1
ForEach personne[], clé, value
Cas &loop = Nr : Imprimer clé, value
EndFor

ici pouvoir on sich den circonstance trop Nutze, dass qui Systemvariable &loop aussi chez FOREACH (et FOR) interne hochgezählt wird.

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

09.11.2015 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

merci, je werd es la fois testen. peux es son, dass du un paire Doppelpunkte dans dem Code oublier qc la hâte?

Ah - c'est cela, quoi je aussi verwenden voulais, dans quelque chose anderer forme:

Kompilieren Marque Séparation

ForEach personne[],clé,value
Casenote &Boucle Mod 4:Imprimer $ Substr(clé,1,"|")
EndFor

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

09.11.2015 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

maintenant hab je aussi meinen Denkfehler gesehen.

So ist es oui viel sinnvoller:

Kompilieren Marque Séparation

cls
declare string clé, value
declare hash personne[]
Randomiser

WhileLoop 3

    clé = Format $("0000",Tour(1000))' + " " + Str$(& Loop)
    imprimer clé
    personne["Eintrag" + Str$(&Boucle)] = clé
    personne[clé,"Sub1"] = "Text1 " + Str$(&Boucle)
    personne[clé,"Sub2"] = "Text2 " + Str$(&Boucle)
    personne[clé,"Sub3"] = "Text3 " + Str$(&Boucle)

Wend

imprimer
ForEach personne["Eintrag"],clé, value
Imprimer clé,value
EndFor
Waitkey