Архив форумов ЦИТФорума

[KvoSHR]

Уважаемые мастера, разъясните как мне
при построчном чтении текстовика с кодировкой
DOS(cp866) перекодировать прочтенную строку
в win1251?

[KvoSHR]

... да забыл сказать что на VB надо.

[Вячеслав]

Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long