Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum: 13.03.22 13:59
Für einfache Schlüsselpaare könnte man auch so vorgehen :
Declare hash h[]
cls
h["test1"] = "100"
h["test2"] = "2"
h["test3"] = "3"
Case Hash1KeyExists(h[], "test1") : Print h["test1"]
Case Hash1KeyExists(h[], "bla") : Print h["bla"]
Case Hash1KeyExists(h[], "test3") : Print h["test3"]
PROC Hash1KeyExists
Parameters Hash hashvar[], String key1
Declare String key, value, Long retvar
retvar = 0
ForEach hashvar[], key, value
Case key = key1 : retvar = 1
EndFor
Return retvar
EndProc
WaitKey
End
Bei mehreren müßte man etwas basteln aufgrund der Hilfe :
Zitat:
Bei der Ausgabe mit ForEach werden die Schlüssel zu einem zusammengefasst und durch den Delimiter "|" getrennt. Dieser Delimiter kann mit Set("HashDel",D) beliebig eingestellt werden, wobei D auch aus mehreren Zeichen bestehen kann. Voreingestellt ist hier das "|".
Vielleicht mit Len() die Anzahl der Delimitter ermitteln und mit SubStr$()
den passenden rausfischen.
H.Brill
XProfan X4 + 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 !!!
|
|
