如何判断输入是否为数字

ncxj

回复 9# pcbar


版主大人,您的代码,没有剔除掉类似这种:'911.2.345'输入.这种多个小数点的错误输入,怎么弄?

ncxj

回复 2# afan


    这样不能输入小数点了,,,,

ncxj

想了想,找到一个办法,使用系统自带函数就够了:

$a = '1.2.a35'
$a = '1.23x5'
$a = '1.235*10'
$a = '1.2.35'
$a = '1235'

If StringIsDigit($a) Or StringIsFloat($a) Then
        Beep(300, 500)
        ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : 是数字值  $a = ' & $a & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
Else
        Beep(400, 500)
        ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : 不是数字值 $a = ' & $a & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
EndIf