URLencoder

[Libre]

This script covert a simple string to a valid url for a web server.

;#####################################################################
;  URLEncode(x) convierte la direccion web a lo que el servidor quiere
;#####################################################################

Func URLEncode( $urlText ) 
        
    $url =""
    
    For $i = 1 To  StringLen($urlText)
        $acode = Asc(StringMid( $urlText, $i, 1 ) )
        Select 
            Case ( $acode>=48 and $acode <= 57 )or _
            ( $acode>=65 and $acode <= 90 )or _
            ( $acode>=97 and $acode <= 122 )
                $url = $url & StringMid($urlText, $i, 1)
            Case $acode=32
                $url = $url & "+"
            Case Else
                $url = $url & "%" & Hex($acode,2)
        EndSelect
    Next
 
    return $url

EndFunc

Edited March 9, 2006 by Libre

[Valuater]

the first code box should be [ code ]

no spaces

then [ /code ] ; no spaces

same with "quote"

8)

Edited March 9, 2006 by Valuater

[ConsultingJoe]

nice script i used this for quick converting but nice UDF, I could really use this.

$i = URLEncode(InputBox("convert","enter text"))
MsgBox(0,"",$i)

Func URLEncode( $urlText )
        
    $url =""
    
    For $i = 1 To  StringLen($urlText)
        $acode = Asc(StringMid( $urlText, $i, 1 ) )
        Select
            Case ( $acode>=48 and $acode <= 57 )or _
            ( $acode>=65 and $acode <= 90 )or _
            ( $acode>=97 and $acode <= 122 )
                $url = $url & StringMid($urlText, $i, 1)
            Case $acode=32
                $url = $url & "+"
            Case Else
                $url = $url & "%" & Hex($acode,2)
        EndSelect
    Next

    return $url

EndFunc

[FuryCell]

I might be wrong but i think this can already be done with _INetExplorerCapable() which is included in inet.au3.

anyway. good job and welcome to the forums.

Edit: nvm. this one converts all characters. cool.

Edited March 30, 2006 by SolidSnake

[MFerris]

This script covert a simple string to a valid url for a web server.

Just wanted to say thanks - this is exactly what I need for a project I'm working on, you saved me a lot of trouble!

Edited April 9, 2006 by MFerris

[nfwu]

You could upgrate this to support RFC 1738.

Look at: http://www.autoitscript.com/forum/index.php?showtopic=23315

for an example.

{http://www.ietf.org/rfc/rfc1738.txt}

#)