helpf.pro
  Регистрация
Все категории » Работа с Интернет, Почтой (Mail), FTP Работа с Интернет, Почтой (Mail), FTP 
 0 
 
 
Распечатать

Преобразование строки к URL

Слово "Микроскоп" кодируется в URL как: "%D0%9C%D0%B8%D0%BA%D1%80%D0%BE%D1%81%D0%BA%D0%BE%D0%BF"

Суть метода заключается в следующем:
Преобразование происходит в два этапа: сначала каждый символ кириллицы кодируется в Юникоде (UTF-8) в последовательность из двух байтов, а затем каждый байт этой последовательности записывается в шестнадцатеричном представлении:
М → D0 и 9C → %D0%9C
и → D0 и B8 → %D0%B8
к → D0 и BA → %D0%BA
р → D1 и 80 → %D1%80, и т. д.
Код 1C v 8.х
 //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);

			КонецЕсли;

		КонецЕсли;

	КонецЦикла;

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

КонецФункции
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 20332
 0 
 
 
Распечатать
Возможно, вас также заинтересует
Алгоритм шифрования RC4  1
 Для решения некоторых задач, иногда требуется имееть возможность шифровать и дешифровывать, какие-то данные. Но при этом нет возможности использовать стороние внешнии компоненты. Предлагаем пример реализации алгоритма шифрования RC4 на встроенном яз
Битая ссылка, <Объект не найден>, Уникальный Идентификатор, GUID  76
 Когда кто-то удаляет данные из базы без проверки ссылок на эти объекты, то везде где этот объект использовался появляется сообщение вида: Объект не найден (84:bf5600145e3710ab11dda4c605dbe824) . https://helpf.pro/uploads/img/_1-46z7I4U7Ww.png В
Выгрузка / Загрузка данных посредством текстовых (TXT) файлов  5
 Для работы с текстовыми документами существуют три типа данных – ТекстовыйДокумент, ЗаписьТекста и ЧтениеТекста . Разница двух подходов состоит в способе загрузки документа: ТекстовыйДокумент загружает файл целиком и далее построчно обрабатывает е
Выгрузка данных в Excel с установкой разных параметров  9
  // Процедура выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excel // с указанным именем, используя преобразование данных к типу число и типу строка; Процедура ОсновныеДействияФормыЭкспорт(Кнопка) Попытка
Выгрузка картинок из базы 1С в XML  2
  В нынешнее время для электронного каталога или интернет-магазина необходимо выгружать не только информацию о цене и характеристиках товара, но и сопутствующие изображения. Хранящиеся в базе или связанные с номенклатурой изображения порой приходилось
Посмотреть все результаты поиска похожих
Комментарии
g160878
19.01.2012 14:49Комментарий: 2
g160878
сразу сам исправляюсь...))
Код 1C v 8.х
 			ИначеЕсли Код = 10 Тогда // перевод строки

				Итог=Итог+"%0A";

			ИначеЕсли Код = 13 Тогда // перевод каретки

				Итог=Итог+"%0D";

			ИначеЕсли Код = 160 Тогда // неразрывный пробел

				Итог=Итог+"%C2%A0";
g160878
19.01.2012 13:07Комментарий: 1
g160878
Огромное спасибо за функцию, очень пригодилась!
Нашел два момента, на которых при декодировке появляется ошибка:
- перевод строки;
- неразрывный пробел;
Исправил добавлением доп условий к вашему условию.
Код 1C v 8.х
 

ИначеЕсли Код = 10 Тогда // перевод строки

	Итог=Итог+"%0D%0A";

ИначеЕсли Код = 160 Тогда // неразрывный пробел

	Итог=Итог+"%C2%A0";

Предлагаю исправить в шапке.
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.