| Вопрос: Чтение текстового файла | Добавлено: 19.06.04 00:31 |
Автор вопроса:  Padre | Web-сайт: vb.narod.ru
|
|
Как прочитать данные из файла? Dim HFW As New StreamReader("D:\Project\" & R_Path & ".htm") Но он читает только одну строчку(можно пустить цикл, но как узнать сколько строчек в файле?), да и |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #1 | Добавлено: 19.06.04 01:14 |
|
Попробуй HFW.ReadToEnd |
||
|
Номер ответа: 2 Автор ответа:  freeloader  ICQ: 50804884 Вопросов: 72 Ответов: 642 |
Web-сайт: Профиль | | #2 | Добавлено: 19.06.04 04:57 |
|
Чтобы разбирать русские буквы надо задать соответсвующую кодировку!
Dim read As StreamReader = New StreamReader("c:\test.txt", Encoding.GetEncoding(1251))
Dim mes As String
mes = read.ReadToEnd()
TextBox1.Text = mes read.Close() MessageBox.Show(" Файл прочитан: c:\test.txt") |
||
|
Номер ответа: 3 Автор ответа: Padre Вопросов: 4 Ответов: 2 |
Web-сайт: Профиль | | #3 | Добавлено: 19.06.04 10:27 |
|
Спасибо что оветили.
В твоем примере, он находит ошибку(подчеркивает) в 'Encoding.'. Наверное надо как - нибуть по-другому кодировку задать. только как? |
||
|
Номер ответа: 4 Автор ответа: PadreВопросов: 4 Ответов: 2 |
Web-сайт: Профиль | | #4 | Добавлено: 19.06.04 10:35 |
Всё, до меня дошло, надо писать так:
 im read As StreamReader = New StreamReader(":\Project\1.htm", System.Text.Encoding.GetEncoding(1251))
im mes As String
mes = read.ReadToEnd() TextBox1.Text = mes read.Close() MessageBox.Show(" Файл прочитан: c:\test.txt" 
Огромное спасибо за помощь. |
||
|
Номер ответа: 5 Автор ответа: freeloader ICQ: 50804884 Вопросов: 72 Ответов: 642 |
Web-сайт: Профиль | | #5 | Добавлено: 19.06.04 15:22 |
|
или можно в самом начале написать, вот так и ничего менять не надо
Imports System Imports System.IO Imports System.Text |
||
|
Номер ответа: 6 Автор ответа: ШевТ ICQ: 165728420 Вопросов: 1 Ответов: 96 |
Профиль | | #6 | Добавлено: 21.06.04 22:55 |
|
Dim read As StreamReader = New StreamReader(":\Project\1.htm", System.Text.Encoding.GetEncoding(1251))
Dim mes As String ' Чтение файла построчно While ((mes = read.ReadLine()) != False) text1.Append(mes) End While read.Close() |
||
|
Номер ответа: 7 Автор ответа: ШевТICQ: 165728420 Вопросов: 1 Ответов: 96 |
Профиль | | #7 | Добавлено: 21.06.04 22:56 |
|
ИЗВИНЯЮСЬ, вместо False пишите Nothing
Dim read As StreamReader = New StreamReader(" :\Project\1.htm", System.Text.Encoding.GetEncoding(1251))
Dim mes As String ' Чтение файла построчно While ((mes = read.ReadLine()) != Nothing) text1.Append(mes) End While read.Close() |
||
|
Номер ответа: 8 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #8 | Добавлено: 22.06.04 09:30 |
|
Зачем такие извращения? Всё делается одной строчкой: Dim s As String = StreamReader.ReadToEnd |
||
|
Номер ответа: 9 Автор ответа: K&MICQ: 225442067 Вопросов: 20 Ответов: 170 |
Профиль | | #9 | Добавлено: 24.06.04 12:06 |
|
Не понимаю, что вы тут пишете, можно просто написать:
Dim Obj as string While Not EOF(1) '1 - Номер открытого файла OBJ = LineInput(1) 'Или: Input(1,OBJ) 'Здесь пишете, куда девать значение переменной 'OBJ End while Стандартная функция EOF(<Номер файла> возвращает false, если достигнут конец файла
|
||
|
Номер ответа: 10 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #10 | Добавлено: 24.06.04 18:14 |
|
2 KIMPROG: забудь про пространство имён Microsoft.VisualBasic! Очень тебе советую. Оно существует только для совместимости с VB6. |
||
|
Номер ответа: 11 Автор ответа: Воронков ВасилийВопросов: 1 Ответов: 90 |
Профиль | | #11 | Добавлено: 25.06.04 10:54 |
| Ну не только. Там же есть API для работы с компилятором VB.NET | ||
Страница: 1 |