| Вопрос: чтение файла последовательного доступа | Добавлено: 21.07.03 13:12 |
Автор вопроса:  alwaysrestless | ICQ: 142326876 |
|
Считываю из файла 111.txt строки. если они набраны литиницей то все считывается нормально, если есть русские буквы то все, трабл, он их пропускает. ЧТО ДЕЛАТЬ??? Dim txt1 As System.IO.StreamReader txt1 = System.IO.File.OpenText("texst.txt") Do Until txt1.Peek = -1 stroka = txt1.ReadLine() Debug.WriteLine(stroka) |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: skl Вопросов: 1 Ответов: 9 |
Профиль | | #1 | Добавлено: 22.07.03 16:43 |
|
Вопрос интересный, смысл понятен - не установлена нужная кодировка. Чтобы выяснить как это сделать пришлось повозиться. В итоге создаем новую кодировку (русскую): Dim enc As System.Text.Encoding enc = System.Text.Encoding.GetEncoding(1251) И при создании стрима укажем нашу кодировку: Dim txt1 As System.IO.StreamReader = New System.IO.StreamReader("c:\text.txt", enc) Теперь все читает - супер Пиши на skl99@mail.ru |
||
|
Номер ответа: 2 Автор ответа: sklВопросов: 1 Ответов: 9 |
Профиль | | #2 | Добавлено: 23.07.03 11:37 |
|
Dim enc As System.Text.Encoding enc = System.Text.Encoding.GetEncoding(1251) 'И при создании стрима укажем нашу кодировку: Dim granshell As System.IO.StreamReader = New System.IO.StreamReader("c:\text.txt", enc) Do Until granshell.Peek = -1 Debug.WriteLine(granshell.ReadLine()) Loop |
||
Страница: 1 |