Titolo: Filtro caratteri da non utilizzare in un URL
Categoria: Codice |
|
Ultimo Aggiornamento: 17/01/09 |
`web_urlEncode
`prepara una stringa in modo che sia utilizzabile come parte di un Url
C_TEXT($0;$1)
C_LONGINT($car_n;$ascii_n)
C_STRING(31;$car_s;$nuovo_s)
$0:=""
$1:=Mac to ISO($1)
For ($car_n;1;Length($1))
$car_s:=Substring($1;$car_n;1)
$ascii_n:=Character code($car_s)
Case of : ($ascii_n =32)
$nuovo_s:="+"
: ($ascii_n >=127)
$nuovo_s:="%"+Substring(String($ascii_n;"&$");2)
: (Position($car_s;":<>&%= \"")>0)
$nuovo_s:="%"+Substring(String($ascii_n;"&$");2)
Else $nuovo_s:=Char($ascii_n)
End case $0:=$0+$nuovo_s
End for
Inviato da: Umberto Migliore |
|
Visite: 11360 |
Se accedi con utente e password, puoi aggiungere dei commenti.