Фунция 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
Категория
Строки

В начало