Hallo,
leider hattee ich es unglüclicklich formuliert, als ich "auftrag" zweimal verwendet habe.
Richtiger wäre gewesen: Entweder Me.auftrag.Text, wenn man von einem Steuerelement
ausgeht, oder ein anderer Variablenname für den Integer (z. B. auftragIndex).
Ansonsten ist das durchaus richtig.
Integer.TryParse liest einen Text ein und liefert
nur dann Wahr wenn es sich um eine Zahl handelt.
(1 - 1) * 3 => 0, (2 - 1) * 3 => 3, (3 - 1) * 3 = 6 usw.
Der Code so gestaltet, dass er unabhängig von Steuerelementen und Datei funktioniert:
Public Sub AuftragSchleife()
Dim lines As String() = {"Bla", "Bla", "Blubb", "2. Bla", "2. BlaBla", "2. Blubb", "3. Bla", "3. Bla", "3. Blubb"}
' Simulierte Eingabe
Dim AuftragTexte As String() = {"1", "2", "3", "abc", "0", "-1"}
For Each auftragText In AuftragTexte
Dim auftrag As Integer
If Integer.TryParse(auftragText, auftrag) Then
' Auftrag ab 1. mit jeweils 3 Zeilen, Array beginnt bei 0
auftrag = (auftrag - 1) * 3
Console.WriteLine("Auftrag Index: {0}", auftrag)
If (auftrag >= 0 AndAlso (auftrag + 2) < lines.Length) Then
Console.WriteLine("Produkt: {0}", lines(auftrag))
Console.WriteLine("Stück: {0}", lines(auftrag + 1))
Console.WriteLine("Bild: {0}", lines(auftrag + 2))
Else
Console.WriteLine("{0} ist eine ungültige Auftragsnummer", auftragText)
End If
Else
Console.WriteLine("{0} ist Keine Zahl", auftragText)
End If
Next
End Sub
Deine versuchte Umwandlung mit ToString() läßt micht vermuten,
Du arbeitest mit
Option Strict Off. Das sollste Du tunlichst in "On" -
am besten auf Projektebene - ändern.
Denn ohne richtige Typprüfung forderst Du Fehler heraus.
Gruß Elmar
