AutoHotkey Community

AutoTrim, Off
url_temp_clip = %clipboard%
Send, ^c
clipboard := RegExReplace(clipboard, "\%([0-9A-F]{2})" , hex_to_dec("0x$1"))
Send, ^v
clipboard = %url_temp_clip%
AutoTrim, On

hex_to_dec(x)
{
   Loop
      If RegExMatch(x, "i)(.*)(0x[a-f\d]*)(.*)", y)
         x := y1 . y2+0 . y3           ; convert hex numbers to decimal
      Else Break
   return x
}

$str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg; # Encode string
$str =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; # Decode

uriDecode(str) {
   Loop
      If RegExMatch(str, "i)(?<=%)[\da-f]{1,2}", hex)
         StringReplace, str, str, `%%hex%, % Chr("0x" . hex), All
      Else Break
   Return, str
}

uriEncode(str) {
   f = %A_FormatInteger%
   SetFormat, Integer, Hex
   If RegExMatch(str, "^\w+:/{0,2}", pr)
      StringTrimLeft, str, str, StrLen(pr)
   StringReplace, str, str, `%, `%25, All
   Loop
      If RegExMatch(str, "i)[^\w\.~%]", char)
         StringReplace, str, str, %char%, % "%" . Asc(char), All
      Else Break
   SetFormat, Integer, %f%
   Return, pr . str
}

^!+5::
   AutoTrim, Off
   url_temp_clip = %clipboard%
   Send, ^c
   IfInString, clipboard, `%
   {
      clipboard := uriDecode(clipboard)
   }
   else
   {
      clipboard := uriEncode(clipboard)
   }
   Send, ^v
   clipboard = %url_temp_clip%
   AutoTrim, On
return

uriDecode(str)
{
   ; Find uri encoded characters such as %20 (space) and replace with ascii character

   pos = 1
   Loop
      If pos := RegExMatch(str, "i)(?<=%)[\da-f]{2}", hex, pos++)
         StringReplace, str, str, `%%hex%, % Chr("0x" . hex), All
      Else Break
   Return, str
}

uriEncode(str)
{
   ; Replace characters with uri encoded version except for letters, numbers,
   ; and the following: /.~:&=-

   f = %A_FormatInteger%
   SetFormat, Integer, Hex
   pos = 1
   Loop
      If pos := RegExMatch(str, "i)[^\/\w\.~`:%&=-]", char, pos++)
         StringReplace, str, str, %char%, % "%" . Asc(char), All
      Else Break
   SetFormat, Integer, %f%
   StringReplace, str, str, 0x, , All
   Return, str
}

uriEncode(str) {
   f = %A_FormatInteger%
   SetFormat, Integer, Hex
   If RegExMatch(str, "^\w+:/{0,2}", pr)
      StringTrimLeft, str, str, StrLen(pr)
   StringReplace, str, str, `%, `%25, All
   Loop
      If RegExMatch(str, "i)[^\w\.~%/:]", char)
         StringReplace, str, str, %char%, % "%" . SubStr(Asc(char),3), All
      Else Break
   SetFormat, Integer, %f%
   Return, pr . str
}

If RegExMatch(str, "i)[^\w\.~%]", char)
   StringReplace, str, str, %char%, % "%" . Asc(char), All

If RegExMatch(str, "i)[\^\w\.~%]", char)
   StringReplace, str, str, %char%, % "%" . Asc(char), All

#noenv
uriEncode(str)
{
   ; Replace characters with uri encoded version except for letters, numbers,
   ; and the following: /.~:&=-

   f = %A_FormatInteger%
   SetFormat, Integer, Hex
   pos = 1
   Loop
      If pos := RegExMatch(str, "i)[^\/\w\.~`:%&=-]", char, pos++)
         StringReplace, str, str, %char%, % "%" . Asc(char), All
      Else Break
   SetFormat, Integer, %f%
   StringReplace, str, str, 0x, , All
   Return, str
}

estring = 2010,11,5,18,0,55,"ROC177262","CPSOS - Search - Search",""2010,11,5,18,1,0,"ROC177262","Logon

status",""2010,11,5,18,1,6,"ROC177262","AT&T U-Verse CRM Customer Interaction Manager : Release 14 -

csrPG4cmem105",""2010,11,5,18,1,9,"ROC177262","AT&T Wireline - Synchronoss Technologies, Inc. - Windows Inter - \\Remote, 128-bit SSL/TLS.",""

newstring = % uriEncode(estring)
msgbox, %newstring% ;valid conversion confirmed here

html     := ""
URL      := "http://www.mysite.com/act_raw_upload.cfm"
POSTData := "raw_data= %newstring%"

length := httpQuery(html,URL,POSTdata)
varSetCapacity(html,-1)
   
#include httpQuery.ahk

POSTData := "raw_data= %newstring%"

POSTData := "raw_data=" newstring

uriEncode(str) {
   f = %A_FormatInteger%
   SetFormat, Integer, Hex
   If RegExMatch(str, "^\w+:/{0,2}", pr)
      StringTrimLeft, str, str, StrLen(pr)
   StringReplace, str, str, `%, `%25, All
   Loop
      If RegExMatch(str, "i)[^\w\.~%/:]", char)
         StringReplace, str, str, %char%, % "%" . SubStr(Asc(char),3), All
      Else Break
   SetFormat, Integer, %f%
   Return, pr . str
}

;============================================================
; encode special characters in a string (usually for url encoding)
;============================================================

fn_encode(str) {
   f = %A_FormatInteger%
   SetFormat, Integer, Hex   ; set integer format to hex
   
   If RegExMatch(str, "^\w+:/{0,2}", pr)   
      StringTrimLeft, str, str, StrLen(pr)
   
   StringReplace, str, str, `%, `%25, All    ; replace all % with %25
   
   Loop
      If RegExMatch(str, "i)[^\w\.~%/:]", char)    ; exclude alphnumeric . ~ % / :
         StringReplace, str, str, %char%, % "%" . fn_zerofill(SubStr(Asc(char),3),2) , All
      Else Break
   
   SetFormat, Integer, %f%   ; restore integer format
   Return, pr . str
}

;============================================================
; decode encoded string
;============================================================

fn_decode(str) {
    Loop
        If RegExMatch(str, "i)(?<=%)[\da-f]{1,2}", hex)
            StringReplace, str, str, `%%hex%, % Chr("0x" . hex), All
        Else Break
    Return, str
}

;-------------------------------------
; example call to zerofill
; n := zerofill(n, 3)
;-------------------------------------

fn_zerofill(num, size){   ; returns num zerofilled to size digits
    StringLen, length, num
    c := size - length
    loop, %c%
        num := "0" num
    return num
}