Visual Basic 2d массив из файла .dat

Question

Итак, я пытаюсь извлечь некоторые данные из двух текстовых файлов.Первая отлично загружает и заполняет списки.Второй текстовый файл, где у меня проблемы.Я не могу заставить его загружаться правильно.Я пытаюсь поместить его в 2D-массив.Окно сообщения предназначено для устранения неполадок, если оно загружается в массив правильно.Что я делаю неправильно?

Пример данных из SDMoy.dat

1,54,465,58,488,484
5,54,654,87,841,844

и т. Д. *

Public Class ArrayFun
Dim MileageAr(10, 10) As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim State As New System.IO.StreamReader("SDCities.dat")
    Dim strState As String
    Dim i, j As Integer
    Do While State.Peek <> -1
        strState = State.ReadLine
        lstFrom.Items.Add(strState)
        lstTo.Items.Add(strState)
    Loop


    Dim Mileage As New System.IO.StreamReader("SDMileage.dat")
    Dim strLine As String
    Dim strSplit() As String

    Do While State.Peek <> -1
        strLine = Mileage.ReadLine
        strSplit = strLine.Split(",")
        j = 0
        For Each miles In strSplit
            MileageAr(i, j) = miles
            j += 1
        Next
        i += 1
    Loop
    State.Close()
    Mileage.Close()

End Sub


Private Sub lstTo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstTo.SelectedIndexChanged
    MsgBox(MileageAr(1, 1))
End Sub

Конечный класс

Answer 1

Dim Mileage As New System.IO.StreamReader("SDMileage.dat")
Dim strLine As String
Dim strSplit() As String

ИЗМЕНИТЬ ЭТО К Пробегу.Peek

Do While State.Peek <> -1
    strLine = Mileage.ReadLine
    strSplit = strLine.Split(",")

Попробуйте вместо этого повторить цикл

Dim Mileage As System.IO.TextReader = New StreamReader("SDMileaage.dat")

do while ((strline = Mileage.ReadLine) <> nothing)

Метод Peek может подойти, я простообычно используйте приведенный выше код при работе с текстовыми файлами, возможно, стоит попробовать ...