// Функция переводит обычную 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()

   

 // Функция Дополняет переданную в качестве первого параметра строку символами слева\справа до заданной длины и возвращает ее

// Незначащие символы слева и справа удаляются

// По умолчанию функция добавляет строку нулями слева

//

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

//  Строка      - Строка - исходная строка, которую необходимо дополнить символами до заданной длины

//  ДлинаСтроки - Число - требуемая конечная длина строки

//  Символ      - Строка - (необязательный) значение символа, которым необходимо дополнить строку

//  Режим       - Строка - (необязательный) [Слева|Справа] режим добавления символов к исходной строке: слева или справа

// 

// Пример 1:

// Строка = "1234"; ДлинаСтроки = 10; Символ = "0"; Режим = "Слева"

// Возврат: "0000001234"

//

// Пример 2:

// Строка = " 1234  "; ДлинаСтроки = 10; Символ = "#"; Режим = "Справа"

// Возврат: "1234######"

//

// Возвращаемое значение:

//  Строка - строка, дополненная символами слева или справа

//

 

Функция ДополнитьСтроку(Знач Строка, Знач ДлинаСтроки, Знач Символ = "0", Знач Режим = "Слева") Экспорт

 

    Если ПустаяСтрока(Символ) Тогда

        Символ = "0";

    КонецЕсли;

    

    // длина символа не должна превышать единицы

    Символ = Лев(Символ, 1);

    // удаляем крайние пробелы слева и справа строки

    Строка = СокрЛП(Строка);

    

    КоличествоСимволовНадоДобавить = ДлинаСтроки - СтрДлина(Строка);

 

    Если КоличествоСимволовНадоДобавить > 0 Тогда

        СтрокаДляДобавления = "";

        Пока СтрДлина(СтрокаДляДобавления) < КоличествоСимволовНадоДобавить Цикл

           СтрокаДляДобавления = СтрокаДляДобавления + Символ;

        КонецЦикла;



        Если ВРег(Режим) = "СЛЕВА" Тогда

            Строка = СтрокаДляДобавления + Строка;

        ИначеЕсли ВРег(Режим) = "СПРАВА" Тогда

            Строка = Строка + СтрокаДляДобавления;

        КонецЕсли;

    КонецЕсли;

    

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

    

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

 Функция ДополнитьСтрокуПробелами(Строка, Длина)

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

        Пробел = Символ(0);

        Строка = Строка + Пробел;

     КонецЦикла;

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

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

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

//  СтрокаПараметр - строка, проверяемая строка.

//

// Возвращаемое значение:

//		Истина - строка состоит из допустимых символов

//		Ложь - в строке встречаются недопустимые символы

// 

// Описание:

//		Строка проверяется на наличие только русских и латинских букв;

//		кроме того,	допускаются дефис, "Ё", "ё".

//

Функция СтрокаНаписанаРусскимиИлиЛатинскими(Знач СтрокаПараметр)

	

	СтрокаПараметр = СокрЛП(СтрокаПараметр);	



	КоличествоСимволов = СтрДлина(СтрокаПараметр);

	

	Если  КоличествоСимволов > 0 Тогда

		

		ПервыйСимвол = КодСимвола(Лев(СтрокаПараметр,1)); 

		Русские = (ПервыйСимвол >= 192) или (ПервыйСимвол = 184) или (ПервыйСимвол = 168);

		

		СписокДопустимыхЗначений = Новый Соответствие;

		СписокДопустимыхЗначений.Вставить(184,Истина);   // ё

		СписокДопустимыхЗначений.Вставить(168,Истина);   // Ё

		СписокДопустимыхЗначений.Вставить(45,Истина);   //  "-"



		Для Сч = 1 По КоличествоСимволов Цикл

			

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

			

			// Большие латинские буквы: 65 - 90

			// Маленькие латинские буквы: 97 - 122

			// Русские буквы: 192 и больше

			

			//русские:

			Если Русские Тогда

				

				Если (СписокДопустимыхЗначений[Код] = Неопределено) и (Код < 192)  Тогда

					Возврат Ложь;

				КонецЕсли;



			// латинские:	

			ИначеЕсли (Код <> 45) и ((Код < 65) или	(Код > 90) и (Код < 97) или (Код > 122))  Тогда    

				Возврат Ложь;

			КонецЕсли;

				

		КонецЦикла;

		

		Возврат Истина;



	Иначе 	

		Возврат Истина;

	КонецЕсли;

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