|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.04.2010, 11:21 | #1 |
Новичок
Джуниор
Регистрация: 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ой стоят в соответствии с русскими) спасибо! |
29.04.2010, 11:50 | #2 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
http://www.artlebedev.ru/tools/decoder/advanced/ Когда узнаете, что за кодировка - будем думать, как сделать макрос. А вообще, зачем макрос - на указанном сайте конвертировать тексты намного удобнее... (добавлено) Вообще, чтобы раз и навсегда решить проблему, надо в реестре Windows изменить пару значений. Проще всего это сделать, используя утилиту XPTweaker - там надо поставить всего одну галочку.
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 29.04.2010 в 12:00. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переводчик в 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 |