论坛 › 已解决问题区 › 正则表达式不能以0开头或输入0

silvay22 发表于 2009-1-14 23:31:55

正则表达式不能以0开头或输入0

只能输入有两位小数的正实数   ^+(.{2})?$能否进一步限定不能以0开头或是输入0及0.00

[ 本帖最后由 silvay22 于 2009-1-17 20:59 编辑 ]

class 发表于 2009-1-15 10:05:18

dim $str,$s
$str="555.00"
$s=StringRegExp($str,"^[^0]++.{2}",0,1)
ConsoleWrite($s)

Returns 1 (matched) or 0 (no match)

[ 本帖最后由 class 于 2009-1-15 10:10 编辑 ]

liongodmien 发表于 2009-1-16 15:47:46

不懂ＬＺ的意思．．．．

pcbar 发表于 2009-1-16 19:10:32

dim $str,$s
do
$str = InputBox("输入结果测试","请输入大于0的正实数",""," ","-1","-1","-1","-1")
Until StringRegExp($str,"^+\d*\.{0,1}\d{0,2}$",0)
MsgBox(0,'输入正确',$str)

silvay22 发表于 2009-1-17 20:57:53

pcbar正解！高手就是高手！

查看完整版本: 正则表达式不能以0开头或输入0