Перевод Символов С Кириллицы На Латиницу

20.02.2013
16
0
#1
Всем привет!
есть макет который заполняется с базы как обычно на кирилице.
Необходимо перевести строки с макета в латиницу...

как такое можно сделать??
есть ли метод подобный этому :

ФормСтрокаАнг = "Л = en_US; ДП = Истина";
ПарПредметаАнг ="dollar, dollars,cent, cents,2";

Итог.Параметры.Итого = Строка(сумма) +" ("+ ЧислоПрописью(сумма, ФормСтрока, ПарПредмета) + ") долларов США";
 

Дайнеко

Well-Known Member
19.11.2009
951
0
53
Минск
#2
Нет, только перебивать макет.
Красиво сделать 2 макета. И программа на выбор дает один из них на нужном языке.
 
20.02.2013
16
0
#3
Так в одном макете присутствуют записи и на английском и на русском!
 

Дайнеко

Well-Known Member
19.11.2009
951
0
53
Минск
#4
Нет, что-то я русский плохо понимаю. Они сейчас "присутствуют"? В заглавном посте написано: "заполняется с базы как обычно на кирилице".
Сможете объяснить, как там написана фраза: "Счет № [НомерДок]".
 
20.02.2013
16
0
#5
Вот я и пишу. В базе Кирилица, а в макете необходимо создать поля тип которых - следующий
Маша Жопова / Mawa Jopova

В ручную заполнять более 1000 записей не реально)
вычитал про транслитерацию, но понятия не имею как это работает.
 
20.02.2013
16
0
#6
Вот я и пишу. В базе Кирилица, а в макете необходимо создать поля тип которых - следующий
Маша Жопова / Mawa Jopova

В ручную заполнять более 1000 записей не реально)
вычитал про транслитерацию, но понятия не имею как это работает.
Вот данные макета:

Имя / Name
Маша Жопова / Mawa Jopova

Итого к выплате: 0 (Ноль долларов ноль центов) долларов США
In total due to pay: 0 (Zero dollars zero cents) US Dollars

Вот как мне перевести на латиницу то что подчеркнуто, в то чего нет в базе и вряд ли будет выделено жирным
 
20.02.2013
16
0
#7
Ээ короче... пока здесь ответа дождешься, дахрена умников выслушаешь..

Для тех кто напорется на эту тему!

Код:
Функция Транслит(Знач Текст) Экспорт
Текст = СтрЗаменить(Текст, "а","a");
Текст = СтрЗаменить(Текст, "б","b");
Текст = СтрЗаменить(Текст, "в","v");
Текст = СтрЗаменить(Текст, "г","g");
Текст = СтрЗаменить(Текст, "д","d");
Текст = СтрЗаменить(Текст, "е","e");
Текст = СтрЗаменить(Текст, "ё","e");
Текст = СтрЗаменить(Текст, "ж","zh");
Текст = СтрЗаменить(Текст, "з","z");
Текст = СтрЗаменить(Текст, "и","i");
Текст = СтрЗаменить(Текст, "к","k");
Текст = СтрЗаменить(Текст, "л","l");
Текст = СтрЗаменить(Текст, "м","m");
Текст = СтрЗаменить(Текст, "н","n");
Текст = СтрЗаменить(Текст, "о","o");
Текст = СтрЗаменить(Текст, "п","p");
Текст = СтрЗаменить(Текст, "р","r");
Текст = СтрЗаменить(Текст, "с","s");
Текст = СтрЗаменить(Текст, "т","t");
Текст = СтрЗаменить(Текст, "у","u");
Текст = СтрЗаменить(Текст, "ф","f");
Текст = СтрЗаменить(Текст, "х","h");
Текст = СтрЗаменить(Текст, "ч","ch");
Текст = СтрЗаменить(Текст, "ш","sh");
Текст = СтрЗаменить(Текст, "щ","sch");
Текст = СтрЗаменить(Текст, "ъ","");
Текст = СтрЗаменить(Текст, "ь","'");
Текст = СтрЗаменить(Текст, "э","e");
Текст = СтрЗаменить(Текст, "ю","yu");
Текст = СтрЗаменить(Текст, "й","i");
Текст = СтрЗаменить(Текст, "ц","c");
Текст = СтрЗаменить(Текст, "я","ya");
Текст = СтрЗаменить(Текст, "ы","i");
Текст = СтрЗаменить(Текст, "А","A");
Текст = СтрЗаменить(Текст, "Б","B");
Текст = СтрЗаменить(Текст, "В","V");
Текст = СтрЗаменить(Текст, "Г","G");
Текст = СтрЗаменить(Текст, "Д","D");
Текст = СтрЗаменить(Текст, "Е","E");
Текст = СтрЗаменить(Текст, "Ё","E");
Текст = СтрЗаменить(Текст, "Ж","Zh");
Текст = СтрЗаменить(Текст, "З","Z");
Текст = СтрЗаменить(Текст, "И","I");
Текст = СтрЗаменить(Текст, "К","K");
Текст = СтрЗаменить(Текст, "Л","L");
Текст = СтрЗаменить(Текст, "М","M");
Текст = СтрЗаменить(Текст, "Н","N");
Текст = СтрЗаменить(Текст, "О","O");
Текст = СтрЗаменить(Текст, "П","P");
Текст = СтрЗаменить(Текст, "Р","R");
Текст = СтрЗаменить(Текст, "С","S");
Текст = СтрЗаменить(Текст, "Т","T");
Текст = СтрЗаменить(Текст, "У","U");
Текст = СтрЗаменить(Текст, "Ф","F");
Текст = СтрЗаменить(Текст, "Х","H");
Текст = СтрЗаменить(Текст, "Ч","Ch");
Текст = СтрЗаменить(Текст, "Ш","Sh");
Текст = СтрЗаменить(Текст, "Щ","Sch");
Текст = СтрЗаменить(Текст, "Ъ","");
Текст = СтрЗаменить(Текст, "Ь","");
Текст = СтрЗаменить(Текст, "Ы","I");
Текст = СтрЗаменить(Текст, "Ц","C");
Текст = СтрЗаменить(Текст, "Э","E");
Текст = СтрЗаменить(Текст, "Ю","Yu");
Текст = СтрЗаменить(Текст, "Я","Ya");
Текст = СтрЗаменить(Текст, "Й","I"); 

Возврат Текст;
КонецФункции
Далее в макете подставляете параметры, т.е. так

Код:
некоеСлово = Транслит("привет");
Сообщить(некоеСлово);