Restrict text in an input based on a RegExp - live testing while typing

peethebee · August 26, 2006

Hi!

I did this UDF for me (and you ). It tests while typing if the text entered to an input filed (should work with edit too) is atm fitting into a given RegExp or if it still can fullfill it.

How to use:

To start it up, you use:

_RegEx_RestrictControl_setup (20) ; prepare for up to 20 Controls to restrictoÝ÷ Ù'¶)àj·¬¶¸¶*'¢v¢{k¢X¬vÞjÇ³&¬¶¬jëh×6$inp = GUICtrlCreateInput("", 10, 10, 100, 20)
_RegEx_RestrictControl_add ($inp, "^[a-z]{0,10}$") ; up to 10 letters
$inp2 = GUICtrlCreateInput("", 10, 200, 100, 20)
_RegEx_RestrictControl_add ($inp2, "^[a-zA-Z_0-9]{1,20}@[a-zA-Z_0-9]{2,20}.[a-z]{2,4}$", "g@gm.de") ; e-mail-addressoÝ÷ Ø2¢ë{*.+Þ¶¢{k¢R~*ì¶Ø^Ø^ë-®'-Ñz1¥©Ý«-jö¥Û-®)à~âµ8^½©bvËkxjvÞ¢hµçb~Ø^EèÆ¬~ée~)eyÖ¥Ø^¶)Â¥zÜ©x~z-Ê ÷+Ûay@Åi×lj|¬¹»-®)à¡ø~º&¶Ûh¶ººÞ×(Úèlµìmjwç$²Ø^EèÆazp'vÜ¢êì±ì¨ºwvÚ"ÉnuëaÆ¶¢Ê«±Êâ¦Ö¬²é¢©Ý±Êâ¦Ö«z)íëçb«¢+Ø¥¹±ÕÅÕ½ÐíIÍÑÉ¥Ñ
½¹ÑÉ½±IáÀ¹ÔÌÅÕ½ÐìoÝ÷ Ù8^~ée²«qæ®¶sc²ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÐ£°£²TDbæÖS¢&W7G&7D6öçG&öÅ&VtWæS2£²FW67&Föã¢F2TDb6â&W7G&7BFRFWBGVBçFòçWB6öçG&öÇ2ÆfR£²vÆRGær&6VBöâvfVâ&VwVÆ"W&W76öâà£²&WV&VÖVçC¢WFôB2ã"ãã÷"vW £²WF÷#¢VWFV&VRVWFV&VTv×æFRÂGG¢ò÷wwræWFöBæFR£²æ÷F6S¢&6VBöâ67&B'vg&÷7BâF2F&VC¢£²GG¢ò÷wwræWFöG67&Bæ6öÒöf÷'VÒöæFWç÷6÷wF÷3Ó3SSbf×¶ÃÖwV&Vv7FW&×6p£°£²ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÐ   ¢6æ6ÇVFRfÇC´wV6öç7FçG2æS2fwC° ¤vÆö&Â6öç7Bb33cµtÕô4ôÔÔäBÒ¤vÆö&Â6öç7Bb33c´Tåô4ätRÒ3 ¤vÆö&Âb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ³Õ³EÐ¤vÆö&Âb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅöEö6÷VçBÒ   £³ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÐ£°£²gVæ7FöâæÖS¢õ&VtWõ&W7G&7D6öçG&öÅ÷6WGW£²FW67&Föã¢6WG2WFRfVGW&W2öbF2TDbâ£²&ÖWFW"2¢b33cµ÷&U÷&5öÖö6öçG&öÇ2÷÷FöæÂÂFVfVÇB£²FVfæW2÷rÖç6öçG&öÇ2vâ&R6öçG&öÆÆVBBÖ×VÐ£²&WV&VÖVçB2¢F2TDbæ6ÇVFV@£²&WGW&âfÇVR2¢æöæRà£²WF÷"2¢VWFV&VP£°£³ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÐ¤gVæ2õ&VtWõ&W7G&7D6öçG&öÅ÷6WGWb33cµ÷&U÷&5öÖö6öçG&öÇ2Ò¢uT&Vv7FW$×6rb33cµtÕô4ôÔÔäBÂgV÷Cµõ&VtWõ&W7G&7D6öçG&öÅö6V6²gV÷C²¢&TFÒb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÖö6öçG&öÇ5Õ³EÐ¢b33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅöEö6÷VçBÒ¤VæDgVæ2³ÓÒfwCµõ&VtWõ&W7G&7D6öçG&öÅ÷6WGW  £³ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÐ£°£²gVæ7FöâæÖS¢õ&VtWõ&W7G&7D6öçG&öÅöF@£²FW67&Föã¢6WG2WFR6öçG&öÆÆærf÷"6öçG&öÂâ£²&ÖWFW"2¢b33cµ÷&U÷&5ö7G&Æ@£²BöbFR6öçG&öÂFò&RÖöæF÷&V@£²b33cµ÷&U÷&5÷&VvW÷GFW&à£²&VtWv62Fò&RgVÆÆfÆÆVB÷"gVÆÆfÆÆ&ÆP£²b33cµ÷&U÷&5÷fÆE÷7G&ær÷FöæÂÂFVfVÇBgV÷C²gV÷C²£²fÆB7G&ærf÷"FW7Færb&VtW6â7FÆÂ&RgVÆÆfÆÆVBà£²&WV&VÖVçB2¢F2TDbæ6ÇVFV@£²&WGW&âfÇVR2¢æöæRà£²WF÷"2¢VWFV&VP£°£³ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÐ¤gVæ2õ&VtWõ&W7G&7D6öçG&öÅöFBb33cµ÷&U÷&5ö7G&ÆBÂb33cµ÷&U÷&5÷&VvW÷GFW&âÂb33cµ÷&U÷&5÷fÆE÷7G&ærÒgV÷C²gV÷C²¢b33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅöEö6÷VçEÕ³ÒÒb33cµ÷&U÷&5ö7G&Æ@¢b33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅöEö6÷VçEÕ³ÒÒb33cµ÷&U÷&5÷&VvW÷GFW&à¢b33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅöEö6÷VçEÕ³%ÒÒb33cµ÷&U÷&5÷fÆE÷7G&æp¢b33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅöEö6÷VçEÕ³5ÒÒgV÷C²gV÷C°¢b33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅöEö6÷VçB³Ò¤VæDgVæ2³ÓÒfwCµõ&VtWõ&W7G&7D6öçG&öÅöF@  £³ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÐ£°£²gVæ7FöâæÖS¢õ&VtWõ&W7G&7D6öçG&öÅö6V6°£²FW67&Föã¢çFW&æÂ&ö6W76ærgVæ7FöâÒæ÷BFò&R6ÆÆVBg&öÒ÷WG6FRb333°£²&ÖWFW"2¢²ââåÐ£²&WV&VÖVçB2¢F2TDbæ6ÇVFV@£²&WGW&âfÇVR2¢æöæRà£²WF÷"2¢VWFV&VRW6ærvg&÷7Bb33·2v÷&²2&62£°£³ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÐ¤gVæ2õ&VtWõ&W7G&7D6öçG&öÅö6V6²b33c¶væBÂb33c¶×6rÂb33c·u&ÒÂb33c¶Å&Ò¢Æö6Âb33c¶äæ÷Fg6öFRÒôv÷&Bb33c·u&Ò¢Æö6Âb33c¶äBÒôÆõv÷&Bb33c·u&Ò¢Æö6Âb33c¶7G&ÂÒb33c¶Å&Ð £·â×6t&÷ÂgV÷C²gV÷C²ÂT&÷VæBb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÂÂ¢f÷"b33cµ÷&U÷&5öÒFòT&÷VæBb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÂÂÒ¢bb33c¶äBÒb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÕ³ÒFVà¢bb33c¶äæ÷Fg6öFRÒb33c´Tåô4ätRFVà¢²6V6²&VtWæB6WBFW@¢f÷"b33cµ÷&U÷&5ö¢ÒFò7G&ætÆVâb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÕ³%Ò¢b33cµ÷&U÷&5÷&VvW÷&W2Ò£·â×6t&÷ÂgV÷C·&VvW7G&ærgV÷C²ÂuT7G&Å&VBb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÕ³Òf×²7G&æuG&ÔÆVgBb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÕ³%ÒÂb33cµ÷&U÷&5ö¢¢b7G&æu&VtWuT7G&Å&VBb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÕ³Òf×²7G&æuG&ÔÆVgBb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÕ³%ÒÂb33cµ÷&U÷&5ö¢Âb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÕ³ÒFVâWDÆö÷¢b33cµ÷&U÷&5÷&VvW÷&W2Ò¢æW@¢bb33cµ÷&U÷&5÷&VvW÷&W2ÒFVà¢²6fR7G&ær2gV÷C¶vööBgV÷C²fÇVRf÷"ÆFW"&W6WGF&ÆG¢b33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÕ³5ÒÒuT7G&Å&VBb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÕ³Ò¢VÇ6P¢²&W6WBFWBFòÆ7B¶æ÷vâvööBfÇVP¢uT7G&Å6WDFFb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÕ³ÒÂb33c¶'&õõ&VtWõ&W7G&7D6öçG&öÅ²b33cµ÷&U÷&5öÕ³5Ò¢VæD`¢VæD`¢VæD`¢æW@¢²&ö6VVBFRFVfVÇBWFöC2çFW&æÂÖW76vR6öÖÖæG2à¢²÷RÇ6ò6â6ö×ÆWFRÆWBFRÆæR÷WBà¢²b333²b333²b333²'WBöæÇb33µ&WGW&âb33²vF÷WBçfÇVRvÆÂæ÷B&ö6VV@¢²FRFVfVÇBWFöC2ÖÖW76vRâFRgWGW&Rb333²b333²b333°¢&WGW&âb33c´uTõ%TäDTdÕ4p¤VæDgVæ2³ÓÒfwCµõ&VtWõ&W7G&7D6öçG&öÅö6V6° £²VÇærgVæ7Föâ'vg&÷7@¤gVæ2ôv÷&Bb33c·¢&WGW&â&E6gBb33c·Âb¤VæDgVæ2³ÓÒfwCµôv÷&@ £²VÇærgVæ7Föâ'vg&÷7@¤gVæ2ôÆõv÷&Bb33c·¢&WGW&â&DäBb33c·Âdddb¤VæDgVæ2³ÓÒfwCµôÆõv÷&

Have fun with that one!

Full source of a little test app is attached.

peethebee

RestrictControlRegExp.au3

RestrictControlRegExp_test.au3

XxXFaNtA · August 27, 2006

really n1

hunt · February 23, 2009

peethebee

Thank you very much. You saved me

Zacam · June 12, 2009

If you utilize this in a script that already has:

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

Then you need to comment out:

Global Const $WM_COMMAND = 0x0111
Global Const $EN_CHANGE = 0x300

In "RestrictControlRegExp.au3" or you will see this error:

C:\Program Files\AutoIt3\Include\RestrictControlRegExp.au3(15,34) : ERROR: $WM_COMMAND previously declared as a 'Const'
Global Const $WM_COMMAND = 0x0111
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files\AutoIt3\Include\RestrictControlRegExp.au3(16,32) : ERROR: $EN_CHANGE previously declared as a 'Const'
Global Const $EN_CHANGE = 0x300
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\All Users\Documents\New Folder\CSCfg0610.au3 - 2 error(s), 0 warning(s)

And should in not have a #include-once at the top?

As well, in "RestrictControlRegExp.au3", the Include for GUIConstants.au3 is unnecessary and or should be for GUIConstantsEX.au3. Additionally, adding in an include for WindowsConstants.au3 in the RestrictControlRegExp.au3, even if it is already included in the script you are using RestrictControlRegExp.au3 in, will prevent any warning messages.

Hope this helps anyone.

Edited June 30, 2009 by Zacam

ijourneaux · August 2, 2011

I found this UDF and it met my needs. Unfortuantely once I rolled out the application to the lab, a problem cropped up. After the program has been up and running for a while (several hours), suddenly the user can no longer enter a string. The characters show up and disappear almost immediately (as if it is failing the regexp comparison).

Anyone else using this UDF experienced this? Here is the code snippet I am using.

$SampleID = GuiCtrlCreateInput("", 140, 80, 130, 20)
_RegEx_RestrictControl_add ($SampleID, "^[a-zA-Z0-9()-]{0,10}$") ; up to 10 letters

maniootek · June 8, 2016

how to use it to let user enter only numbers in price format x.yy where x could be any number and y is a digit?

Edited June 8, 2016 by maniootek

jchd · June 8, 2016

The regexp would be "\d+\.\d{2}". Nothat this makes the dot and the cents parts (2 digits) mandatory.

Acanis · November 24, 2019

Pretty useful!

Edited November 24, 2019 by Acanis
Was already mentioned... ups ^^

Jos · November 24, 2019

1 hour ago, Acanis said:

Pretty useful!

Seriously? A thread of 2006 gets bumped by this post?
Please don't!

Jos

Sign In

Restrict text in an input based on a RegExp - live testing while typing

Recommended Posts

peethebee

XxXFaNtA

hunt

Zacam

ijourneaux

maniootek

jchd

Acanis

Jos

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta