3.
foxey
4
23.12.09 10:07
Сейчас в теме
Так понимаю, все переводится в верхний регистр... Я такую вот функцию написал в свое время:
Функция Транслитерация(Стр) ЭКСПОРТ
Рез = СокрЛП(Стр);
СтрРус = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
СтрАнг = "ABVGDEEZHZIYKLMNOPRSTUFHTSCHSHSCH Y EYUYA";
КолСим = "111111121111111111111112223111122";
СтрРус = СтрРус + Нрег(СтрРус);
СтрАнг = СтрАнг + Нрег(СтрАнг);
КолСим = КолСим + КолСим;
Для сч = 1 по СтрДлина(СтрРус) Цикл
Место = 1;
Для сч1 = 1 по сч-1 Цикл
Место = Место + Число(Сред(КолСим,сч1,1));
КонецЦикла;
Рез = СтрЗаменить(Рез, Сред(СтрРус,сч,1), СокрЛП(Сред(СтрАнг,Место,Число(Сред(КолСим,сч,1)))));
КонецЦикла;
Возврат Рез;
КонецФункции
Не переводит все в Капс.