Загрузка текстового файла в TextBox

[Serg97]

Помогите начинающему!!! В общем проблема такая: есть тестовой файл, нужно его загрузить в TextBox, но не просто загрузить, а с преобразованием каждой строки. Например в файле:
123 Первая строка
123 Вторая строка
123 Третья строка
Надо в TextBox'е получить:
Первая строка
Вторая строка
Третья строка

То есть удалить первые 4 символа, которые во всех строках одинаковые. Делаю так:

Dim Чтение As New System.IO.StreamReader("c:\1.txt")
Dim s As String
Dim sr As String
s = Чтение.ReadToEnd
sr = s.Remove(0, 3)
TextBox1.Text = sr

В итоге в TextBox'е получаю:
Первая строка
123 Вторая строка
123 Третья строка
То есть нужное мне получается только в первой строке. Думаю можно сделать все через массивы, или циклы, но как не соображу. Пожалуйста покажите на примере. Заранее благодарен.

[Viper]

Есть метод StreamReader.ReadLine, вот им то и пользуйся.

[Serg97]

Есть метод StreamReader.ReadLine, вот им то и пользуйся.

Да, он выводит строго по строкам. Но как его применить конкретно в моем случае?

[FireFenix]

1) Считываем строку
2) Ищем позицию пробела (String.IndexOf)
3) Выбираем строку (String.Substr) от пробела до конца

или юзаем регулярку типа New RegEx([\d]*[\s]*(.*))

[Joo]

Юзай System.Text.RegularExpressions.Regex.Replace, в качестве маски используй ^\d+\s*, и не забудь указать опцию RegexOptions.Multiline

[Viper]

Есть метод StreamReader.ReadLine, вот им то и пользуйся.

Да, он выводит строго по строкам. Но как его применить конкретно в моем случае?

Дык, а цикл применить религия не позволяет?

[Serg97]

Все, всем большое спасибо. Да, без циклов ни куда. Вот примерный код, если кому интересно:

Код: Выделить всё

Dim Чтение As New System.IO.StreamReader("c:\1.txt")
        Dim s As String
        Do While Чтение.Peek() <> -1
            s = Чтение.ReadLine
            s = s.Remove(0, 4)
            TextBox1.Text = TextBox1.Text + s + vbCrLf
        Loop
        Чтение.Close()