Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нужна ДОСовая кодировка / 4 сообщений из 4, страница 1 из 1
03.02.2005, 13:17
    #32899019
borman2000
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна ДОСовая кодировка
Мот кто подскажет, как в файл писать строки в ДОСовой кодировке?
...
Рейтинг: 0 / 0
03.02.2005, 17:59
    #32900001
sq_deep
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна ДОСовая кодировка
В WinAPI для этого есть функция AnsiToOem
...
Рейтинг: 0 / 0
04.02.2005, 12:08
    #32900998
borman2000
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна ДОСовая кодировка
Короче, вроде разобрался. Технология такая (для таких же ламеров, как сам):
В модуле объявляется
Private Declare Function ANSIToOem Lib "user32" Alias "ANSIToOemA" (ByVal lpszDst As String, ByVal lpszSrc As String) As Long

В тексте имеем S - строка в виндовой кодировке.

ANSIToOem S, S

Получаем S - строка в ДОСовой кодировке.

sq_deep - thanks. А то совсем крыша от этих кодировок поехала.
...
Рейтинг: 0 / 0
04.02.2005, 17:49
    #32902083
borman2000
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна ДОСовая кодировка
borman2000Private Declare Function ANSIToOem Lib "user32" Alias "ANSIToOemA" (ByVal lpszDst As String, ByVal lpszSrc As String) As Long
Упс, ошибочка вкралась! Правильно - ТАК:
Private Declare Function ANSIToOem Lib "user32" Alias "CharToOemA" (ByVal lpszDst As String, ByVal lpszSrc As String) As Long
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нужна ДОСовая кодировка / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]