Seite 1 von 1
Index aus Array auslesen
Verfasst: So, 27.05.2007 14:26
von turtle47
Hallo OOo-Freaks,
zum ersten mal beschäftige ich mit Arrays.
Ich möchte den Index eines Buchstaben aus einen Array auslesen.
Mit folgendem Code bleibt die MsgBox leider leer
.
Ich hatte dort eine 2 erwartet.
Code: Alles auswählen
Sub IndexAuslesen
sList = array (A,B,C,D,F,G)
sSuche= (C)
MaxIndex = Ubound(sList())
For i = 0 To MaxIndex-1
If sSuche = sList(i) Then
GetItemPosFromArray() = z
End If
Next i
msgbox z
End Sub
Wer kann bitte helfen?
Jürgen
Verfasst: So, 27.05.2007 14:43
von ykcim
Hallo,
Du übergibst die Daten falsch an das Array. Und was GetItemPosFromArray an der Stelle macht ist mir auch nicht klar.
Versuchs mal mit:
Code: Alles auswählen
Sub IndexAuslesen
sList = array ("A","B","C","D","F","G")
sSuche= "C"
MaxIndex = Ubound(sList())
For i = 0 To MaxIndex-1
If sSuche = sList(i) Then
m = i
End If
Next i
msgbox m
End Sub
mfg
Michael
Verfasst: So, 27.05.2007 15:04
von turtle47
Hallo Michael,
Du übergibst die Daten falsch an das Array
jou, hab da nicht richtig ins Buch von Thomas geschaut.
Wer lesen kann ist klar im Vorteil.
Und was GetItemPosFromArray an der Stelle macht ist mir auch nicht klar.
Ich hatte das einfach so übersetzt wie es da steht.
GetItemPosFromArray
Man lernt aber immer noch was dazu.
Auf jeden Fall funktioniert Dein Code wie gewünscht.
Danke für die kompetente Hilfe.
Jürgen
Verfasst: Mo, 28.05.2007 16:35
von Karolus
Hallo Jürgen
Wieso bildest du die Schleife über:
For i = 0 To MaxIndex-1
Damit schliesst du den letzten Listeneintrag aus, möchtest du nicht die '-1' weglassen ?
Gruß Karo
Verfasst: Mo, 28.05.2007 17:56
von turtle47
Hallo Karolus,
freut mich von Dir zu hören.
Der Ursprungscode war eine Function,
Code: Alles auswählen
Function GetItemPosFromArray(sList() as string, sItem as String) as integer
Dim ItemList()
Dim MaxIndex as Integer
Dim i as Integer
MaxIndex = Ubound(sList())
For i = 0 To MaxIndex-1
If sItem = sList(i) Then
GetItemPosFromArray() = i
Exit Function
End If
Next i
End Function
die ich mir geliehen habe
.
Hab die -1 jetzt rausgenommen.
Danke für den Hinweis.
Jürgen