Преобразовании локальной ссылки

[bvv70]

Подскажите как из адреса файла
D:\Библиотека TXT\Зарубежные авторы\А\АЗИМОВ Айзек\В плену у Весты.txt
Получить локальную ссылку для браузера
file:///D:/%D0%91%D0%B8%D0%B1%D0%BB%D0%B8%D0%BE%D1%82
%D0%B5%D0%BA%D0%B0%20TXT/%D0%97%D0%B0%D1%80%D1%83
%D0%B1%D0%B5%D0%B6%D0%BD%D1%8B%D0%B5%20%D0%B0%
D0%B2%D1%82%D0%BE%D1%80%D1%8B/%D0%90/%D0%90%D0%97
%D0%98%D0%9C%D0%9E%D0%92%20%D0%90%D0%B9%D0%B7%D0
%B5%D0%BA/%D0%92%20%D0%BF%D0%BB%D0%B5%D0%BD%D1
%83%20%D1%83%20%D0%92%D0%B5%D1%81%D1%82%D1%8B.txt

[dr.MIG]

Hex(Asc(x)) для каждой буквы по-отдельности, где х -- буква. И перед полученным значением поставить %.

[bvv70]

Понял, спасибо.

[Хакер]

dr.MIG
Не забывай, что Hex не возвращает ведущие нули. А значит автор встретится с таким результатом как %A

На мой взгляд гораздо луче воспользоваться функцией InternetCanonicalizeUrl или InternetCombineUrl

[bvv70]

dr.MIG
На мой взгляд гораздо луче воспользоваться функцией InternetCanonicalizeUrl или InternetCombineUrl

А можно с примером, сам я не разберусь.

[Хакер]

Ну хотя бы так.

Код: Выделить всё

Private Declare Sub InternetCanonicalizeUrl Lib "wininet.dll" Alias "InternetCanonicalizeUrlA" (ByVal lpszBaseUrl As String, ByVal ret As Long, ByRef lpdwBufferLength As Long, ByVal dwFlags As Long)

Private Sub Form_Load()
    Dim strBuffer As String
    strBuffer = String(255, 0)
    Dim url As String
    url = "d:\мой компьютер\айзек азимов\фыв.txt"
    InternetCanonicalizeUrl url, StrPtr(strBuffer), 255, 0
    MsgBox StrConv(strBuffer, vbUnicode)
End Sub

Флагами можно настроить, что и как должно заменяться.

[dr.MIG]

Хакер, можно использовать Format и всё будет о'k.
Ну а так да, просто я забыл, что есть такая API
Но зато автор топика теперь знает, что лежит в основе этого преобразования.

[Хакер]

dr.MIG
Твой код преобразовывает всё, например точки, которые преобразовывать не надо.

Как ты собрался использовать формат? Поделись

Вообще, я для этих целей всегла юзаю конструкцию
Right("0" + Hex(x), 2), Right("000" + Hex(x), 4), Right("0000000" + Hex(x), (в зависимости от кол-ва необходимых ведущих нулей)

[dr.MIG]

Как ты собрался использовать формат?

Format(Hex(Asc(x)), "00")

[Хакер]

msgbox Format(Hex(10), "00")="0A"

[dr.MIG]

Ну. А что требовалось получить?

[Хакер]

Требовалось получить True.
Format(Hex(10), "00") возвращает "A", как и Hex(10). Какой тогда смысл пропускать "A" через Format чтобы получить "A"?

А получить надо было "0A".

[bvv70]

Спасибо Хакеру, код прекрасно действует: из
D:\Библиотека TXT\Зарубежные авторы\А\АБНЕТТ Дэн\Рейвенор\01_Рейвенор.txt
получается:
file://D:\Библиотека%20TXT\Зарубежные%20авторы\А\АБНЕТТ%20Дэн\Рейвенор\01_Рейвенор.txt
что отлично понимается браузером. Получается что заменить можно было только пробел?

[iGrok]

Доктор, ты не понял. Получается "False".
Догадываешься, почему?

[Lumen]

Я в таких целях обычно использую такую конструкцию:

Код: Выделить всё

Public Function MakeHex(Number, Length As Long) As String
Dim a As String
a = Hex(Number)
Do While Len(a) < Length
    a = "0" + a
Loop
MakeHex = a
End Function


Первый параметр - число (byte, integer или long), второй, думаю понятно, длина текстовой записи числа. Например, если ввызвать:
MakeHex(23117, , то она вернет 00005A4D.

[Хакер]

Lumen
1) Сравни скорости выполнения твоей и моей конструкции.
2) Нет никакой необходимости в переменной a. VB, правда, умный, всё равно уберёт.

