Тема: AHK: Символы кодирования URL (UriEncode)
Как кодировать подряд все символы? —
str =
(
http://forum.script-coding.com/viewforum.php?id=13
)
MsgBox % UriEncode(str)
UriEncode(Str)
{
b_Format:=A_FormatInteger
Data:=""
SetFormat, Integer, Hex
Loop, Parse, Str
If ((Asc(A_LoopField)>0x7f) Or (Asc(A_LoopField)<0x30)
Or (Asc(A_LoopField)=0x3d))
Data.="%" . ((StrLen(c:=SubStr(Asc(A_LoopField), 3))<2) ? "0" . c:c)
Else
Data.=A_LoopField
SetFormat, Integer, % b_Format
Return, Data
}