powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нужна ДОСовая кодировка
4 сообщений из 4, страница 1 из 1
Нужна ДОСовая кодировка
    #32899019
borman2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Мот кто подскажет, как в файл писать строки в ДОСовой кодировке?
...
Рейтинг: 0 / 0
Нужна ДОСовая кодировка
    #32900001
sq_deep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В WinAPI для этого есть функция AnsiToOem
...
Рейтинг: 0 / 0
Нужна ДОСовая кодировка
    #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
Нужна ДОСовая кодировка
    #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
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нужна ДОСовая кодировка
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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