GUICtrlCreateInput

[autoitxp]

Hi how to set limit of special char in GUICtrlCreateInput i dont want " _ + = ., /@ " user to input how to do that ?

IF someone try to put these chars msg should prompt that u cannot use these chars like web form do

hELP !

Edited March 23, 2008 by autoitxp

[Nahuel]

If StringRegExp(GuiCtrlRead($Input),"[ _-+-=-.-,-/-@]") then
   MsgBox(0,"","You cannot use any of these characters:  _ + = ., /@ ")
   Return; or ContinueLoop or ContinueCase or whatever keyword to skip the next steps.
endif

[autoitxp]

Well i tryed this but not working for me can u put some working example

$Input = GUICtrlCreateInput ("@+" ,   $inputleft,  140,  $inputwidth, $inputheight) 


Func _check()
    
If StringRegExp(GuiCtrlRead($Input),"[ _-+-=-.-,-/-@]") then
   MsgBox(0,"","You cannot use any of these characters:  _ + = ., /@ ")   
endif

EndFunc

Edited March 24, 2008 by autoitxp

[Swift]

$Input = GUICtrlCreateInput ("@+" ,   $inputleft,  140,  $inputwidth, $inputheight) 


Func _check()
    
If StringRegExp(GuiCtrlRead($Input),"[ _-+-=-.-,-/-@]") then
   MsgBox(0,"","You cannot use any of these characters:  _ + = ., /@ ") 
    Return
endif

EndFunc

[monoceres]

You must loop the _check function:

$Input = GUICtrlCreateInput ("@+" ,   $inputleft,  140,  $inputwidth, $inputheight)

While 1
_check()
Sleep(10)
WEnd

Func _check()
    
If StringRegExp(GuiCtrlRead($Input),"[ _-+-=-.-,-/-@]") then
   MsgBox(0,"","You cannot use any of these characters:  _ + = ., /@ ")  
endif

EndFunc

Edited March 24, 2008 by monoceres

[Swift]

You must loop the _check function:

$Input = GUICtrlCreateInput ("@+" ,   $inputleft,  140,  $inputwidth, $inputheight)

While 1
_check()
Sleep(10)
WEnd

Func _check()
    
If StringRegExp(GuiCtrlRead($Input),"[ _-+-=-.-,-/-@]") then
   MsgBox(0,"","You cannot use any of these characters:  _ + = ., /@ ")  
endif

EndFuncoÝ÷ Ûú®¢×«lø^Á©í²Úç$~âµëÞ¯)^²Ëajv¬yÊ'tw©®Ún¡jƺÛhÚç$~â´áz¬i»­¶î±ëaÆ®¶­sbb33c´çWBÒuT7G&Ä7&VFTçWBgV÷C´²gV÷C²Âb33c¶çWFÆVgBÂCÂb33c¶çWGvGFÂb33c¶çWFVvB¢Æö÷W&R¤66Rb33c´'WGFöà¤bô6V6²ÒFVà¤×6t&÷ÂgV÷C²gV÷C²ÂgV÷Cµ÷R6ææ÷BW6RçöbFW6R6&7FW'3¢ò²ÒâÂôgV÷C²¤VÇ6P£´Fò6öÖWFærVÇ6RW&RââçFR&W7Böb÷W"6öFRââæƶRgVæ7Föââà ¤gVæ2ö6V6²¤b7G&æu&VtWwV7G&Å&VBb33c´çWBÂgV÷Cµ²òÒ²ÓÒÒâÒÂÒòÔÒgV÷C²FVâ&WGW&â¤VæDgVæ0

Edited March 24, 2008 by R6V2

[autoitxp]

I Tryed all examples but non of them works properly like : Why ?

$Input = GUICtrlCreateInput ("+2+!+@+1" ,   $inputleft,  140,  $inputwidth, $inputheight) 
$btn =   GUICtrlCreateButton  ("Test", 150, 400, 80) 

While 1
    $msg = GUIGetMsg()
    Select
         Case $msg = $GUI_EVENT_CLOSE
          ExitLoop

     Case $msg = $btn
         call ("_check")
