Фунция OemToChar

Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
OemToChar конвертирует текст из dos-кодировки в win-кодировку

Возвращаемое значение

Функция всегда возвращает ненулевое значение

Параметры

lpszSrc
Строка для перекодировки
lpszDst
Перекодированая строка в буфере. Если функция CharToOem используется как функция ANSI, строка может быть переведена на месте, устанавливая параметр lpszDst в тот же адрес, что и параметр lpszSrc

Пример

' Конвертируем строку "Русский_Проект!" в win-кодировку.
' Воспользуйтесь каким-нибудь перекодировщиком,
' чтобы получить эту строку в dos-кодировке
Dim sourcestring As String   ' нужная строка
Dim deststring As String  ' получаемая строка
Dim code As Long

sourcestring = "Русский_Проект"  ' строка для перекодировки
deststring = Space$(Len(sourcestring))' получаем перекодированную строку
code = OemToChar(sourcestring, deststring)
Debug.Print deststring

Смотри также

CharToOem

Категория

Строки