Функция транслит в 1с

17.10.11

Данная обработка формирует транслит в 1с 8

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Обработка транслит 1с 8 .epf 6,87Kb 209	209	2 500 руб. Купить	1 SM Скачать

Случилось так, что нужно формировать смс на транслите для этого написал данную функцию

Sluchilos tak, chto nuzhno formirovat sms na translite dlya etogo napisal dannuyu funktsiyu

Вступайте в нашу телеграмм-группу Инфостарт

+22 –

См. также

Заполнение формул в файлах Excel (кроссплатформенное решение)

Загрузка и выгрузка в Excel Универсальные функции Программист 1С:Предприятие 8 Россия Бесплатно (free)

Описанный ниже подход позволяет в три шага заполнять формулы в Excel файлы, вне зависимости от ОС сервера (MS Windows Server или Linux). Подход подразумевает отказ от работы с COM-объектом в пользу работы через "объектную модель документа" (DOM).

30.10.2025 3763 Abysswalker 9

Отключение уведомления "Расширение конфигурации неактивно"

Универсальные функции Работа с интерфейсом Программист 1С:Предприятие 8 Бесплатно (free)

Порой необходимо временно отключить расширение 1С, не удаляя его, чтобы не потерять данные. Но в этом случае при каждом запуске всем будет лезть уведомление о неактивном расширении, хотя очевидно, это техническая информация, которой не стоит лишний раз пугать пользователей.

14.05.2025 7071 DeerCven 15

В помощь разработчику: преобразование табличного документа в запрос

Инструментарий разработчика Универсальные функции Запросы Программист 1С:Предприятие 8 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Бесплатно (free)

Внешняя обработка для создания запроса на основании табличных данных.

22.07.2024 9982 241 ixijixi 10

Загрузка табличного документа в таблицу значений. Пять строк кода, которые изменили мир

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024 50823 dimanich70 83

170

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024 7484 7 John_d 13

GUID в 1С 8.3

Универсальные функции Программист Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024 64219 atdonya 31

Переоткрытие внешних обработок

Универсальные функции Программист 1С:Предприятие 8 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023 9359 ke.92@mail.ru 17

Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Программист Бизнес-аналитик 1C:Бухгалтерия Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023 42759 YA_418728146 14

128

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. EastGuy 53 17.10.11 13:13 Сейчас в теме

Какая применяется таблица перевода символов?

2. dima1c 46 17.10.11 14:24 Сейчас в теме

http://forums.webscript.ru/translite.html вот такая .

8. zsrg 346 07.07.12 19:27 Сейчас в теме

(2)
Слегка изменил Вашу функции до одной, убрал лишнюю операцию разложения строки:

Функция Транслит(Вход) 
	Коды = Новый Соответствие;
	Коды.Вставить("ё","yo");
	Коды.Вставить("Ё","Yo");
	Нач = КодСимвола("А");
	Англ = "A" "B" "V" "G" "D" "E" "Zh" "Z" "I" "Y" "K" "L" "M" "N" "O" "P" "R" "S" "T" "U" "F" "Kh" "Ts" "Ch" "Sh" "Shch" "" "Y" "" "E" "Yu" "Ya" "a" "b" "v" "g" "d" "e" "zh" "z" "i" "y" "k" "l" "m" "n" "o" "p" "r" "s" "t" "u" "f" "kh" "ts" "ch" "sh" "shch" "" "y" "" "e" "yu" "ya";
	Для К = Нач по КодСимвола("я") Цикл
		Коды.Вставить(Символ(К), СтрПолучитьСтроку(Англ, К - Нач + 1));
	КонецЦикла;
	Выход = "";
	Для К=1 по СтрДлина(Вход) Цикл
		Бкв = Сред(Вход,К,1);
		Зн = Коды.Получить(Бкв);
		Выход = Выход + ?(Зн = Неопределено, Бкв, Зн);
	КонецЦикла;
	Возврат Выход;
КонецФункции

Показать

Ответить

3. galyausik1 4 19.10.11 10:32 Сейчас в теме

Очень интересно

4. evrakylon 19.10.11 15:32 Сейчас в теме

Видел функцию транслитерации в рарусовском "Магазине автозапчастей"

5. dima1c 46 19.10.11 17:38 Сейчас в теме

(4) evrakylon, эту сам писал... Конфу эту в глаза не видел;)

6. Boudybuilder 35 02.12.11 23:11 Сейчас в теме

Полезная обработка!
Спасибо за старания.
Класная и простая!

7. fixin 4325 04.04.12 11:05 Сейчас в теме

зря писал. у Гения 1с в библиотеке функций давно написана.

9. Zircool 193 19.09.12 12:14 Сейчас в теме

Спасибо, пригодились функции.

10. igorberezhnov 31.01.13 12:16 Сейчас в теме

Перем ТрансХ[3];


Процедура ИнициализацияТранслитерации()
	ТрансХ[1] = "A:B:V:G:D:E:YO:ZH:Z:I:Y:K:L:M:N:O:P:R:S:T:U:F:H:C:CH:SH:SCH:':Y:':E:YU:YA";
	ТрансХ[2] = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
	НС=1;СД=СтрДлина(ТрансХ[1]);
	Для I=1 По СтрДлина(ТрансХ[2]) Цикл
	Т=0;
	Для J=НС По СД Цикл
	Если Сред(ТрансХ[1],J,1)=":" Тогда Прервать;Иначе Т=Т+1;КонецЕсли;
	КонецЦикла;
	ТрансХ[3]=ТрансХ[3]+Симв(НС)+Симв(Т);НС=НС+Т+1;
	КонецЦикла;
КонецПроцедуры
	
Функция Транслитерация(СР)
	Р="";
	Для I=1 По СтрДлина(СР) Цикл
	СД=Сред(СР,I,1);С=ВРег(СД);ВН=?(СД<>С,1,0);
	П=Найти(ТрансХ[2],С);
	Если П>0 Тогда
	С=Сред(ТрансХ[3],(П*2)-1,2);С=Сред(ТрансХ[1],КодСимв(С),КодСимв(Прав(С,1)));
	Р=Р+?(ВН=1,НРег(С),С);
	Иначе Р=Р+С;
	КонецЕсли;
	КонецЦикла;
	Возврат Р;
КонецФункции

Показать

11. Romeooo 79 12.02.13 23:20 Сейчас в теме

Спасибо! Полчаса времени сэкономил.:)

12. tovpeko 15.01.14 19:07 Сейчас в теме

Спасибо!

13. Progus 15.01.14 21:13 Сейчас в теме

Спасибо! Как раз вовремя!

14. sh_ 05.07.18 13:25 Сейчас в теме

Спасибо! Спасли!!!!!

15. name17 07.04.20 19:36 Сейчас в теме

БСП: СтроковыеФункцииКлиентСервер.СтрокаЛатиницей()

Ответить

16. Suslik_Johns 03.06.20 14:49 Сейчас в теме

(15)

СтроковыеФункцииКлиентСервер

Спасибо за подсказку! ;)

17. valeron465 27.08.21 10:45 Сейчас в теме

Функция СтрокаЛатиницей(Стр) Экспорт
	СтрЗамен = "A,B,V,G,D,E,Yo,Zh,Z,I,Y,K,L,M,N,O,P,R,S,T,U,F,H,C,Ch,Sh,Sch,Y,E,Yu,Ya";
	СтрКириллица = "А,Б,В,Г,Д,Е,Ё,Ж,З,И,Й,К,Л,М,Н,О,П,Р,С,Т,У,Ф,Х,Ц,Ч,Ш,Щ,,Ы,,Э,Ю,Я";	
	МасЗамен = СтрРазделить(СтрЗамен, ",");
	МасКириллица = СтрРазделить(СтрКириллица, ",");
	
	СтрЛат = "0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,R,S,T,Q,U,V,X,Y,Z,W";	
	МасЛат = СтрРазделить(СтрЛат, ",");
	Результат = "";
	Для сч = 1 по СтрДлина(Стр) Цикл
		Симв = Сред(Стр, сч, 1);
		Если МасЛат.Найти(ВРег(Симв)) <> Неопределено Тогда
			СимвЛат = Симв;	
		Иначе
			Инд = МасКириллица.Найти(ВРег(Симв));
			Если Инд = Неопределено Тогда
				Продолжить;
			КонецЕсли;
			Если Симв = МасКириллица[Инд] Тогда   //значит исходный символ в верхнем регистре
				СимвЛат = МасЗамен[Инд];
			Иначе
				СимвЛат = НРег(МасЗамен[Инд]);
			КонецЕсли;
		КонецЕсли;
		Результат = Результат + СимвЛат;
	КонецЦикла;
	Возврат Результат;
КонецФункции

Показать

Для отправки сообщения требуется регистрация/авторизация

Автор:

(dima1c)

Рейтинг: 46

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 94760

Создание 17.10.11 10:55

Обновление 17.10.11 11:26

Статистика:

Просмотры 27585

Загрузки 209

Рейтинг 22

Комментарии 17

Характеристики:

Код открыт Не указано

Рубрики Универсальные функции

Кому Для всех

Тип файла Внешняя обработка (ert,epf)

Платформа 1С:Предприятие 8

Конфигурация 1C:Бухгалтерия

Операционная система Не имеет значения

Страна Россия

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Абонемент ($m)