Кодировка>OEM to ANSII

[tiko]

Возможно ли поменять кодировку
Dos на Win для вывода значения через запрос в бд типа dbf (dBase,FoxPro)
через контрол Grid выводит символы в кодировке dos, нужно поменять на win для нормального отображения строковых значений
или хотя бы в состоянии recordset поменять кодировку и только потом выводить пользователю
Спасибо !

[keks-n]

Вручную конверти этими функциями:

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

Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

[tiko]

Попробовал так не возвращает null

Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Private Sub Command1_Click()
Dim strOEM As String
Dim strWin As String

strOEM = "+T= ò ¢ð¸ªø LL+¦T"

OemToChar strOEM, strWin

Debug.Print strWin
End Sub

в чем ошибка?
Спасибо

[alibek]

Добавь strWin = Space$(Len(strOEM)) перед использованием функции.
А лучше, выставь в DBF-файле кодовую страницу, тогда строки сразу будут возвращаться в нормальном виде.

[tiko]

сапсибо за ответ alibek

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

Dim strOEM As String
Dim strWin As String

strOEM = "Tчэюё т ¦L¦ эр эръюяшЄхы№эє¦ ўрёЄ№ яхэёшш"

strWin = Space$(Len(strOEM))
CharToOem strOEM, strWin

Debug.Print strWin

поменял CharToOem
оригиал_дос="Tчэюё т ¦L¦ эр эръюяшЄхы№эє¦ ўрёЄ№ яхэёшш"
оригинал="Взнос в ПФР на накопительную часть пенсии"
возврат="Тзнос в iLi на накапительнуi часть пенсии"
не корректно выводит данные

если можно по поводу кодовой станицы поподробнее

[alibek]

Открой файл в FoxPro, он предложит выбрать кодовую страницу. Укажи кодовую страницу CP866.
Это же можно сделать программно, кодовая страница указывается (если память не подводит) в 56 байте DBF-файла. Структуру DBF можно найти в интернете.

[Andrey Fedorov]

Открой файл в FoxPro, он предложит выбрать кодовую страницу. Укажи кодовую страницу CP866.
Это же можно сделать программно, кодовая страница указывается (если память не подводит) в 56 байте DBF-файла. Структуру DBF можно найти в интернете.

В 29-ом байте. FoxPro если и предложит выбрать кодовую страницу то только в том случае если она не установлена. Ручками проще выставить (тем более Fox не у всех есть).