Discussion :

[jeanseb]

Je cherche une fonction qui permet d'encoder une url en vb, c'est à dire qui remplace les espaces par des + et les caractères spéciaux par %XX
le problème c'est que je sais pas comment trouver les bons XX
je sais qu'il existe une fonction en ASP "URLEncode()" mais j'ai pas trouver l'équivalent sous VB6

merci pour votre aide

[cafeine]

ça n'existe pas ... je suis bien content de ne pas être le seul à avoir cherché ... et je me suis fait ces fonctions tout seul ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function Escape(ByVal str As String) As String
Dim strNocode as string
Dim out, Car as string
Dim i as Integer
 
strNocode = "*+-./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz"
out = ""
If Len(str) > 0 Then
 str = Replace(str, " ", "+")
 For i = 1 To Len(str)
  Car = Mid(str, i, 1)
  If InStr(strNocode, Car) Then
    out = out & Car
  Else
    out = out & "%" & Hex(Asc(Car))
  End If
 Next i
End If
Escape = out
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Function Unescape(ByVal str As String) As String
Dim out as String
Dim i as Integer
Dim str as String
 
out = ""
If Len(str) > 0 Then
 str = Replace(str, "+", " ")
 i = 1
 Do While i <= Len(str)
    If Mid(str, i, 1) = "%" Then
     Cod = Mid(str, i + 1, 2)
     If Len(Cod) = 2 Then
        out = out & Chr(CInt("&H" & Cod))
        i = i + 3
     Else
        out = out & Mid(str, i, 1)
        i = i + 1
     End If
    Else
     out = out & Mid(str, i, 1)
     i = i + 1
    End If
 Loop
End If
Unescape = out
End Function

[jeanseb]

merci beaucoup