If statement detecting a string

[Athos]

Hi guys, I have a box that decides the number of runs my script will make. Since I'm trying to make my GUI Idiot-proof, I want to prevent them from putting anything stupid like 1a into the the trials column.

My current code:

$numTrials = GUICtrlRead($Edit_1)



If $numTrials<> "" AND $numTrials<> 0 AND $numTrials<>String Then



For $i=1 to $numTrials Step 1

RunScript()

Next



Exit

Else

MsgBox(64, "Error","Please Enter All Fields")

EndIf

The problem is that my script gives me an error for when $numTrials is a string like 1a23sd.

Is there a way I can avoid this error?

Thanks,

Athos

[BrewManNH]

If you're using an Input control then you can do it this way.

GUICtrlCreateInput("", 10, 5, 300, 20, BitOr($ES_LEFT, $ES_AUTOHSCROLL, $ES_NUMBER))

The style setting $ES_NUMBER will let it only accept numbers in the control.

[JLogan3o13]

Hi, Athos. If I am understanding you correctly, you're wanting the Edit1 control to only accept numbers? If so, look at the 6th option in GuiCtrlCreateEdit (style). You can set this to $ES_NUMBER like so.

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

Local $myedit, $msg
GUICreate("Test") ; will create a dialog box that when displayed is centered
$myedit = GUICtrlCreateEdit("", 8, 48, 425, 385, $ES_NUMBER)
    GUISetState()
    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then
   ExitLoop
  EndIf
    WEnd
    GUIDelete()

[Athos]

Hey that's a pretty good solution, Thanks Brewman Edit, you too JLogan

Still, I wonder what would have worked as an if statement solution. Is String not the correct way of handling strings?

Edited July 11, 2012 by Athos

[BrewManNH]

String converts things INTO strings, it doesn't tell you if they are strings or not, IsString will tell you if it's a string.

[DicatoroftheUSA]

You can also use regex to validate answers.

for example

;enter a 2-4 digit number

$sNotNumber = 'abracadabr'

$iTooBig = 32151235

$iTooSmall = 1

$iOkeyDokey1 = 12

$iOkeyDokey2 = 1234

_test($sNotNumber)

_test($iTooBig)

_test($iTooSmall)

_test($iOkeyDokey1)

_test($iOkeyDokey2)

Func _test($value)

If StringRegExp($value, '^(?:[0-9]{2,4})$') Then

MsgBox(0, $value, "Valid")

Else

MsgBox(0, $value, "InValid")

EndIf
EndFunc

Edited July 11, 2012 by DicatoroftheUSA