[VB.NET] Keine Mehrfachen For Next schleifen möglich

[Benhero]

Hallo... folgender Code führt leider nur eine "for ... to" schleife aus und die zweite wird garnicht ausgeführt..
Nicht einmal eine messagebox wird angezeigt sollte ich sie direkt hinter das "next"...

Hier der Code:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim pokemonList() As String = System.IO.File.ReadAllLines(Application.StartupPath & "\config\pokemonList.txt")
    For i As Integer = 0 To pokemonList.Length()
		Dim zeroAdd As String = ""
		Dim pkmNumber = i + 1
		If pkmNumber.ToString.Length() = 1 Then
			zeroAdd = "00"
		ElseIf pkmNumber.ToString.Length() = 2 Then
			zeroAdd = "0"
		Else
			zeroAdd = ""
		End If
		pk01_pokemonList.Items.Add(zeroAdd & (i + 1) & " " & pokemonList(i))
		pk02_pokemonList.Items.Add(zeroAdd & (i + 1) & " " & pokemonList(i))
    Next
    Dim pokemonGender() As String = {"?", "?", "?"}
    For i As Integer = 0 To pokemonGender.Length()
		pk01_gender.Items.Add(pokemonGender(i))
		pk02_gender.Items.Add(pokemonGender(i))
    Next
    pk01_gender.Text = pokemonGender(0)
    pk02_gender.Text = pokemonGender(0)
End Sub

Einzeln funktionieren sie einwand frei! (es funktioniert auch NICHT über 2 Subs!)

Gerne lasse ich mich auf fehler hinweisen! Und ob ich etwas verbessern könnte
z.B. das mit den "0" hinzufügen vor den zahlen.

Mfg. Benhero

[tolio]

versuchs mal mit verschiedenen zählervariablen
sonst durchdebuggen

[Easy-Emu]

ich glaube eher, dass der string pokemonList soviele zeichen speichert, dass du durch dein list.Length verdammt viele iterationen hast und das nunmal dauert. Ich glaube sogar du willst garnich das list.length oben in der for haben

[galaxyo]

Breakpoint setzen und debuggen. Ansonsten pack ne Try-Catch-Anweisung außen rum dann kannse dir in der Exception den Fehler ausgeben lassen bzw. durch n Breakpoint anhalten.

Doppelte Zählvariable dürfte kein Ding sein da i in der zweiten For Next Schleife neu mit 0 initialisiert wird.

Exception posten dann können wir helfen :P

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
    Dim pokemonList() As String = System.IO.File.ReadAllLines(Application.StartupPath & "\config\pokemonList.txt")
    For i As Integer = 0 To pokemonList.Length()
		Dim zeroAdd As String = ""
		Dim pkmNumber = i + 1
		If pkmNumber.ToString.Length() = 1 Then
			zeroAdd = "00"
		ElseIf pkmNumber.ToString.Length() = 2 Then
			zeroAdd = "0"
		Else
			zeroAdd = ""
		End If
		pk01_pokemonList.Items.Add(zeroAdd & (i + 1) & " " & pokemonList(i))
		pk02_pokemonList.Items.Add(zeroAdd & (i + 1) & " " & pokemonList(i))
    Next
    Dim pokemonGender() As String = {"?", "?", "?"}
    For i As Integer = 0 To pokemonGender.Length()
		pk01_gender.Items.Add(pokemonGender(i))
		pk02_gender.Items.Add(pokemonGender(i))
    Next
    pk01_gender.Text = pokemonGender(0)
    pk02_gender.Text = pokemonGender(0)
Catch ex As Exception
    MessageBox.Show(ex.toString)
End Try
End Sub

abfahrt

[DeinMud]

Was ist der Plan?

[Deadmau5.]

.Length - 1
Der Index eines Arrays fängt bei 0 an, die Länge bei 1