admin/kb-personal
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add

Browse Source
This commit is contained in:
wakadakawaka 2025-06-15 14:02:35 +05:00
parent e668763b96
commit 73e622d9dd
1 changed files with 103 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
src/content/docs/knowledge-base/Примеры кода, шаблоны/Общее/Работа с текстом/Конвертация текста с русской на английскую раскладку.md Normal file
View File

@ -0,0 +1,103 @@
---
title: Конвертация текста с русской на английскую раскладку
---
```bsl
&НаКлиенте
Процедура КириллицаВЛатиницу(Строка)
Строка = СокрЛП(Строка);
// Нижний регистр
Раскладка = Новый Соответствие;
Раскладка.Вставить("й", "q");
Раскладка.Вставить("ц", "w");
Раскладка.Вставить("у", "e");
Раскладка.Вставить("к", "r");
Раскладка.Вставить("е", "t");
Раскладка.Вставить("н", "y");
Раскладка.Вставить("г", "u");
Раскладка.Вставить("ш", "i");
Раскладка.Вставить("щ", "o");
Раскладка.Вставить("з", "p");
Раскладка.Вставить("х", "[");
Раскладка.Вставить("ъ", "]");
Раскладка.Вставить("ф", "a");
Раскладка.Вставить("ы", "s");
Раскладка.Вставить("в", "d");
Раскладка.Вставить("а", "f");
Раскладка.Вставить("п", "g");
Раскладка.Вставить("р", "h");
Раскладка.Вставить("о", "j");
Раскладка.Вставить("л", "k");
Раскладка.Вставить("д", "l");
Раскладка.Вставить("ж", ";");
Раскладка.Вставить("э", "'");
Раскладка.Вставить("я", "z");
Раскладка.Вставить("ч", "x");
Раскладка.Вставить("с", "c");
Раскладка.Вставить("м", "v");
Раскладка.Вставить("и", "b");
Раскладка.Вставить("т", "n");
Раскладка.Вставить("ь", "m");
Раскладка.Вставить("б", ",");
Раскладка.Вставить("ю", ".");
Раскладка.Вставить(".", "/");
// Верхний регистр
Раскладка.Вставить("Й", "Q");
Раскладка.Вставить("Ц", "W");
Раскладка.Вставить("У", "E");
Раскладка.Вставить("К", "R");
Раскладка.Вставить("Е", "T");
Раскладка.Вставить("Н", "Y");
Раскладка.Вставить("Г", "U");
Раскладка.Вставить("Ш", "I");
Раскладка.Вставить("Щ", "O");
Раскладка.Вставить("З", "P");
Раскладка.Вставить("Х", "{");
Раскладка.Вставить("Ъ", "}");
Раскладка.Вставить("Ф", "A");
Раскладка.Вставить("Ы", "S");
Раскладка.Вставить("В", "D");
Раскладка.Вставить("А", "F");
Раскладка.Вставить("П", "G");
Раскладка.Вставить("Р", "H");
Раскладка.Вставить("О", "J");
Раскладка.Вставить("Л", "K");
Раскладка.Вставить("Д", "L");
Раскладка.Вставить("Ж", ":");
Раскладка.Вставить("Э", """");
Раскладка.Вставить("Я", "Z");
Раскладка.Вставить("Ч", "X");
Раскладка.Вставить("С", "C");
Раскладка.Вставить("М", "V");
Раскладка.Вставить("И", "B");
Раскладка.Вставить("Т", "N");
Раскладка.Вставить("Ь", "M");
Раскладка.Вставить("Б", "<");
Раскладка.Вставить("Ю", ">");
Раскладка.Вставить(",", "?");
Раскладка.Вставить("""", "@");
Раскладка.Вставить(";", "$");
Раскладка.Вставить(":", "^");
Раскладка.Вставить("?", "&");
СимволыНовойСтроки = Новый Массив;
Для Сч = 1 По СтрДлина(Строка) Цикл
Символ = Сред(Строка, Сч, 1);
СоответствующийСимвол = Раскладка.Получить(Символ);
Если СоответствующийСимвол = Неопределено Тогда
СимволыНовойСтроки.Добавить(Символ);
Иначе
СимволыНовойСтроки.Добавить(СоответствующийСимвол);
КонецЕсли;
КонецЦикла;
Строка = СтрСоединить(СимволыНовойСтроки, "");
КонецПроцедуры
```