VPF::from dos to windows - Форум программистов

Дата 2.7.2002, 11:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

помогите, пожалуйста!
у меня есть определенным образом структурированный DOS-файл.
Нужно определенные данные занести в соответствующие ячейки Excel-документа. ( - макрос)
Все хорошо кроме кодировки. Есть ли функция в vba, которая позволяет перевести строку
из одной кодировки в другую? или как можно подключить функцию, написанную на Си,
которая решает такую проблему?
Заранее спасибо!

clod

Дата 3.7.2002, 05:39 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 10.6.2002

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

вот пара апишных функций делающих это:

Код


Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

и пример использования:

Код


Dim sMsg As String
Dim s As String
sMsg = "это кодировка Win-1251"
s = Space(Len(sMsg))
CharToOem sMsg, s  'в строке s преобразованная в oem кодировку строка sMsg

функция OemToChar используется так же но преобразует oem (эту самую dos строку) в кодировку win1251, если конечно винды настроены на эту кодировку

Дата 3.7.2002, 10:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

s = Space(Len(sMsg))
СПАСИБО!!!!!

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