bonjour
comment Suprimer /\ " *<> d'une phrase que l'on rentre dans un inputbox
Suprimer /\ " *<> d'une phrase
Règles du forum
- Merci de consulter la section "Règles du forum" et plus particulièrement "Règles et Mentions Légales du site autoitscript.fr" avant d'écrire un message.
- mikell
- Spammer !
- Messages : 6292
- Enregistré le : dim. 29 mai 2011 17:32
- Localisation : Deep Cévennes
- Status : Hors ligne
Re: Suprimer /\ " *<> d'une phrase
StringReplace
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
- walkson
- Modérateur
- Messages : 1020
- Enregistré le : ven. 12 août 2011 19:49
- Localisation : Hurepoix
- Status : Hors ligne
Re: Suprimer /\ " *<> d'une phrase
Bonsoir,
Y a ça aussi
Et si on veut un Input dynamique qui voit rouge quand on tape les mauvais signes et qui ne les écrit pas, y a ça
Y a ça aussi
$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,""))
$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
#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
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)