|
|
Автор:
|
Кука
|
|
Тема:
|
Текстовый файл считывается иероглифами...
|
|
Дата:
|
26.08.2005 13:58:00
|
Считываю файл:
Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click
Dim r As StreamReader = File.OpenText("c:\RlsNomen.txt")
Dim str As String
str = r.ReadToEnd
Dim ar As Array
ar = str.Split(vbCrLf)
Dim i As Integer
ProgressBar1.Maximum = UBound(ar)
ProgressBar1.Step = 1
ProgressBar1.Value = 0
For i = 0 To 100 'UBound(ar)
ProgressBar1.Value = i
lstFile.Items.Add(ar(i))
Next
End Sub
Русские буквы отображаются иероглифами, либо совсем не отображаются....
Уже умаялся......
Подскажите из-за чего может быть....
В Виндовсе настройки на русский язык.... Все вроде нормально....
|
|
