кодировка 737 перепутана

Question

Я использую VB .Net 2008

Почему мое преобразование из ASCII в 737 (греческий DOS) с командой Encoding.Convert возвращает читаемые символы, а IO.StreamWriter с Encoding.GetEncoding(737) записывает файл с нечитаемыми символами?

Я спрашиваю об этом, потому что хочу отправить данные строк на принтер, который может печатать греческий как 737. Если я отправляю результат Encoding.Covert, я получаю неправильный результат, в то время как если я напишу файл, как указано выше, и скопирую его на принтер, то все в порядке

Answer 1

Используйте метод GetEncoding

    Dim enc As Encoding = Encoding.GetEncoding(737)

    Dim fs As FileStream
    fs = File.OpenRead("\737dos.txt")

    Dim sr As StreamReader = New StreamReader(fs, enc)