Преобразовать кириллицу для заголовков HTTP

Пользователь

Сообщений: 17 Регистрация: 01.01.1970

25.11.2012 00:37:13

Задача: на сервере лежит библиотека картинок с именами файлов содержащие кириллицу. Отобразить их на странице напрямую не получается, только если преобразовать в длинную последовательность спецсимволов.

Например: "http://servername.ru/абвгд 1.jpg" необходимо преобразовать в "http://servername.ru/%e0%e1%e2%e3%e4%201.jpg"

Есть список всех имен файлов в текстовом виде.

Вопрос: можно ли как-то автоматизировать процесс преобразования ячеек с именами файлов на кириллице в строку спецсимволов?

Понятно, что я могу создать на серваке файлы с именами всех возможных символов, вычислить закономерность и вручную записать макрос меняющий весь алфавит , включая оба регистра и пробелы - на спецсимволы.

Однако может какая-нибудь функция имеется? ))

ikki

Пользователь

Сообщений: 9709 Регистрация: 22.12.2012

25.11.2012 01:13:25

{quote}{login=morlock}{date=25.11.2012 12:37}{thema=Преобразовать кириллицу для заголовков HTTP}{post} вычислить закономерность {/post}{/quote}
чего-то я не понял...
какую закономерность вы собрались вычислять?
это же просто шестнадцатиричные коды соответствующих букв и пробела.
разве нет? :)

фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

morlock Пользователь Сообщений: 17 Регистрация: 01.01.1970	#3 25.11.2012 01:37:26 Ну предположим я этого не знал, теперь знаю )) А нету ли какой-нибудь готовой функции для преобразования текстовой строки в последовательность шестнадцатиричного кода?

ikki

Пользователь

Сообщений: 9709 Регистрация: 22.12.2012

25.11.2012 01:40:18

UDF

Function f$(s$)
Dim i%, x$
For i = 1 To Len(s)
If Mid(s, i, 1) Like "[А-ЯЁа-яё ]" Then
x = x & "%" & LCase(dec2hex(Asc(Mid(s, i, 1))))
Else
x = x & Mid(s, i, 1)
End If
Next
f = x
End Function

надстройка Analysis ToolPak - VBA должна быть подключена. ссылка в проекте на atpvbaen.xls - установлена.
конечно, можно и без этого, но тогда код для функции dec2hex надо будет написать самому :)

EducatedFool Пользователь Сообщений: 3696 Регистрация: 23.12.2012	#5 25.11.2012 06:02:30 Я пользуюсь этой функцией http://excelvba.ru/code/URLEncode Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему