Открыть текстовый файл и читать построчно

Question

У меня есть этот код, который мне нужно преобразовать из vb6 в vb.net, но я не могу разобраться с этим.

 Open textFile For Input As #1
    Do While Not EOF(1) 
        Line Input #1, textline
        If Left(textline, 5) = "56,1," Then
            kraj = 1
            If Left(Right(textline, 4), 1) = "+" Then
                Open textFile2 For Output As #2 
                Print #2, "53,1,______,_,__;"
                 Print #2, "56,1,______,_,__;"
             Close #2
                Close #1
                Exit Sub
            Else
                a = InStr(textline, ";")
                cilj = Right(textline, Len(textline) - a)
                a1 = InStr(cilj, ",")
                cilj1 = Right(cilj, Len(cilj) - a1)
                a2 = InStr(cilj1, ",")
                If bfr <> 0 Then
                    cilj2 = Right(cilj1, Len(cilj1) - a2)
                    broj = Left(cilj2, Len(cilj2) - 1)
                Else
                    broj = Left(cilj1, a2)
                End If
                If IsNumeric(broj) = True Then
                    broj = CDbl(broj)
                    Close #1
                    Exit Sub
                Else
                    MsgBox "Error", vbCritical, "Error"
               Close #1
                    Exit Sub
                End If
            End If
        End If
    Loop

Как мне конвертировать его в VB.NET, использовать ли я тот же подход или мне нужно поместить строки в массив.Любая помощь будет потрясающей.

Answer 1

Вы можете использовать объект Reader, а их вместе с этим объектом вы можете читать построчно.
Пример:

Dim reader = File.OpenText(filetoimport.Text)

    Dim line As String = Nothing

    While (reader.Peek() <> -1)
        line = reader.ReadLine()
        // Your code
    End While