VPF::Конвертирование текста из DOS-кодировки в Windows

cardinal

Дата 31.5.2005, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Код


Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, _
ByVal cchDstLength As Long) As Long
Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, _
ByVal cchDstLength As Long) As Long

Public Function ToAnsi(s As String) As String
    Dim Buffer As String
    Buffer = Space(Len(s) + 1)
    OemToCharBuff s, Buffer, Len(s)
    ToAnsi = Left(Buffer, Len(s))
End Function

Public Function ToOEM(s As String) As String
    Dim Buffer As String
    Buffer = Space(Len(s) + 1)
    CharToOemBuff s, Buffer, Len(s)
    ToOEM = Left(Buffer, Len(s))
End Function

Использование:

Код


sAnsi = ToAnsi("Дарт Вейдер")    ' Из DOS в Windows
sDos = ToOEM("Дарт Вейдер")    ' Из Windows в Dos

Примечание:
Данные функции работают корректно только на русской Windows или на корректно русифицированной паневропейской

Источник: vb.astral.kiev.ua

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »