Серый форум — AHK: Символы кодирования URL (UriEncode)

Re: AHK: Символы кодирования URL (UriEncode)

null@example.com (teadrinker) — Thu, 07 Jan 2021 20:39:14 +0000

А вообще проще так:

str = http://forum.script-coding.com/viewforum.php?id=13

MsgBox % Encode(str)

Encode(str) {
   Loop, parse, str
      encoded .= Format("%{:02X}", Asc(A_LoopField))
   Return encoded
}

Re: AHK: Символы кодирования URL (UriEncode)

null@example.com (teadrinker) — Thu, 07 Jan 2021 20:28:20 +0000

О, слишком сильно напрягли. Надо было чуть послабее:

UriEncode(Str)
{
   b_Format:=A_FormatInteger
   Data:=""
   SetFormat, Integer, Hex
   Loop, Parse, Str
      Data.="%" . ((StrLen(c:=SubStr(Asc(A_LoopField), 3))<2) ? "0" . c:c)
   SetFormat, Integer, % b_Format
   Return, Data
}

Re: AHK: Символы кодирования URL (UriEncode)

null@example.com (DD) — Thu, 07 Jan 2021 20:19:26 +0000

Напряг и получилось)—

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)))
         Data.="%" . ((StrLen(c:=SubStr(Asc(A_LoopField), 3))<2) ? "0" . c:c)
      Else
         Data.=A_LoopField
   SetFormat, Integer, % b_Format
   Return, Data
}

Нужно для обработки, чтобы определенный текст не подвергся изменению.

Re: AHK: Символы кодирования URL (UriEncode)

null@example.com (teadrinker) — Thu, 07 Jan 2021 20:11:49 +0000

Во-первых, зачем это нужно? Во-вторых, догадайтесь сами, нужно слегка напрячь мозг.

AHK: Символы кодирования URL (UriEncode)

null@example.com (DD) — Thu, 07 Jan 2021 19:29:08 +0000

Как кодировать подряд все символы? —

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
}