CLS
BREAK ON
;http://www.kixtart.org/ubbthreads/showthreaded.php?Cat=&Number=109066
;http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Board=UBB1&Number=126912
$text = "8", "a", "-12"
 ;$Pattern='^\d{1,3}$' 
 ;This would match any 1,2, or 3 digit number.
 ;After check to verify that the the input passes this test
 ; do a simple check for greater then 0 and less then 266. 
for each $item in $text
    if RegExpTest("^\d{1,3}$", $item, 1)
            ? $item + "-Found match"
     else
            ? $item + "-No Match found"
     endif
next
get $
Function RegExpTest($Pattern, $String, $IgnoreCase)
   Dim $regEx, $Match, $Matches             ; Create variable.
   $regEx = createobject("VBscript.RegExp") ; Create a regular expression.
   $regEx.Pattern    = $Pattern             ; Set pattern.
   $regEx.IgnoreCase = val($IgnoreCase)     ; Set case insensitivity.
   $RegExpTest = $regEx.Test($String)       ; Execute test search.
EndFunction

Quote:

---

Quantifier Description
{num} Matches the preceding element num times.
{min, max} Matches the preceding element at least min times, but not more than max times.
? Matches any preceding element 0 or 1 times.
* Matches the preceding element 0 or more times.
+ Matches the preceding element 1 or more times.

---

;Function	ISNUMERIC()
;Author		Kent Dyer (leptonator@hotmail.com)
;Action		Check for a numeric value
;Syntax		ISNUMERIC("value")
;Version	1.0
;Date           09 - March - 2004
;Date Revised   09 - March - 2004
;Parameters 	value 
;		Value to test for
;Remarks	This is a simple check for a numeric value.
;Returns	Check for the value being a numeric
;Dependencies 	None
;KiXtart Ver	4.02
;Example(s)	?ISNUMERIC('123342334')
;               ?ISNUMERIC('test')
; 
?ISNUMERIC('-123342334')
?ISNUMERIC('123342334')
?ISNUMERIC('test')
get $
FUNCTION ISNUMERIC($val)
 DIM $i,$res[1],$result
 IF CINT($val)
    $res='Integer'
  ELSE
    $res='nonInteger'
  ENDIF
    $ISNUMERIC=$res
ENDFUNCTION

? "1test =  " + ISNUMERIC('1test')  

Quote:

---

1test = Integer

---

function isNumeric($var)
 if $var=0.1+$var-0.1
   $isNumeric = 1
 endif
endfunction

function isNumeric($var)
 $IsNumeric = iif($var=0.0+$var,NOT 0,NOT 1)
endfunction

function isNumeric($var)
 $IsNumeric = not iif($var=0.0+$var,1,0)
endfunction

function isNumeric($var) 
  $IsNumeric = ($var=0.0+$var)
endfunction

function isNumeric($var)
 $IsNumeric = $var=0.0+$var
endfunction