помогите новичку чтение/запись строки из файла ДОС кодировка

[andr_s]

Помогите с кодировками разобраться Читаю строку из файла, записываю в другой, вместо русских букв получаю знаки вопроса

Imports System
Imports System.IO
Imports System.Text
Dim str As StreamReader
Dim sw As New StreamWriter("c:\output.txt", True, System.Text.GetEncoding(866))

str = New StreamReader("c:\input.txt", System.Text.Encoding.GetEncoding(866))
lineA = str.ReadLine()
sw.WriteLine(lineA)
sw.Close()

Получаю в output.txt вместо русских букв знаки вопроса.

[FireFenix]

Автозамена в форуме жетока и опасна

[FireFenix]

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

        Dim Line As String

        Dim sw As New StreamWriter("c:\text.txt", True, Encoding.GetEncoding(866))
        sw.WriteLine("Трямс!")
        sw.Close()

        Dim str As New StreamReader("c:\text.txt", Encoding.GetEncoding(866))
        Line = str.ReadLine()
        str.Close()

        MsgBox(Line)


Вот пашет

[andr_s]

Спасибо огромное! работает.