51Testing软件测试论坛

标题: QTP&VBS编程讨论，如何取得字符串中的页码 [打印本页]
作者: softCore    时间: 2011-10-13 22:33
标题: QTP&VBS编程讨论，如何取得字符串中的页码
比如 “page 4 of 1118”，我们想取得这串字符中的数字4作为当前页，1118作为总的页码；

请注意，页码的位数是不定的，而且字符串中的间隔不一定规范，比如4of15这种也有可能遇到。使用vbs拿到这两个数字？请给出你的解决方法。这个是QTP unplugged上的题目，看似简单，其实是不简单的，呵呵。
作者: softCore    时间: 2011-10-13 22:33
我给出我的解决方法：
  1. 'How can we find the current page and the total page values from the string "Page 4 of 15"?
  2. Option Explicit
  3. Dim strText
  4. strText = "Page 4 of 15"
  5. 'msgbox Mid(strText, 6, 1)
  6. 'Msgbox Right(strText, 2)
  7. Dim strCurrPage, strTotPage
  8. GetCurrTotPage strText, strCurrPage, strTotPage
  9. msgbox "Current Page is " & strCurrpage & "!" & vbCrLf  & _
  10.        "Total Page is " & strTotPage & "!"
  11. Public Function GetCurrTotPage(ByVal strText, ByRef strCurrPage, ByRef strTotPage)
  12.    'Use Regular Expression
  13.    Dim   rePattern, reObj
  14.          rePattern = "\d+\s*of\s*\d+"
  15.    Set   reObj = New RegExp
  16.          reObj.Pattern = rePattern
  17.          reObj.Global = False
  18.          reObj.IgnoreCase = True
  19.    'msgbox reObj.Test(strText)
  20.    If reObj.Test(strText) Then
  21.       Dim oCollMatches
  22.       Set oCollMatches = reObj.Execute(strText)   
  23.       If oCollMatches.Count > 0 Then
  24.          Dim strMatch, strMatchValue
  25.          For Each strMatch in oCollMatches
  26.             strMatchValue = strMatch.Value
  27.             strCurrPage = Trim(Mid(strMatchValue, 1, InStr(strMatchValue, "of") - 1))
  28.             strTotPage = Trim(Mid(strMatchValue, InStr(strMatchValue, "of") + 2))
  29.          Next
  30.       End If
  31.       GetCurrTotPage = True
  32.    Else
  33.       msgbox "Please pass the valid string into function!"
  34.    End If
  35. End Function
复制代码




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2