IndexOf(A[], W[, N])

Vielleicht noch ein Vorschlag für Version 5 :

Könnte man IndexOf() so gestalten, daß bei String-Arrays die Genauigkeit der Suche

mit angegeben werden kann ? Halt so ähnlich, wie bei db("Find",...) und db("Seek",...).

Auch schön wäre, bei Zahlen-Arrays die Suche mit Operatoren zu gestalten, z.B.

> 10 ' erste Zahl > 10 (auch >= )

< 10 'erste Zahl < 10 (auch <= )

usw.

Vielleicht könnte auch ein Set("...",....) Befehl das Ganze steuern. Ohne geht es

wie gehabt und mit Set() mit obiger Erweiterung. Ich denke da an Set("RegEx", N),

wo eingeschaltet, Instr() usw. mit reg. Ausdrücken funktionieren und ausgeschaltet

halt ganz normal.

Oder daß RegEx auch bei IndexOf() und String-Arrays funktioniert.

Ach ja, was bringt mir IndexOf() beim mehrdimensionalen Array für Positionen ?

Declare String a[4,4,4]
Cls
a[0,0] = "A"
a[0,1] = "B"
a[0,2] = "C"
a[0,3] = "D"
a[1,0] = "10"
a[1,1] = "20"
a[1,2] = "30"
a[1,3] = "40"
a[2,0] = "+"
a[2,1] = "-"
a[2,2] = "*"
a[2,3] = "/"

WhileLoop 0, 3
  Print a[0, &LOOP], a[1, &LOOP], a[2, &LOOP]
EndWhile
Print
Print IndexOf(a[], "C")
Waitkey

Normalerweise müßte da eine Fehlermeldung kommen, da nicht eindimensional.

Auch SizeOf() reagiert da irgendwie komisch drauf.

Soweit bin auch schon gekommen, zumindest mal bei ! ,&, %, $, was gängig ist :

typ1$ = pType$(1)
p& = Len(typ1$, ",")
Select typ1$
   p& = Len(typ1$, ",")
   If p& > 1
      If InStr("&", typ1$)
         Parameters a&[], w&, x&
         tp$ = Translate$(typ1$, "&", "")
         tp$ = Translate$(tp$, "[", "")
         tp$ = Translate$(tp$, "]", "")
         d& = Val(SubStr$(tp$, x&, ",")) 'welche Dimension ?

Damit bekomme ich schon mal die Dimensionen 5,5,5 als String (tp$) und p& zeigt die Anzahl Dimensionen.

Der Parameter x& soll dann angeben, welche Dimension mit w& durchsucht werden soll. Nun bin ich am

überlegen, ob ich daraus Einzel-Arrays machen soll und dann mit IndexOf() suche. Bloß müßte ich da dann

ein Array mit Arrays definieren. Oder halt eine verschachtelte Abfrage mit einer WhileLoop - Schleife. Das

Problem ist, daß die Dimensionen ja unterschiedlich groß sein können (z.B.[8,5,3]). Oder werden die profanintern

hintereinander gespeichert, also 16 Elemente ?

Mal ein Zwischenstand :

IndexOf() funktioniert auch in der Version 11.2. Es wird bloß nicht in der Hilfe erwähnt.

Wenn man sich mal die MoveArrToList() - Funktion zunutze macht, sieht man auch genau,

wie die Arrays kopiert werden und was eigentlich IndexOf() bei mehrdimensionalen Arrays

zurück gibt. Das Array wird dimensionsweise in die Listboxliste kopiert, Also a&[0,0], a&[1,0]

usw. Danach folgt die nächste Dimension. Und so geht vermutlich auch IndexOf() vor.

Declare a&[3,3], c&[3,3]

a&[0,0] = 10
a&[0,1] = 20
a&[0,2] = 30
a&[0,3] = 40
a&[1,0] = 100
a&[1,1] = 200
a&[1,2] = 300
a&[1,3] = 400
a&[2,0] = 1000
a&[2,1] = 2000
a&[2,2] = 3000
a&[2,3] = 4000
a&[3,0] = 10000
a&[3,1] = 20000
a&[3,2] = 30000
a&[3,3] = 40000

Cls
Print IndexOf(a&[], 400)
Print
Print SizeOf(a&[])
Print MoveArrToList(a&[])
'Listbox$("", 1)
Print MoveListToArr(c&[])
ClearList
Print MoveArrToList(c&[])
'Listbox$("",1)
Waitkey

Somit ist mir einiges klarer geworden. Somit kann man sich dann auch die genaue Position (spalte, index) ableiten.

Ist nur schade, daß man die Dimensionen eines mehrdimensionalen Array nur mit pType$() bekommt.

Vielleicht könnte RGH das

@TypeOf(V#)

so erweitern, daß man auch die Art ($,!,%,&) und die Dimensionen eines Arrays erfahren könnte. Also daß es

sowas wie bei pType$() zurück liefert.