Имя: Пароль:
1C
Спам
Перевод символов с кириллицы на латиницу
0 чувак
 
24.09.08
09:35
Вообщем средствами встроенного языка нужна такая функция.
Например, "Ровшанов Джамшут Абдуллаевич" надо переводить на "Rovshanov Dzhamshut Abdullaevich"
Я написал функцию, но думаю она кривая :))
У кого есть мысли получше ?

Процедура Перевод()
   Кириллица = "А*Б*В*Г*Д*Е*Ж*З*И*К*Л*М*Н*О*П*Р*С*Т*У*Ф*Х*Ц*Ч*Ш*Щ*Э*Ю*Я*ЬЪ";
   Латин      = "A B V G D E ZHZ I K L M N O P R S T U F X TSCHSHSHE YUYA  ";
   БукваЛатин = "";
   Для А = 1 По СтрДлина(СокрЛП(АА)) Цикл
       БукваКирилл = Сред(АА,А,1);                                      
       ПозицияБуквы = Найти(Кириллица,Врег(БукваКирилл));
       БукваЛатин2   = СокрЛП(Сред(Латин,ПозицияБуквы,2));
       Если БукваКирилл = Нрег(БукваКирилл)Тогда
           БукваЛатин2 = Нрег(БукваЛатин2);
       КонецЕсли;
       БукваЛатин  = БукваЛатин + ?(БукваКирилл = " "," ",БукваЛатин2);
   КонецЦикла;            
   Возврат БукваЛатин;
КонецФункции
1 чувак
 
24.09.08
09:49
модери, уберите пожалста эту ветку, это клон
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.