|
Function SelectRegExp(Obj,Patrn)
Dim NumOfItems,i,CurrentValue,regEx,ItemToSelect,oldFilter
'初始化正则表达式
Set regEx=new RegExp
regEx.pattern=patrn
regEx.Ignorecase=false '区分大小写
oldfilter=Reporter.Filter '保存默认值
Reporter.Filter=2 '仅发送错误
ItemToSelect=-1
'获取测试对象的 NumOfItems属性
NumOfItems=Obj.getroproperty("items count")
For i=0 to NumOfItems-1
CurrentValue=Obj.GetItem(i)
If regEx.test(CurrentValue)Then
If (ItemToselect<>-1) Then
SelectRegExp=-1 '表示匹配项不唯一
Reporter.Filter=oldFilter
Exit function
End If
ItemToSelect=i
End If
Next
Reporter.Filter=oldFilter '重置默认设置
'做出选择动作
If (ItemToSelect>=0) Then
SelectRegExp=Obj.Select(ItemToSelect)
else
SelectRegExp=-1
End If
End Function
我不太明白下面这一段
If regEx.test(CurrentValue)Then
If (ItemToselect<>-1) Then
SelectRegExp=-1 '表示匹配项不唯一
为什么当regEX.test为真,当ItemToSelect <> -1时,就要SelectRegExp=-1。
请帮忙解释一下。还有就是ItemToselect<>-1时,是说明要选择的记录在list中出现了吗
谢谢 |
|