AutoIt Français

$sujet = 'AQ14=5<a-c+v>6C*7/\89"1' ;valeur écrite dans l'inputbox
$regex = '(?s)[*<>"/\\]?+'
;$regex = "(?s)\W?+"  ;on ne garde que les chiffres et les lettres
MsgBox(0,"",StringRegExpReplace($sujet,$regex,""))

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

Global $regex = '(?s)[*<>"/\\]?+'
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

$gui = GUICreate("My GUI edit",220,100)
$IP = GUICtrlCreateInput("", 10, 40, 200, 22)
$lab = GUICtrlCreateLabel("", 10, 18, 200, 22)
GUISetState()

While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop


WEnd



Func WM_COMMAND($hWnd, $msg, $wParam, $lParam)
    $nNotifyCode = BitShift($wParam, 16)
    $nID = BitAND($wParam, 0x0000FFFF)
    If $nID = $IP Then
        $hCtrl = $lParam
        If $nNotifyCode = $EN_CHANGE Then
            $txt = GUICtrlRead($IP)
            $txtReplace = StringRegExpReplace($txt,$regex,"")
         If $txt <> $txtReplace Then
            GUICtrlSetBkColor($IP,0xFF0000)
         Else
            GUICtrlSetBkColor($IP,0xFFFFFF)
         EndIf

         GUICtrlSetData($lab, $txtReplace)
         GUICtrlSetData($IP, $txtReplace)
        EndIf
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc  ;==>WM_COMMAND