Как перекодировать строку из DOS-кодировки в Win-кодировку
Нужен код VBScript для того, чтобы перекодить строку.
Ниже пояснения.
При импорте данных из Paradox 5 в SQL-Server 7 мне надо в DTS-пакете написать VBScript код, который текстовое поле в DOS-кодировке перегонит в текстовое поле в Win-кодировке.
Народ, помогите.
Нужен код VBScript для того, чтобы перекодить строку.
Ниже пояснения.
При импорте данных из Paradox 5 в SQL-Server 7 мне надо в DTS-пакете написать VBScript код, который текстовое поле в DOS-кодировке перегонит в текстовое поле в Win-кодировке.
Самое простое - сделать таблицу соответсствия по кодам. Если знаешь закономерность соответствия кодов, можно просто прибавлять константы к кодам. А вообще, седь полно готовых кодировщиков для этого.
Самое простое - сделать таблицу соответсствия по кодам. Если знаешь закономерность соответствия кодов, можно просто прибавлять константы к кодам. А вообще, седь полно готовых кодировщиков для этого.
Спасибо за ответ. А не мог бы ты дать линк на один из таких кодировщиков?
Спасибо за ответ. А не мог бы ты дать линк на один из таких кодировщиков?
Ну это надо с инете тебе самому поискать. Если у тебя есть время, я могу в начале декабря тебе скинуть соответствия кодов. Только напомни мне.
Ну это надо с инете тебе самому поискать. Если у тебя есть время, я могу в начале декабря тебе скинуть соответствия кодов. Только напомни мне.
А таблицу соответствий очень легко получить самому.
1. Берем любой форум, например, этот.
2. Постим сюда строку:
АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя
3. Когда наше сообщение загрузится, переключаем кодировку в Интернет Эксплорере. И копируем то, что получилось из нашей строки.
└┴┬├─┼и╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀рстуфх╕цчшщъыьэюя
ЁёЄєЇїЎў°∙·√№¤■
Вот тебе таблица к кодировке Dos:
└┴┬├─┼и╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀рстуфх╕цчшщъыьэюя
ЁёЄєЇїЎў°∙·√№¤■
Вариант ещё такой: Набиваем в Excel в 1 столбце коды (цифры) от 33 до 239. Затем пишем макрос, который во 2 столбце пропишет символы по этим кодам (ASC(число)). Затем всё это кидаем в Far какой-нибудь, переключаем кодировку на DOS, заменяем кракозябры на буквы, смотрим их 16-ричные коды, копируем в Excel и переводим в удобный вариант. Получается готовая таблица соответсвия. Потом у себя в программе берёшь код символа. прибавляешь к нему разницу по коду между Win и DOS, и преобразовываешь обратно в символ. Всё. Готово. Проблем, в принципе, не будет, только нужно учитывать, что в DOS-кодировке, по-моему около буквы "р" русской есть разрыв - там, кажется, какой-то код псевдографики вклинился - я сейчас не помню.