Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.04.2010, 11:21   #1
cosharika
Новичок
Джуниор
 
Регистрация: 29.04.2010
Сообщений: 1
По умолчанию переводчик из кодировки в кодировку

Добрый день/утро/вечер и пр...
давно не писала код. очень давно. не помню даже самого простого. да и задача стоит - для личного пользования и любопытства.

проблема: в аське периодически приходят сообщения "на китайском" в непонятной кодировке. (все оффлайн сообщения, либо от определенных контактов) кодировка типа "Ïðèâåò" = "привет". опытным путем вывела соответствия между русскими буквами и "китайскими буквами"
но каждый раз как шифровку разбирать или просить повторить - надоело.

вопрос:
1. кто знает, что это за кодировка?
2. хочу написать макрос (решила, что это проще всего) на замену букв.
и тут есть 2 варианта: 1) формула - выбор соответсвия из колонки (не помню как этот цикл пишется(((
2) просто найти и заменть. но VBA (который режим кода) не понимает эту кодировку((( т.е. штатные средства Excel (найти и заменить) работают, но в макрос не записываются. вернее, выглядит это вот так:

Cells.Replace What:="c", Replacement:="з", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="o", Replacement:="х", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="o", Replacement:="ф", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

как можно заставить VBA брать именно эти китайские буквы?
можно ли как-то навертеть, чтобы она брала значение из конкретной ячейки (на соседнем листе все китайские буковки по 1ой стоят в соответствии с русскими)


спасибо!
cosharika вне форума Ответить с цитированием
Старый 29.04.2010, 11:50   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
кто знает, что это за кодировка?
Используйте этот декодер для перевода и определения кодировки:
http://www.artlebedev.ru/tools/decoder/advanced/

Когда узнаете, что за кодировка - будем думать, как сделать макрос.
А вообще, зачем макрос - на указанном сайте конвертировать тексты намного удобнее...

(добавлено)
Вообще, чтобы раз и навсегда решить проблему, надо в реестре Windows изменить пару значений.
Проще всего это сделать, используя утилиту XPTweaker - там надо поставить всего одну галочку.

Последний раз редактировалось EducatedFool; 29.04.2010 в 12:00.
EducatedFool вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переводчик в Delphi dani92 Общие вопросы Delphi 28 08.04.2015 18:00
Переводчик Jinno Фриланс 10 05.11.2009 21:45
Переводчик на js Alfonso1 JavaScript, Ajax 1 23.10.2009 13:49
Переводчик на паскаль Николайghghghgh Фриланс 12 13.10.2009 00:07
Программа - переводчик iukash Софт 5 02.06.2009 16:54