Имя: Пароль:
1C
1С v8
Перевод текста в 1с
0 Valery
 
14.11.19
11:38
есть необходимость перевести несколько слов на английский. Слова собственные, т.е  просто заменить русские буквы на латинские. Есть ли какие функции в 1с или внешние сервисы с таким функционалом
1 vova1122
 
14.11.19
11:51
(0) В Интерфейсе поменят? В тексте модуля поменять? В данных (например в каком то справочнике Наименование)? Или где?
2 Случайный прохожий
 
14.11.19
12:02
Транслит имеете ввиду?
3 D_E_S_131
 
14.11.19
12:21
Функция ЗаменитьОдниСимволыДругими(Что,Где,НаЧто) Экспорт
    Рез = Где;
    Для Сч = 1 По СтрДлина(Что) Цикл
        Рез = СтрЗаменить(Рез,Сред(Что,Сч,1),Сред(НаЧто,Сч,1));
    КонецЦикла;
    Возврат Рез;
КонецФункции //ЗаменитьОдниСимволыДругими

Функция ПолучитьСловоНаЛатинском(Знач Слово) Экспорт
    //ГОСТ Р 52535.1-2006, т.к. он применяется для загранпаспортов
    Слово=СтрЗаменить(Слово,"ж","zh");    
    Слово=СтрЗаменить(Слово,"х","kh");       Слово=СтрЗаменить(Слово,"ц","ts");
    Слово=СтрЗаменить(Слово,"ц","ts");  //TS
    Слово=СтрЗаменить(Слово,"ч","ch");
    Слово=СтрЗаменить(Слово,"ш","sh");
    Слово=СтрЗаменить(Слово,"щ","shch"); //SHCH  было CHSH
    Слово=СтрЗаменить(Слово,"ъ","ie");  //IE бЫЛО ПУСТО
    Слово=СтрЗаменить(Слово,"ь","");
    Слово=СтрЗаменить(Слово,"ю","iu");  //IU было YU
    Слово=СтрЗаменить(Слово,"я","ia");  //IA  было YA
    Слово=ЗаменитьОдниСимволыДругими("абвгдеёзийклмнопрстуфыэ",Слово,"abvgdeeziiklmnoprstufye");
    Слово=СтрЗаменить(Слово,"Ж","ZH"); //ZH  
    Слово=СтрЗаменить(Слово,"Х","KH"); //KH
    Слово=СтрЗаменить(Слово,"Ц","TS");  //TS
    Слово=СтрЗаменить(Слово,"Ч","CH");  //CH
    Слово=СтрЗаменить(Слово,"Ш","SH");  //SH
    Слово=СтрЗаменить(Слово,"Щ","SHCH");  //SHCH  было CHSH
    Слово=СтрЗаменить(Слово,"Ъ","IE");  //IE бЫЛО ПУСТО
    Слово=СтрЗаменить(Слово,"Ь","");
    Слово=СтрЗаменить(Слово,"Ю","IU");  //IU было YU
    Слово=СтрЗаменить(Слово,"Я","IA");  //IA  было YA
    Слово=ЗаменитьОдниСимволыДругими("АБВГДЕЁЗИЙКЛМНОПРСТУФЫЭ",Слово,"ABVGDEEZIIKLMNOPRSTUFYE");
    Возврат Слово;                    
КонецФункции
4 Случайный прохожий
 
14.11.19
12:28
Можно по разному переводить, в зависимости от целей. С правилами перевода можно ознакомиться на translit-online.ru
5 Valery
 
14.11.19
13:15
собственно (3). Должно думаю помочь. Спасибо коллеги.
6 pasha_d
 
14.11.19
14:45
Я РС создал, где прописано соответствие русских и английских слов
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший