1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
| &НаКлиенте
Процедура Конвертировать(Команда)
Объект.Результат = КонвертироватьНаСервере(Объект.ИсходныйТекст);
КонецПроцедуры
&НаСервере
Функция КонвертироватьНаСервере(ИсходнаяСтрока)
Если ПустаяСтрока(ИсходнаяСтрока) Тогда
Возврат "";
КонецЕсли;
МассивЗамен = Новый Массив;
МассивЗамен.Добавить(Новый Структура("Из,В", "А", "A"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Б", "B"));
МассивЗамен.Добавить(Новый Структура("Из,В", "В", "V"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Г", "G"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Д", "D"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Е", "E"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Ё", "YO"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Ж", "ZH"));
МассивЗамен.Добавить(Новый Структура("Из,В", "З", "Z"));
МассивЗамен.Добавить(Новый Структура("Из,В", "И", "I"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Й", "Y"));
МассивЗамен.Добавить(Новый Структура("Из,В", "К", "K"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Л", "L"));
МассивЗамен.Добавить(Новый Структура("Из,В", "М", "M"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Н", "N"));
МассивЗамен.Добавить(Новый Структура("Из,В", "О", "O"));
МассивЗамен.Добавить(Новый Структура("Из,В", "П", "P"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Р", "R"));
МассивЗамен.Добавить(Новый Структура("Из,В", "С", "S"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Т", "T"));
МассивЗамен.Добавить(Новый Структура("Из,В", "У", "U"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Ф", "F"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Х", "KH"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Ц", "TS"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Ч", "CH"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Ш", "SH"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Щ", "SHCH"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Ъ", ""));
МассивЗамен.Добавить(Новый Структура("Из,В", "Ы", "Y"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Ь", ""));
МассивЗамен.Добавить(Новый Структура("Из,В", "Э", "E"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Ю", "YU"));
МассивЗамен.Добавить(Новый Структура("Из,В", "Я", "YA"));
РезультатСтрока = ИсходнаяСтрока;
Для Каждого Замена Из МассивЗамен Цикл
РезультатСтрока = СтрЗаменить(РезультатСтрока, Замена.Из, Замена.В);
РезультатСтрока = СтрЗаменить(РезультатСтрока, НРег(Замена.Из), НРег(Замена.В));
КонецЦикла;
Возврат РезультатСтрока;
КонецФункции
&НаКлиенте
Процедура Очистить(Команда)
Объект.ИсходныйТекст = "";
Объект.Результат = "";
КонецПроцедуры |
