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

В начало

Профессиональная декоративная косметика оптом
Интернет-магазин косметики. Производство косметики
makeup-land.ru
Где купить бытовую технику
Марка бытовой техники. Где купить
detvora072.umi.ru
Страховой юрист телефон на сайте osago-kasko-protect.ru
osago-kasko-protect.ru