1C 77 Unicode

Ниже пример декодирования из юникода в кириллицу

Перем ТЗ_Уникод;

Процедура ИнициализироватьТЗ_Уникод()
	ТЗ_Уникод = СоздатьОбъект("ТаблицаЗначений");
	ТЗ_Уникод.НоваяКолонка("Код","Строка",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"+нРег(ТЗ_Уникод.Код),ТЗ_Уникод.Символ);
	КонецЦикла;
	
	Возврат лСтрока;
	
КонецФункции

ИнициализироватьТЗ_Уникод();

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *