Функция перекодировки в транслит


Транслит в действии: больше не нужно ходить на сайт translit.ru, можно все делать в 1С

Иногда возникает проблема перевода текста с русского в транслит. Эта маленькая обработка делает именно эту функцию. Написано немного некрасиво. Но по пожеланиям пользователей могу улучшить. Обращайтесь. Также будет дорабатываться транслитерация Lat—>Cyr

Использование:

Транслит = ВнешниеОбработки.Создать(ПутьКОбработке);
СтрокаТранслитом = Транслит.Транслит(СтрокаКирилицы);

Функция Транслит экспортирована. Открывать форму нет необходимости (Есть форма для тестирования, сделал).

3 Comments

  1. ILYA1C

    Спасибо, работает отлично

    Reply
  2. almas

    Извини, но минус. Очень не красиво сделано.

    Есть три стандарта кодировки в транслит, ты реализовал самый простой и извини ДААлеко не оптимальным способом.

    Посмотри похожие публикации

    Reply
  3. WKBAPKA

    а мне понравилось. простая обработка, то что нужно. нужно было штрих-код в Code 128 сформировать из номера документа, а префиксы кириллицей. Писать влом. Другие решения уж больно заумные. Автору спасибо. Выручил.

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *