Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: чтение файла последовательного доступа Добавлено: 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам