AutoIt Français

Code : Tout sélectionner

Local $T0=TimerInit()
Local $text=_ReplaceCarac('Bonjour',True)
MsgBox(0,'',TimerDiff($T0)&" : "&BinaryToString($text)&" : "&BinaryToString(_ReplaceCarac('Bonjour',False)))
Func _ReplaceCarac($str,$replace=True)
    If $replace Then
        $str=StringToBinary($str)
        Local $nArray=StringRegExp($str,"(?i:.{2})",3)
        $str=''
        Local $nArrray2
        For $i=2 To (UBound($nArray)-1)
            $nArrray2=StringRegExp($nArray[$i],'.',3)
            $str=$str&$nArrray2[1]&$nArrray2[0]
        Next
        Return '0x'&$str
    Else
        $str=StringToBinary($str)
        Local $nArray=StringRegExp($str,"(?i:.{2})",3)
        $str=''
        Local $nArrray2
        For $i=1 To (UBound($nArray)-1)
            $nArrray2=StringRegExp($nArray[$i],'.',3)
            $str=$str&$nArrray2[0]&$nArrray2[1]
        Next
        Return '0x'&$str
    EndIf
EndFunc