- Код: Выделить всё
'#Создаем объект класса StreamReader
Dim sr As New IO.StreamReader("C:\SomeFile.txt")
'#Читаем построчно
Dim line As String = sr.ReadLine()
Dim splitString() As String
'#До конца файла
Do While Not line Is Nothing
splitString = Split(line, ControlChars.Tab)
'#Делаем с полученными строками что угодно, например выводим в консоль (здесь подразумевается, что в Tab-Delimited три колонки)
'Console.WriteLine(splitString(1) & " " & splitString(2))
'#Следующая строка
line = sr.ReadLine()
Loop