Фунция CharToOem

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

Платформа

CharToOem конвертирует текст из win-кодировки в dos-кодировку.

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

Параметры

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

Пример

' конвертируем строку "Русский_Проект!" в dos-кодировку.
Dim sourcestring As String   ' нужная строка
Dim deststring As String  ' получаемая строка
Dim code As Long

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

Схожие функции
OemToChar
Категория
Строки

В начало