- function Decode_URL(S_encode)
- Dim S
- Dim SDroite
- Dim SGauche
- Dim carAscii
- S=replace(S_encode,"+"," ")
- i=Instr(S,"%")
- do while i>0
- SGauche=Left(S,i-1)
- SDroite=right(S,len(S)-i-2)
- CarAscii=Chr(Cint("&H"&mid(S,i+1,2)))
- S=SGauche+CarAscii+SDroite
- i=Instr(S,"%")
- Loop
- Decode_URL=S
- end function
function Decode_URL(S_encode)
Dim S
Dim SDroite
Dim SGauche
Dim carAscii
S=replace(S_encode,"+"," ")
i=Instr(S,"%")
do while i>0
SGauche=Left(S,i-1)
SDroite=right(S,len(S)-i-2)
CarAscii=Chr(Cint("&H"&mid(S,i+1,2)))
S=SGauche+CarAscii+SDroite
i=Instr(S,"%")
Loop
Decode_URL=S
end function