关于QTP中的正则表达式

yakezone

扩展saffron框架。在verify函数中添加一个判断。 假设输入的值是lun，期望的查询结果有lun0、lun1、lun2. 要用verify判断结果是否正确，在verify中怎么使用正则表达式实现？

阳光下的橙子

回复 5# 阳光下的橙子


    这段我试了一下，不能直接这样判断，我修改了一下:

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches, count   
   count = 0
   Set regEx = New RegExp   
   regEx.Pattern = patrn   
   regEx.IgnoreCase = True   
   regEx.Global = True  
   Set Matches = regEx.Execute(strng)   
   For Each Match in Matches   
       count = count+1
       Regstr = Regstr&count&":"&Match.Value&vbcrlf
   Next
   If count > 0 Then
   MsgBox "在字符串中找到"&count&"个匹配值",1,"结果输出"
   RegExpTest = Regstr
   Else
   MsgBox "在字符串中找不到匹配值",1,"结果输出"
   RegExpTest = "结果为空"
   End if
End Function

msgbox(RegExpTest("is.", "IS1 is2 IS3 is4"))


楼主你可以直接放到QTP里跑跑就知道了，这个可以直接用

阳光下的橙子

你也可以把判断写的简单点，比如
   For Each Match in Matches  
     If Match.Value  Then
      Reporter.ReportEvent MicPass, "Verify", "Pass"
      Exit For
     End if
   Next
这样只要找到一个带lunxx的就算成功了

阳光下的橙子

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   
   Set regEx = New RegExp   
   regEx.Pattern = patrn   
   regEx.IgnoreCase = True   
   regEx.Global = True   
   Set Matches = regEx.Execute(strng)   
   For Each Match in Matches  
    RetStr = RetStr & "Match found at position "
      RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
      RetStr = RetStr & Match.Value & "'." & vbCRLF
   Next
   RegExpTest = RetStr
End Function
MsgBox(RegExpTest("lun.", strng(你所需要进行判断的字符串))


这段函数直接在QTP帮助里面就有，我改了下发出来，但建议以后先看看帮助再伸手

lyscser

我空间有个PAFAWEB的XX函数，无非就是.*一下，楼主可以去看下

lanchozxd

lun[/d]{0,}
我也不太会，错了别见怪哈