Русские буквы не отображаются в RichTextBox

[Bakterium]

У меня загвоздка. При считывании в RichTextBox из файла текста, содержащего русские буквы, они не отображаются. Помогите, наставте на путь истенный.
P.S. У меня VB 2005 .NET

[AnarCky]

Была у меня такая проблема... Я просто сохранил файл в Unicode а не в ASCII как по умолчанию. Не знаю на сколько это правильно, но сработало

[Bakterium]

Совет хороший, но в моём случае не совсем подходит. Я делаю прогу для редактирования файлов игры и их пересохранение в другой кодировке не лучший выход.
Но всё равно спасибо за вариант.

[Maitris]

Чем читаешь?
Юзай стримридер и при этом указывай нужную тебе кодировку. Примеров в сети масса.

[AnarCky]

Наскок я знаю StreamReader пишется вот так:

Код: Выделить всё


Dim string_from_fail As String
Dim StrRead As System.IO.StreamReader(path As String)

StrRead.Encoding = Encoding.Default
string_from_fail = StrRead.ReadToEnd     'прочитать весь файл
StrRead.Close()


Подтвердите плз если верно

[GoodWin74]

http://bbs.vbstreets.ru/viewtopic.php?t=16082&highlight=streamreader

[Alex[fj]]

А если вот так

Код: Выделить всё


Dim Ecod as encoding=encoding.default

x=my.computer.filesystem.readalltext("text.txt",Ecod)


У меня работает и все читает

[Bakterium]

Копал в MSDN и наткнулся на FileStream . Вот пример кода простенькой программы с его использованием:

Код: Выделить всё

Imports System.Text
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strLine As String, fs As System.IO.FileStream
        Dim b(1024) As Byte
        Dim temp As System.Text.Encoding = Encoding.Default
        fs = System.IO.File.OpenRead("test.txt")
        Do While fs.Read(b, 0, b.Length) > 0
            strLine = temp.GetString(b)
            RichTextBox1.Text &= strLine & vbCrLf
        Loop
        fs.Close()
    End Sub
End Class

Но есть одна загвоздка, он считывает файл сначала и до конца , а мне нужно, чтобы текст читывался до тех пор, пока в строке не будет найдена определённая подстрока.

[Bakterium]

Отбой вооружённым силам . Всё полностью разобрался.

Спасибо всем кто не проигнорировал мою тему.