Code : Tout sélectionner
Debug URLEncoder("&!#") ; = &!#Code : Tout sélectionner
Procedure.s URLEncoder_Fix(URL$ ,Format.l=#PB_UTF8)
Protected *StringToBuf
If Format = #PB_Ascii
*StringToBuf=Ascii(URL$)
Else
*StringToBuf=UTF8(URL$)
EndIf
If Not *StringToBuf:ProcedureReturn "":EndIf
Protected iReturnUrl.s,Pos.l,Asc.c
For Pos=0 To MemorySize(*StringToBuf)-2
Asc=PeekA(*StringToBuf+Pos)
Select Asc
Case 48 To 57, 65 To 90, 97 To 122 ;0 to 9, A to Z , a to z
iReturnUrl + Chr(Asc)
Case 32 ; "Space"
iReturnUrl + "%20"
Default; "every character except 0-9, A-Z and a-z requires conversion"
iReturnUrl + "%" + Hex(Asc,#PB_Byte)
EndSelect
Next
FreeMemory(*StringToBuf)
ProcedureReturn iReturnUrl
EndProcedure
Debug URLEncoder_Fix("&!#")
Debug URLEncoder("&!#") ; = &!#
Je pense que la fonction PB est programmée comme cela pour permettre le passage de paramètres par URL (& #)celtic88 a écrit :il ya des caractères illégaux qui sont renvoyé par cette fonction..Code : Tout sélectionner
Debug URLEncoder("&!#") ; = &!#
