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");
Возврат Слово;
КонецФункции
|
|