Ниже пример декодирования из юникода в кириллицу
|
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 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
Перем ТЗ_Уникод; Процедура ИнициализироватьТЗ_Уникод() ТЗ_Уникод = СоздатьОбъект("ТаблицаЗначений"); ТЗ_Уникод.НоваяКолонка("Код","Строка",4); ТЗ_Уникод.НоваяКолонка("Символ","Строка",1); ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0410"; ТЗ_Уникод.Символ = "А"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0411"; ТЗ_Уникод.Символ = "Б"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0412"; ТЗ_Уникод.Символ = "В"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0413"; ТЗ_Уникод.Символ = "Г"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0414"; ТЗ_Уникод.Символ = "Д"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0415"; ТЗ_Уникод.Символ = "Е"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0416"; ТЗ_Уникод.Символ = "Ж"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0417"; ТЗ_Уникод.Символ = "З"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0418"; ТЗ_Уникод.Символ = "И"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0419"; ТЗ_Уникод.Символ = "Й"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "041A"; ТЗ_Уникод.Символ = "К"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "041B"; ТЗ_Уникод.Символ = "Л"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "041C"; ТЗ_Уникод.Символ = "М"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "041D"; ТЗ_Уникод.Символ = "Н"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "041E"; ТЗ_Уникод.Символ = "О"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "041F"; ТЗ_Уникод.Символ = "П"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0420"; ТЗ_Уникод.Символ = "Р"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0421"; ТЗ_Уникод.Символ = "С"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0422"; ТЗ_Уникод.Символ = "Т"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0423"; ТЗ_Уникод.Символ = "У"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0424"; ТЗ_Уникод.Символ = "Ф"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0425"; ТЗ_Уникод.Символ = "Х"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0426"; ТЗ_Уникод.Символ = "Ц"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0427"; ТЗ_Уникод.Символ = "Ч"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0428"; ТЗ_Уникод.Символ = "Ш"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0429"; ТЗ_Уникод.Символ = "Щ"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "042A"; ТЗ_Уникод.Символ = "Ъ"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "042B"; ТЗ_Уникод.Символ = "Ы"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "042C"; ТЗ_Уникод.Символ = "Ь"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "042D"; ТЗ_Уникод.Символ = "Э"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "042E"; ТЗ_Уникод.Символ = "Ю"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "042F"; ТЗ_Уникод.Символ = "Я"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0430"; ТЗ_Уникод.Символ = "а"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0431"; ТЗ_Уникод.Символ = "б"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0432"; ТЗ_Уникод.Символ = "в"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0433"; ТЗ_Уникод.Символ = "г"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0434"; ТЗ_Уникод.Символ = "д"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0435"; ТЗ_Уникод.Символ = "е"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0436"; ТЗ_Уникод.Символ = "ж"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0437"; ТЗ_Уникод.Символ = "з"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0438"; ТЗ_Уникод.Символ = "и"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0439"; ТЗ_Уникод.Символ = "й"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "043A"; ТЗ_Уникод.Символ = "к"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "043B"; ТЗ_Уникод.Символ = "л"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "043C"; ТЗ_Уникод.Символ = "м"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "043D"; ТЗ_Уникод.Символ = "н"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "043E"; ТЗ_Уникод.Символ = "о"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "043F"; ТЗ_Уникод.Символ = "п"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0440"; ТЗ_Уникод.Символ = "р"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0441"; ТЗ_Уникод.Символ = "с"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0442"; ТЗ_Уникод.Символ = "т"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0443"; ТЗ_Уникод.Символ = "у"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0444"; ТЗ_Уникод.Символ = "ф"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0445"; ТЗ_Уникод.Символ = "х"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0446"; ТЗ_Уникод.Символ = "ц"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0447"; ТЗ_Уникод.Символ = "ч"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0448"; ТЗ_Уникод.Символ = "ш"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0449"; ТЗ_Уникод.Символ = "щ"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "044A"; ТЗ_Уникод.Символ = "ъ"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "044B"; ТЗ_Уникод.Символ = "ы"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "044C"; ТЗ_Уникод.Символ = "ь"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "044D"; ТЗ_Уникод.Символ = "э"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "044E"; ТЗ_Уникод.Символ = "ю"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "044F"; ТЗ_Уникод.Символ = "я"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0401"; ТЗ_Уникод.Символ = "Ё"; ТЗ_Уникод.НоваяСтрока(); ТЗ_Уникод.Код = "0451"; ТЗ_Уникод.Символ = "ё"; КонецПроцедуры Функция УникодКириллица_Декодировать(лСтрока) ТЗ_Уникод.ВыбратьСтроки(); Пока ТЗ_Уникод.ПолучитьСтроку() = 1 Цикл лСтрока = СтрЗаменить(лСтрока,"\u"+нРег(ТЗ_Уникод.Код),ТЗ_Уникод.Символ); КонецЦикла; Возврат лСтрока; КонецФункции ИнициализироватьТЗ_Уникод(); |