1С 8.3 Перевод русских символов в Unicode

Данные > Примеры кода 1С > 1С 8.3 Строка, текст, буквы

ПРИМЕРЫ КОДА 1С

Перейти в раздел примеры кода 1С 8.3:

Функция, которая корректно преобразуют в 1С 8.3 строку из кириллицы в Unicode.

Конвертация строки в Unicode из Латиницы в 1С 8.3:

Функция UnicodeDecodeRus(Строка) Экспорт

   Результат = Строка;

   Символы = Новый СписокЗначений;
   Символы.Добавить("\u0430", "а");
   Символы.Добавить("\u0431", "б");
   Символы.Добавить("\u0432", "в");
   Символы.Добавить("\u0433", "г");
   Символы.Добавить("\u0434", "д");
   Символы.Добавить("\u0435", "е");
   Символы.Добавить("\u0451", Символ(1105));
   Символы.Добавить("\u0436", "ж");
   Символы.Добавить("\u0437", "з");
   Символы.Добавить("\u0438", "и");
   Символы.Добавить("\u0439", "й");
   Символы.Добавить("\u043a", "к");
   Символы.Добавить("\u043b", "л");
   Символы.Добавить("\u043c", "м");
   Символы.Добавить("\u043d", "н");
   Символы.Добавить("\u043e", "о");
   Символы.Добавить("\u043f", "п");
   Символы.Добавить("\u0440", "р");
   Символы.Добавить("\u0441", "с");
   Символы.Добавить("\u0442", "т");
   Символы.Добавить("\u0443", "у");
   Символы.Добавить("\u0444", "ф");
   Символы.Добавить("\u0445", "х");
   Символы.Добавить("\u0446", "ц");
   Символы.Добавить("\u0447", "ч");
   Символы.Добавить("\u0448", "ш");
   Символы.Добавить("\u0448", "щ");
   Символы.Добавить("\u044a", "ъ");
   Символы.Добавить("\u044b", "ы");
   Символы.Добавить("\u044c", "ь");
   Символы.Добавить("\u044d", "э");
   Символы.Добавить("\u044e", "ю");
   Символы.Добавить("\u044f", "я");

   Символы.Добавить("\u0410", "А");
   Символы.Добавить("\u0411", "Б");
   Символы.Добавить("\u0412", "В");
   Символы.Добавить("\u0413", "Г");
   Символы.Добавить("\u0414", "Д");
   Символы.Добавить("\u0415", "Е");
   Символы.Добавить("\u0401", Символ(1025));
   Символы.Добавить("\u0416", "Ж");
   Символы.Добавить("\u0417", "З");
   Символы.Добавить("\u0418", "И");
   Символы.Добавить("\u0419", "Й");
   Символы.Добавить("\u041a", "К");
   Символы.Добавить("\u041b", "Л");
   Символы.Добавить("\u041c", "М");
   Символы.Добавить("\u041d", "Н");
   Символы.Добавить("\u041e", "О");
   Символы.Добавить("\u041f", "П");
   Символы.Добавить("\u0420", "Р");
   Символы.Добавить("\u0421", "С");
   Символы.Добавить("\u0422", "Т");
   Символы.Добавить("\u0423", "У");
   Символы.Добавить("\u0424", "Ф");
   Символы.Добавить("\u0425", "Х");
   Символы.Добавить("\u0426", "Ц");
   Символы.Добавить("\u0427", "Ч");
   Символы.Добавить("\u0428", "Ш");
   Символы.Добавить("\u0428", "Щ");
   Символы.Добавить("\u042a", "Ъ");
   Символы.Добавить("\u042b", "Ы");
   Символы.Добавить("\u042c", "Ь");
   Символы.Добавить("\u042d", "Э");
   Символы.Добавить("\u042e", "Ю");
   Символы.Добавить("\u042f", "Я");
   Символы.Добавить("\u0022", "'");
   Символы.Добавить("\u003E", ">");
   Символы.Добавить("\u003е", ">");
   Символы.Добавить("\u003C", "<");

Символы.Добавить("\u003c", "<");

   Для Каждого ТекСимвол Из Символы Цикл
       Результат = СтрЗаменить(Результат, ТекСимвол.Значение, ТекСимвол.Представление);
   КонецЦикла;

   Возврат Результат;

КонецФункции

комментарии

____________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник