Index aus Array auslesen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Index aus Array auslesen

von turtle47 » Mo, 28.05.2007 17:56

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

von Karolus » Mo, 28.05.2007 16:35

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

von turtle47 » So, 27.05.2007 15:04

Hallo Michael,
Du übergibst die Daten falsch an das Array
jou, hab da nicht richtig ins Buch von Thomas geschaut.:oops:
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

von ykcim » So, 27.05.2007 14:43

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

Index aus Array auslesen

von turtle47 » So, 27.05.2007 14:26

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

Nach oben