Alle geraden Zahlen...

[TheLuCKer]

Hallo Leute,

kann mir ihrgentwer sagen, wie ich es schaffe, dass ich zum beispiel alle geraden Zeilen auswählt. Es schaut zum beispiel in meine code so aus:

......

atxt = Split(sText, vbCrLf)

EnglischListe.AddItem atxt(0)

DeutschListe.AddItem atxt(1)

und jetzt müsste ich immer so weiter machen, z.B.:

EnglischListe.AddTtem atxt(2)

DeutschListe.AdddItem atxt(3)

Und des is is mir ein bisschen zuviel zum schreiben, weil ich es ungefähr tausendmal mach müsste. Also bitte helft mir. Danke im Vorraus!

Jonny

 

[Shakie]

So dürfte es gehen:

Private Sub Form_Load()
    atxt = Split(sText, vbCrLf)


    Dim intZahler As Integer
    For intzähler = 0 To 1000
        EnglischListe.AddItem atxt(intzähler)
        intzähler = intzähler + 1
        DeutschListe.AddItem atxt(intzähler)
    Next
End Sub

Darf man fragen, was das für ein Programm werden soll?