Break on

$uid = "12345"

If IsNumeric($uid) = 1
	? "UID is numeric."
Else
	? "UID is NOT numeric."
EndIf

;Function       IsNumeric()
;
;Author:	apronk
;
;Action:
;		Determines whether an expression is a valid numeric type.
;
;Syntax:
;		IsNumeric($strInput)
;
;Version:
;		1.0 December 11th 2009.
;		Initial post.
;
;Parameters:
;		$strInput - Required.
;			The input string to evaluate.
;
;Returns:
;		1 if the input is Numeric
;		0 if the input is NOT Numeric.
;
;Dependencies
;		No known dependencies
;
;KiXtart:
;		Developed and tested KiXtart 4.61 and Windows 7 Ultimate.
;
;Example(s):
;		Break on
;		$rc = IsNumeric("2000")
;		? $rc
;
;Code:
Function IsNumeric($strInput)
	Dim $sc, $rc
	$sc = CreateObject("ScriptControl")
	$sc.Language = "VBScript"
	$rc = $sc.Eval('IsNumeric("' + $strInput + '")')
	If $rc = -1
		$IsNumeric = 1
	Else
		$IsNumeric = 0
	EndIf
EndFunction

Function IsNum($_)

  $IsNum = IIF($_ = Val($_), 1, 0)
  Exit 0

EndFunction

'123 ' IsNum('123') ?
'abc ' IsNum('abc') ?
'a23 ' IsNum('a23') ?
'1a3 ' IsNum('1a3') ?
'12a ' IsNum('12a') ?
'a2a ' IsNum('a2a') ?


$Id = '13293'
If Len($Id) = 5 And IsNum($Id)
  '5 digits!'
Else
  'invalid ID!'
EndIf

if len(val($number)) = 5
	? 'its a 5 dig number'
else
	? 'not a 5dig number'
endif

? isNum("01234")
? isNum("12345")
? isNum("01230")
? isNum("0123a")
? isNum("a1234")

get $

Function isNum($n)
   Dim $x,$c,$count
   For $x=1 to Len($n)
      $c = SubStr($n,$x,1)
      If $c = "0" OR Val($c)
         $count = $count+1
      Endif
   Next
   $isNum = IIF(Len($n)=$count, 1, 0)
EndFunction

; Validate numeric string, strip leading zeros
Function IsNum($_)
  While Left($_, 1) = 0
    $_ = SubStr($_, 2)
  Loop
  $IsNum = IIF($_ = val($_), 1, 0)
  Exit 0
EndFunction

; validate string is numeric and 5 digits
Function IsNum3($_Id)

  If Len($_Id) = 5 And IsNum($_Id)
    '5 digits!'
  Else
    'invalid ID!'
  EndIf
  Exit 0
EndFunction

; Test various combinations
'  12345 ' IsNum3('12345') ?
'12345a6 ' IsNum3('12345a6') ?
'  abcde ' IsNum3('abcde') ?
'  a2345 ' IsNum3('a2345') ?
'  1a345 ' IsNum3('1a345') ?
'  1234a ' IsNum3('1234a') ?
'  a2a4b ' IsNum3('a2a45') ?
'  02468 ' IsNum3('02468') ?