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

Тема в разделе "1C и всё что с ней связано", создана пользователем Peacedeath, 4 мар 2013.

  1. Peacedeath

    Peacedeath Member

    Регистрация:
    20 фев 2013
    Сообщения:
    16
    Симпатии:
    0
    Всем привет!
    есть макет который заполняется с базы как обычно на кирилице.
    Необходимо перевести строки с макета в латиницу...

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

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

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

    Дайнеко Well-Known Member
    1C Team

    Регистрация:
    19 ноя 2009
    Сообщения:
    951
    Симпатии:
    0
    Нет, только перебивать макет.
    Красиво сделать 2 макета. И программа на выбор дает один из них на нужном языке.
     
  3. Peacedeath

    Peacedeath Member

    Регистрация:
    20 фев 2013
    Сообщения:
    16
    Симпатии:
    0
    Так в одном макете присутствуют записи и на английском и на русском!
     
  4. Дайнеко

    Дайнеко Well-Known Member
    1C Team

    Регистрация:
    19 ноя 2009
    Сообщения:
    951
    Симпатии:
    0
    Нет, что-то я русский плохо понимаю. Они сейчас "присутствуют"? В заглавном посте написано: "заполняется с базы как обычно на кирилице".
    Сможете объяснить, как там написана фраза: "Счет № [НомерДок]".
     
  5. Peacedeath

    Peacedeath Member

    Регистрация:
    20 фев 2013
    Сообщения:
    16
    Симпатии:
    0
    Вот я и пишу. В базе Кирилица, а в макете необходимо создать поля тип которых - следующий
    Маша Жопова / Mawa Jopova

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

    Peacedeath Member

    Регистрация:
    20 фев 2013
    Сообщения:
    16
    Симпатии:
    0
    Вот данные макета:

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

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

    Вот как мне перевести на латиницу то что подчеркнуто, в то чего нет в базе и вряд ли будет выделено жирным
     
  7. Peacedeath

    Peacedeath Member

    Регистрация:
    20 фев 2013
    Сообщения:
    16
    Симпатии:
    0
    Ээ короче... пока здесь ответа дождешься, дахрена умников выслушаешь..

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

    Код ( (Unknown Language)):
    Функция Транслит(Знач Текст) Экспорт
    Текст = СтрЗаменить(Текст, "а","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");

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

    Код ( (Unknown Language)):
    некоеСлово = Транслит("привет");
    Сообщить(некоеСлово);
     
Загрузка...

Поделиться этой страницей