版主大人,您的代码,没有剔除掉类似这种:'911.2.345'输入.这种多个小数点的错误输入,怎么弄? 回复 2# afan
这样不能输入小数点了,,,, 本帖最后由 ncxj 于 2016-7-21 22:56 编辑
想了想,找到一个办法,使用系统自带函数就够了:$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
页:
1
[2]