// Функция переводит обычную cтроку в шестнадцатеричное представление

// Параметры:

//            ТекстСообщения           - Строка              - Текст сообщения

//            ТипКодировки                - Число                                - Тип кодировки (1 - каждый символ представляется 2 байтами, 0 - 1 байтом)

// Возвращаемое значение: Строка - Строка после перекодировки

//

Функция Str2Hex(ТекстСообщения, ТипКодировки)

                СтрокаЗнаков = "";

                Если ТипКодировки = 1 Тогда

                               ДлинаКодаСимвола = 4;

                Иначе

                               ДлинаКодаСимвола = 2;

                КонецЕсли;

                Для К = 1 По СтрДлина(ТекстСообщения) Цикл

                               СтрокаЗнаков = СтрокаЗнаков + Padl(DecToHex(КодСимвола(Сред(ТекстСообщения, К, 1))), ДлинаКодаСимвола, "0");

                КонецЦикла;

                Возврат СтрокаЗнаков;

КонецФункции // Str2Hex()



// Функция переводит cтроку из шестнадцатеричного представления в обычную строку

// Параметры:

//            СтрокаСимволов           - Строка              - Текст в шестнадцатеричном виде

//            ПризнакКода                   - Строка              - Тип кодировки ("0" - каждый символ представляется 1 байтами, "1" - 2 байтами)

// Возвращаемое значение:  Строка - Строка после перекодировки

//

Функция StrHexToStr(СтрокаСимволов, ПризнакКода) Экспорт

                Если Число(ПризнакКода) = 0 Тогда

                               КоличествоСимволов = 2;

                Иначе

                               КоличествоСимволов = 4;

                КонецЕсли;

                к = 1;

                Результат = "";

                Пока к < СтрДлина(СтрокаСимволов) Цикл

                               Строка = Сред(СтрокаСимволов, к, КоличествоСимволов);

                               Результат = Результат + Символ(HexToDec(Строка));

                               к = к + КоличествоСимволов;

                КонецЦикла;

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

КонецФункции // StrHexToStr()

   

 Процедура Сформировать()

    Перем Имя,Путь;

    Если ФС.ВыбратьФайл(0,Имя,Путь,"","*.*|*.*","*")=0 Тогда

        Возврат;

    КонецЕсли;

    Файл=Путь+Имя;

    Стрим=СоздатьОбъект("ADODB.Stream");

    Стрим.Type=2;

    Стрим.charset="windows-1251";

    Стрим.Open();

    Стрим.LoadFromFile(Файл);

    Стрим.charset="utf-8";

    Стр=Лев(Стрим.ReadText(),255);

    Сообщить(Стр);

КонецПроцедуры



// еще способ

Процедура Сформировать()

    Перем Имя,Путь;

    Если ФС.ВыбратьФайл(0,Имя,Путь,"","*.*|*.*","*")=0 Тогда

        Возврат;

    КонецЕсли;

    Файл=Путь+Имя;

    УТФ16=КаталогВременныхФайлов()+_GetPerformanceCounter()+"-unicode.txt";

    ЦП1251=КаталогВременныхФайлов()+_GetPerformanceCounter()+"-cp1251.txt";

    БАТ=КаталогВременныхФайлов()+_GetPerformanceCounter()+".bat";

    Стр="@echo off

    |chcp 1251 > nul

    |chcp 65001 |>> """+УТФ16+""" cmd /u /c ""type """+Файл+""" & chcp 1251 > nul""

    |chcp 1251 > nul

    |type """+УТФ16+""" > """+ЦП1251+"""

    |chcp 866 > nul";

    Текст=СоздатьОбъект("Текст");

    Текст.ДобавитьСтроку(Стр);

    Текст.Записать(БАТ);

    КомандаСистемы(БАТ);

    Текст=СоздатьОбъект("Текст");

    Текст.Открыть(ЦП1251);

    Для Сч=1 По Текст.КоличествоСтрок() Цикл

        Сообщить(Лев(Текст.ПолучитьСтроку(Сч),255));

    КонецЦикла;

    ФС.УдалитьФайл(УТФ16);

    ФС.УдалитьФайл(ЦП1251);

    ФС.УдалитьФайл(БАТ);

КонецПроцедуры

  // Преобразовать строку в UTF-8

Функция ПреобразоватьСтрокуВУТФ8(Стр)

    Длина=СтрДлина(Стр);

    Итог="";

    Для Н=1 По Длина Цикл

        Знак=Сред(Стр,Н,1);

        Код=КодСимв(Знак);

        Если Код<128 Тогда

            Итог=Итог+Знак;

        Иначе

            Если (Код>=КодСимв("А"))И(Код<=КодСимв("п")) Тогда

                Итог=Итог+Симв(208)+Симв(144+Код-КодСимв("А"));

            ИначеЕсли (Код>=КодСимв("р"))И(Код<=КодСимв("я")) Тогда

                Итог=Итог+Симв(209)+Симв(128+Код-КодСимв("р"));

            ИначеЕсли (Знак="ё") Тогда

                Итог=Итог+Симв(209)+Симв(145);

            ИначеЕсли (Знак="Ё") Тогда

                Итог=Итог+Симв(208)+Симв(129);

            КонецЕсли;

        КонецЕсли;

    КонецЦикла;

    Возврат Итог;

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



// Преобразовать строку из UTF-8

Функция ПреобразоватьСтрокуИзУТФ8(Стр)

    Длина=СтрДлина(Стр);

    Итог="";

    Для Н=1 По Длина Цикл

        Знак=Сред(Стр,Н,1);

        Код=КодСимв(Знак);

        Если Код<128 Тогда

            Итог=Итог+Знак;

        ИначеЕсли (Код>=128)И(Код<192) Тогда

        Иначе

            Н=Н+1;

            Знак2=Сред(Стр,Н,1);

            Код2=КодСимв(Знак2);

            Если Код=208 Тогда

                Если Код2=129 Тогда Итог=Итог+"Ё";

                Иначе Итог=Итог+Симв(КодСимв("А")+Код2-144);

                КонецЕсли;

            ИначеЕсли Код=209 Тогда

                Если Код2=145 Тогда Итог=Итог+"ё";

                Иначе Итог=Итог+Симв(КодСимв("р")+Код2-128);

                КонецЕсли;

            КонецЕсли;

        КонецЕсли;

    КонецЦикла;

    Возврат Итог;

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