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.

Antworten auf die Frage(1)

Ihre Antwort auf die Frage