如何判断输入框中的内容是11位整数？

开朗幽默 发表于 2010-9-1 17:36:30

代码如下：a=Browser("CRM综合业务系统").Page("CRM综合业务系统").Frame("Frame").WebEdit("PHONENO").GetROProperty("value")
a=VarType(a)
msgbox a
返回值为8，属于string型的。但要求是11位的整数，请问应该怎么做啊？

skyzhu 发表于 2010-9-1 17:40:08

GetROProperty 取到的肯定都是字符串
这种特殊的，就只能用正则表达式来验证了

鹭岛发表于 2010-9-2 10:09:44

a="12345678901"
b=CDBL(a)
If b>9999999999 and b<100000000001 Then
msgbox "ok"
End If

测试后，发现可以弹出OK

skyzhu 发表于 2010-9-2 10:41:30

回复 3# 的帖子

有BUG ，呵呵
19999999999.33211

hsjzfling 发表于 2010-9-2 10:59:08

方法很多了，比如先判断字符串长度为11位，再判断每一个字符是否都为数字，或者转换之后判断数值大小等等Function IsInt11(num)
If IsNumeric(num) And Len(num)=11 Then
b = CDbl(num)
Else
IsInt11 = False
End If
IsInt11 = (b>=10000000000 And b<=99999999999)
End Function

liujinkui 发表于 2010-9-2 11:40:28

回复 5# 的帖子

还是没有处理小数的情况
111222.3334IsNumeric 返回的也True

hsjzfling 发表于 2010-9-2 13:18:16

回复 6# 的帖子

不能满足第二次判断(b>=10000000000 And b<=99999999999)

shiker2003 发表于 2010-9-8 20:25:27

正则表达式最方便

页: [1]

51Testing软件测试论坛 's Archiver