Прочитать TXT фаил
Релиб
Форумы       Участники    Календарь    Кто он-лайн?
Добро пожаловать, гость ( Вход | Регистрация )
        



Прочитать TXT фаил Expand / Collapse
Автор
Сообщение
06.08.2006 17:48
Junior Member

Junior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior Member

участник
Last Login: 09.08.2006 0:04
Сообщ.: 18, Visits: 230
Используя VB.NET открываю текстовый фаил с веб-формы чтобы всё его содержимое отоброзилось в ячейке таблицы.

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim rowNew As New TableRow

Dim celNew As New TableCell

Dim i As Integer

Dim s As String

i = FreeFile()

FileOpen(i, "c:\o\op1.txt", OpenMode.Input)

For i = 1 To 10

s = LineInput(1)

Next

FileClose(i)

celNew.Text = s

'Добавить ячейку в строку.'

rowNew.Cells.Add(celNew)

celNew.BorderStyle = BorderStyle.Solid

'Добавить строку в таблицу.'

Table1.Rows.Add(rowNew)

Как указать в цикле чтобы прочёлся весь фаил от начала до канца? И как указать на выборочное чтение от метки до метки?

С уважением,

Сообщ. #902119
07.08.2006 4:06
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

непров.участник
Last Login: 08.07.2008 15:52
Сообщ.: 1 131, Visits: 8 867
Отоброжение канца: http://support.microsoft.com/kb/304427/EN-US/
Сообщ. #902126
07.08.2006 16:15
Junior Member

Junior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior Member

участник
Last Login: 09.08.2006 0:04
Сообщ.: 18, Visits: 230
Можно немножечко подробней ато пример по линку далековат от маего. Меня интерисует чтобы прочёлся весь фаил целиком. Что надо изменить в маём примере в цикле For , или может другой цикл создать чтобы это произошло?

С уважением,

Сообщ. #902188
07.08.2006 16:32
Supreme Being

Supreme Being

модератор
Last Login: 04.05.2008 13:32
Сообщ.: 7 240, Visits: 65 445
How Do I...Read a text file?
Сообщ. #902190
07.08.2006 17:38
Junior Member

Junior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior Member

участник
Last Login: 09.08.2006 0:04
Сообщ.: 18, Visits: 230
Я когда пишу вот эту строку из примера:

Dim din As StreamReader = New StreamReader( File.OpenRead("words.txt") )Dim din As StreamReader = New StreamReader( File.OpenRead("words.txt")

система пишет ошибку: Type 'StreamReader" is not defined. И подчёркивает StreamReader. Как его правильно обявить?

Сообщ. #902208
07.08.2006 18:14
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

непров.участник
Last Login: 08.07.2008 15:52
Сообщ.: 1 131, Visits: 8 867

As System.IO.StreamReader

Сообщ. #902213
07.08.2006 18:19
Supreme Being

Supreme Being

модератор
Last Login: 04.05.2008 13:32
Сообщ.: 7 240, Visits: 65 445
Import System.IO в начале файла надо написать или использовать полное имя файла System.IO.StreamReader

P.S. Блин, ну ты бы хоть основы языка на котором пишешь изучил.

Сообщ. #902214
07.08.2006 20:15
Junior Member

Junior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior Member

участник
Last Login: 09.08.2006 0:04
Сообщ.: 18, Visits: 230
Спасиба!

А можна ещё падсказачку на тему при генерации новой строки таблицы добавляется одна новая ячейка. Как сделать чтобы добавлялась две или больше ячеек? В маём примере выше.

Сообщ. #902230
08.08.2006 10:10
Junior Member

Junior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior Member

участник
Last Login: 09.10.2006 13:14
Сообщ.: 14, Visits: 79
'Добавить ячейку в строку.'
rowNew.Cells.Add(celNew)

Очевидно, что делается это анологичным образом

Сообщ. #902252