Фунция 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

Категория

Строки

Реклама