URL Encoding

[nullschritt]

I was just wondering how I would go about encoding a string for http transport (encoding the special characters like "#$%&=", etc?)

Thanks

Edited September 9, 2012 by nullschritt

[dany]

Do a search on base64 encoding.

[nullschritt]

Do a search on base64 encoding.

I don't want to encode the whole string just special characters.

[dany]

Then you'll have to make up your own identifiers like __AMPERSAND__ or something and do some string replacing on both ends.

edit: Wait I forgot about url encoding, still same priciple with string replacing.

Edited September 9, 2012 by dany

[nullschritt]

My solution: (not tested yet, going to test later)

In case anyone else was wondering the same thing

func _urlencode($string)
$string = StringSplit($string, "")
for $i=1 to $string[0]
If chrw($string[$i]) < 48 or chrw($string[$i]) > 122
$string[$i] = "%"&_StringToHex($string[$i])
EndIf
Next
$string = _ArrayToString($string, "")
Return $string
EndFunc


func _urldecode($string)
$string = StringSplit($string, "%")
for $i=1 to $string[0]
$string[$i] = _HexToString(StringLeft($string[$i], 2))&StringTrimLeft($string[$i], 2)
Next
$string = _ArrayToString($string, "")
Return $string
EndFunc

Edited September 9, 2012 by nullschritt

[dany]

Almost You used ChrW where AscW is needed and forgot a string check for hexadecimals. Fixed below.

Do a forum search on 'urlencode', you'll get some pretty interresting topics.

#include <String.au3>
#include <Array.au3>

Func _urlencode($string)
    $string = StringSplit($string, "")
    For $i=1 To $string[0]
        If AscW($string[$i]) < 48 Or AscW($string[$i]) > 122 Then
            $string[$i] = "%"&_StringToHex($string[$i])
        EndIf
    Next
    $string = _ArrayToString($string, "", 1)
    Return $string
EndFunc


Func _urldecode($string)
    $string = StringSplit($string, "%")
    For $i=1 To $string[0]
        If StringIsXDigit(StringLeft($string[$i], 2)) Then ; Otherwise you get stray 0x in the string.
            $string[$i] = _HexToString(StringLeft($string[$i], 2))&StringTrimLeft($string[$i], 2)
        EndIf
    Next
    $string = _ArrayToString($string, "", 1)
    Return $string
EndFunc

; Using w3school example.
Local $sUrl = 'Hello Günter'
Local $sEnc = _urlencode($sUrl)
MsgBox(0, '', $sEnc)
Local $sDec = _urldecode($sEnc)
MsgBox(0, '', $sDec)

Edited September 9, 2012 by dany

[ProgAndy]

Here is my take on the functions