Не встречались с такой проблемой ?
Код:
Private Sub LoadReadmeFile()
Dim fs As FileStream
Dim sr As StreamReader
Dim strReadme As String = Application.StartupPath + "\Readme.txt"
If File.Exists(strReadme) Then
fs = New FileStream(strReadme, FileMode.Open, FileAccess.Read, FileShare.Read)
sr = New StreamReader(fs)
Dim str As String
str = sr.ReadToEnd
sr.Close()
fs.Close()
txtReadme.Text = str
End If
End Sub
В текстбоксе не видны русские буквы, не просто заменены квадратиками а "вырезаны" вообще.
Шрифт-кириллица, видимо, при загрузке файла происходит что-то с кодировкой.
[Ответ]
Public Sub New( _
ByVal stream As Stream, _
ByVal encoding As Encoding, _
ByVal detectEncodingFromByteOrderMarks As Boolean, _
ByVal bufferSize As Integer _
)
Это один из конструкторов StreamReader, собс-но тебе нужен Encoding.
RTFM
[Ответ]
sr = New StreamReader(fs, System.Text.Encoding.GetEncoding("windows-1251"))
Спасибо
vicmb, как говорится "конструктор-то я и не заметил".
[Ответ]
