Сообщество Чайников

Вопрос

Помогите пожалуйста в работе с текстовыми файлами. Как считывать из них информацию, если они в DOS-кодировке.

Ответ

Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc AsString, ByVal lpszDst As String) As LongOemToChar
конвертирует текст из 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

AlexV