Fehler beim Wechseln des CVS-Textdateielements beim Auswählen des Listenfeldelements in Visual Basic
Ich versuche "M" auf "Mr." zu schalten und "F" zu "Frau" wenn der Nachname in der Listbox ausgewählt ist. Als ich auf den Vornamen geklickt habe, hat es funktioniert, aber als ich auf einen anderen Namen geklickt habe, habe ich folgende Fehlermeldung erhalten:
--Zusätzliche Informationen: Der Index lag außerhalb des Bereichs des Arrays. .--
Die Informationen in der Textdatei sehen folgendermaßen aus:
Ball,Krystal,F,1981
Banks,Robin,F,1988
Burgher,Hamilton,M,1980
Early,Brighton,M,1989
Hedd,MT,M,1960
Hogg,Ima,F,1953
Knapp,Anita,F,1970
Overnout,Roger,M,1968
Psito,Arnie,M,1962
Teak,Anne,F,1939
Und mein Code ist wie folgt:
Private Sub btnEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.Click
Dim names As IO.StreamReader = IO.File.OpenText("Info.txt")
Dim lName As String = lstNames.Text
Dim line As String
Dim gender As String
Dim foundFlag As Boolean = False
Do Until foundFlag Or names.EndOfStream
line = names.ReadLine
If line.Split(","c)(2) = "M" Then
gender = "Mr. "
ElseIf line.Split(","c)(2) = "F" Then
gender = "Ms. "
End If
If line.Split(","c)(0) = lName Then
txtOutput.Text = gender & line.Split(","c)(1) & " " & line.Split(","c)(0) & " is " & 2012 - line.Split(","c)(3)
foundFlag = True
End If
Loop
End Sub
Kann mir bitte jemand mitteilen, was los ist? Danke im Voraus.