EndSelect
Wend


Func _check()

If StringRegExp(GuiCtrlRead($Input),"[ _-+-=-.-,-/-@]") then
 MsgBox(0,"","You cannot use any of these characters:  _ + = ., /@ ")   
 Return
endif
EndFunc

[Jos]

I Tryed all examples but non of them works properly like : Why ?

You did add some more code to these examples like a GuiCreate() statement ... right ?

[Swift]

You did add some more code to these examples like a GuiCreate() statement ... right ?

Im sure he did, because he has undeclared variables, so, maybe, but it should work right...

[autoitxp]

ya i did all gui creat variable declared when i hit button nothing happes ?

[Jos]

ya i did all gui creat variable declared when i hit button nothing happes ?

Then show all code so we can see what you are doing.

[autoitxp]

expandcollapse popup

#include <GUIConstants.au3>

GUICreate("My Gui", 800, 600  , -1 , -1 )

local $Input
$lablewidth = 70
$lableleft = 120

$inputleft = 240


$inputwidth = 180
$inputheight= 20

$font="Arial"
GUISetFont (10, 400, $font)

GUICtrlCreateTab (80, 80, 400,400)

$tab_1 =GUICtrlCreateTabitem ("Records")

GUISetFont (9, 400, $font)

GUICtrlCreateLabel ("ID:",          $lableleft, 140 , $lablewidth) 
GUICtrlCreateLabel ("Date:",        $lableleft , 170) 
GUICtrlCreateLabel ("Company:",    $lableleft, 200) 
GUICtrlCreateLabel ("Description:",    $lableleft , 230) 
GUICtrlCreateLabel ("Voucher:",   $lableleft, 260) 
GUICtrlCreateLabel ("Posted By:",     $lableleft , 290) 
GUICtrlCreateLabel ("Autherized By:",  $lableleft, 320) 
GUICtrlCreateLabel ("Amount:",      $lableleft , 350) 




$Input = GUICtrlCreateInput ("+2+!+@+1" ,   $inputleft,  140,  $inputwidth, $inputheight) 
GUICtrlCreateInput ("", $inputleft,  170,  $inputwidth, $inputheight) 
GUICtrlCreateInput ("", $inputleft,  200,  $inputwidth, $inputheight) 
GUICtrlCreateInput ("", $inputleft,  230,  $inputwidth, $inputheight) 
GUICtrlCreateInput ("", $inputleft,  260,  $inputwidth, $inputheight) 
GUICtrlCreateInput ("", $inputleft,  290,  $inputwidth, $inputheight) 
GUICtrlCreateInput ("", $inputleft,  320,  $inputwidth, $inputheight) 
GUICtrlCreateInput ("", $inputleft,  350,  $inputwidth, $inputheight) 

$btn =   GUICtrlCreateButton  ("Test", 150, 400, 80) 
;GUICtrlCreatePic ("bg_1.gif", 480, -300, 140 ,150)
;GUICtrlCreatePic ("bg.jpg", -1, -1, 140 ,150 )




GUICtrlCreateTabitem ("")  


GUISetState (@SW_SHOW)  









While 1
    $msg = GUIGetMsg()
    Select
         Case $msg = $GUI_EVENT_CLOSE
          ExitLoop

     Case $msg = $btn
         call ("_check")
EndSelect
Wend


Func _check()
    
;   MsgBox(0 , "" ,"test")
If StringRegExp(GuiCtrlRead($Input),"[ _-+-=-.-,-/-@]") then
   MsgBox(0,"","You cannot use any of these characters:  _ + = ., /@ ")   
  Return
endif

EndFunc

[Jos]

The regex is not working...try:

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $btn
            _check()
    EndSelect
WEnd
Func _check()
;   MsgBox(0 , "" ,"test")
    If StringRegExp(GUICtrlRead($Input), "[ _\-\+=\.,/\@]",0) Then
        MsgBox(0, "", "You cannot use any of these characters:  _ + = ., /@ ")
        Return
    EndIf
EndFunc  ;==>_check

[autoitxp]

Thanks now its working we missing

\

in StringRegExp