Получение кириллицы из ANSI BAT файла

[jangle]

Никак не могу понять, почему неправильно перекодируется кириллическая командная строка из батника? Батник же передает командную строку в OEM, и мне надо только преобразовать ее обратно в ANSI.

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

Option Explicit
Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Public Function ToWin(sText As String) As String
    ToWin = Space(Len(sText))
    OemToChar sText, ToWin
End Function

Sub Main()
  MsgBox ToWin(Command)
End Sub

BAT файл:

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

project1.exe Привет

При запуске выдает: жи°Єїк

Конечно можно писать BAT файлы в OEM кодировке, но это же извращение

[Twister]

Пальцем в небо: OemToCharW?

[iGrok]

Не. Вы удивитесь, но CharToOem.

А вот с какого фига именно так - вопрос не ко мне.

З.Ы. Только всё равно не поможет. Потому что за каким-то фигом к ним кто-то по дороге уже применил OemToChar, и часть символов ("П") побилась.

[jangle]

Пальцем в небо: OemToCharW?

У меня же не Юникод.

[jangle]

З.Ы. Только всё равно не поможет. Потому что за каким-то фигом к ним кто-то по дороге уже применил OemToChar, и часть символов ("П") побилась.

Это консоль применила. Но как теперь восстановить строку?

[iGrok]

Это консоль применила. Но как теперь восстановить строку?

Никак. Преобразование-то нетождественное.
Точее, какую-то часть строки ты восстановишь при помощи CharToOem. Остальное - невосстановимо.

[jangle]

Это консоль применила. Но как теперь восстановить строку?

Никак. Преобразование-то нетождественное.
Точее, какую-то часть строки ты восстановишь при помощи CharToOem. Остальное - невосстановимо.

Ерунда какая-то получается. Выходит, что батники можно писать только в CP866 ?
Не верю, не может такого быть... В Windows даже блокнот не умеет в ней сохранять.

[iGrok]

Нашёл.

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

chcp 1251
project1.exe Привет


[jangle]

iGrok - спасибо, действительно работает. А можно ли переключить CP программно, а не из батника?

Upd. Нашел как программно переключить CP

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

SetConsoleCP 1251