[dr.MIG]

Да я понял, только слишком поздно, что бы удалить сообщение -- на него уже ответили.

А вообще, Format(Format(Hex(x), "\0@"), "!@@")

[Хакер]

Ха
Т.е. ты считаешь, что Format(Format(Hex(x), "\0@"), "!@@") гораздо лучше, чем Right("0" + Hex(x), 2) ?


Проведём эксперимент . Одну рубашку мы постираем обычным порошком:
0,09375
0,09375
0,09375
0,09375
А вторую, порошком от доктора МИГ-а
0,25
0,25
0,25
0,25

(Стирка производилась 100000 раз)

[dr.MIG]

Не, боже упаси, я такого никогда не говорил.
Просто

Как ты собрался использовать формат?

Я написал первый свой вариант, не приняв во внимание, что Hex(10) в качестве выражения в Format'е будет восприниматься как строка. Поэтому, чтобы функция работала (не отказываться же от своих слов, что это можно сделать форматом ) я внёс некоторые коррективы и так получился второй вариант, работающий со строками.
В данном случае, естественно, вариант с Right лучше.

[iGrok]

Спасибо Хакеру, код прекрасно действует: из
D:\Библиотека TXT\Зарубежные авторы\А\АБНЕТТ Дэн\Рейвенор\01_Рейвенор.txt
получается:
file://D:\Библиотека%20TXT\Зарубежные%20авторы\А\АБНЕТТ%20Дэн\Рейвенор\01_Рейвенор.txt
что отлично понимается браузером. Получается что заменить можно было только пробел?

Ну вообще-то в этом случае да. )
А так - пробел + еще какие-то символы.. Не помню уже. Но лучше все же не менять вручную, а пользоваться вариантом Хакера.

Второй обсуждаемый способ обсуждается уже ради самого обсуждения ,-)

[Lumen]

Народ, а как преобразовать кодированный url обратно в нормальную ссылку. То есть как работает функция URLDecode в PHP? То есть как из строки: "%CA%F2%EE+%F2%E0%EA%EE%E9+Lumen" получить обратно "Кто такой Lumen"?

[Lumen]

Вроде сделал. Вот мой вариант:

Код: Выделить всё

Function UrlDecode(url As String) As String
Dim pos As Long, char As String
pos = 1
url = Replace(url, "+", " ")
Do
    pos = InStr(url, "%")
    If pos = 0 Then Exit Do
    char = Mid(url, pos + 1, 2)
    url = Replace(url, "%" + char, Chr(CLng("&H" + char)), 1, 1)
Loop
UrlDecode = url
End Function


Рад буду слышать замечания, предложения и советы...

[alibek]

Народ, а вы справку читали?
У InternetCanonicalizeUrl есть флаг ICU_DECODE.

[Хакер]

Код: Выделить всё

Private Declare Sub InternetCanonicalizeUrl Lib "wininet.dll" Alias "InternetCanonicalizeUrlA" (ByVal lpszBaseUrl As String, ByVal ret As Long, ByRef lpdwBufferLength As Long, ByVal dwFlags As Long)
Private Const ICU_DECODE = &H10000000
Private Const ICU_NO_ENCODE = &H20000000
Private Sub Form_Load()
    Dim strBuffer As String
    strBuffer = String(255, 0)
    Dim url As String
   
   
    '{
        url = "Привет, Lumen!"
        InternetCanonicalizeUrl url, StrPtr(strBuffer), 255, 0
    '}
   
    '{
        url = StrConv(strBuffer, vbUnicode)
        InternetCanonicalizeUrl url, StrPtr(strBuffer), 255, ICU_DECODE Or ICU_NO_ENCODE
    '}
   
    MsgBox StrConv(strBuffer, vbUnicode)
End Sub