AutoIt Français

Code : Tout sélectionner

Func UTF8Decode($text)
    Dim Const $inputUTF8[18] = ['é', 'à', 'è', 'â', 'ù', 'ô', 'û', 'î', 'ê', 'ò', 'ì', 'ù', 'ñ', 'ç', ''', 'Â', 'ó', 'á']
    Dim Const $outputUTF8[18] = ['é', 'à', 'è', 'â', 'ù', 'ô', 'û', 'î', 'ê', 'ò', 'ì', 'ù', 'ñ', 'ç', "'", '', 'ó', 'á']
    $i = 0
    While $i < UBound($inputUTF8)
        $text = StringReplace($text, $inputUTF8[$i], $outputUTF8[$i])
        $i = $i + 1;
        Sleep(10)
    WEnd
    return $text
EndFunc

Code : Tout sélectionner

Local $str='áááááááááááááááááááááááááááááá'& _
'ééééééééééééééééééééééééûûûûûûûûûûûûûêêêêêêêêêêêêê'

Local $T0=TimerInit()
UTF8Decode($str)
MsgBox(0,'',TimerDiff($T0))
$T0=TimerInit()
UTF8Decode2($str)
MsgBox(0,'',TimerDiff($T0))

Func UTF8Decode($text)
    Dim Const $inputUTF8[18] = ['é', 'à', 'è', 'â', 'ù', 'ô', 'û', 'î', 'ê', 'ò', 'ì', 'ù', 'ñ', 'ç', ''', 'Â', 'ó', 'á']
    Dim Const $outputUTF8[18] = ['é', 'à', 'è', 'â', 'ù', 'ô', 'û', 'î', 'ê', 'ò', 'ì', 'ù', 'ñ', 'ç', "'", '', 'ó', 'á']
    $i = 0
    While $i < UBound($inputUTF8)
        $text = StringReplace($text, $inputUTF8[$i], $outputUTF8[$i])
        $i = $i + 1;
        Sleep(10)
    WEnd
    return $text
EndFunc

Func UTF8Decode2($text)
    Return BinaryToString(StringToBinary($text,1),4)
EndFunc

Code : Tout sélectionner

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   ;==>URLEncode

Code : Tout sélectionner

Func _UrlEncode($text)

    $text = BinaryToString(StringToBinary($text,4),1)
    $X2 = StringRegExp($text, '&#(.*?);', 3)
    For $i = 0 To UBound($X2) - 1 Step 1
        $text = StringReplace($text, '&#' & $X2[$i] & ';', ChrW($X2[$i]))
    Next
    return StringRegExpReplace($text,'\s','+')
EndFunc