1С 8.x : Преобразование строки к URL

 //PAV 17/05/2010 (Andrew_flyer)

Функция ПреобразоватьвСистему(Число10,система)

	

	Если система > 36 или система < 2 тогда

		Сообщить("Выбранная система исчисления не поддерживается");

		Возврат -1;

	КонецЕсли;

	

	СтрокаЗначений = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";

	СтрокаСистема = "";

	Пока Число10 > 0 цикл

		РезДеления = Число10/система;

		ЧислоСистема = цел(РезДеления);

		остатокОтДеления = Число10 - система*(ЧислоСистема);

		СтрокаСистема = сред(СтрокаЗначений,остатокОтДеления+1,1)+ СтрокаСистема;

		Число10 = ?(ЧислоСистема=0,0,РезДеления); 

	КонецЦикла;

	

	//!!!!!!!!

	//[

	Нечётное = стрДлина(СтрокаСистема) - цел(стрДлина(СтрокаСистема)/2)*2;

	Если Нечётное тогда

		СтрокаСистема = "0"+СтрокаСистема;

	КонецЕсли;

	//]

	Возврат СтрокаСистема;

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



Функция ПреобразоватьКURL(Стр)

	

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

	Итог="";

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

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

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

		

		если ((Знак>="a")и(Знак<="z")) или

			 ((Знак>="A")и(Знак<="Z")) или

			 ((Знак>="0")и(Знак<="9")) тогда

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

		Иначе

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

				Итог=Итог+"%"+ПреобразоватьвСистему(208,16)+"%"+ПреобразоватьвСистему(144+Код-КодСимвола("А"),16);

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

				Итог=Итог+"%"+ПреобразоватьвСистему(209,16)+"%"+ПреобразоватьвСистему(128+Код-КодСимвола("р"),16);

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

				Итог=Итог+"%"+ПреобразоватьвСистему(209,16)+"%"+ПреобразоватьвСистему(145,16);

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

				Итог=Итог+"%"+ПреобразоватьвСистему(208,16)+"%"+ПреобразоватьвСистему(129,16);

			Иначе

				Итог=Итог+"%"+ПреобразоватьвСистему(Код,16);

			КонецЕсли;

		КонецЕсли;

	КонецЦикла;

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

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