Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

OEM-ANSI в VBA

Доброго времени суток!

Есть текстовый файл в DOS-кодировке. Необходимо его перекодировать в
Win-кодировку из Access 2000.

Как я делал:
1. Открываю нужный мне файл.
2. Записываю первую строку файла в стринговую переменную.
3. Пробую конвертировать эту переменную с помощью API-функции
OemToChar.
Функция отрабатывает, но конвертации не происходит, т.е. никаких
ошибок нет, но и строки в Win-кодировке тоже нет :(
Плиз, Хелп Ме!!!

Ответить   "Teplov A." Fri, 19 Dec 2003 11:33:51 +0300 (#38213)

 

Ответы:

Есть ли вероятность того, что Win-строка имеется, но не выводится на экран/не

сохраняется?

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Fri, 19 Dec 2003 18:08:16 +0300 (#38575)

 

Здравствуйте, leonid.

Вы писали 19 декабря 2003 г., 18:08:16:
mid:20031219180756.385***@c*****.subscribe

Я делаю так:
OemToChar strString, strString
Debug.Print strString
И в окне Immediate наблюдаю, что strString как была в DOS-кодировке,
так и осталась!
А если использую две строки:
OemToChar strString1, strString2
Debug.Print strString2
То strString2 вообще пустая.
Причем, что интересно, в MSDN написано, что функция OemToChar ВСЕГДА
возвращает ненулевое значение, а у меня она возвращает ноль!

Ответить   "Teplov A." Sat, 20 Dec 2003 11:09:42 +0300 (#38956)

 

Здравствуйте, Teplov.

Вы писали 19 декабря 2003 г., 11:33:51:
mid:20031219113300.382***@c*****.subscribe

Вопрос закрыт!
Причина была в OfficeGuard из пакета антивируса Касперского.

Ответить   "Teplov A." Tue, 23 Dec 2003 12:30:56 +0300 (#40645)