【软件自动化测试 - VBScript 7】= Using Locate to determine if specific text exists within a string

最新推荐文章于 2024-09-14 23:01:09 发布

星火测吧

最新推荐文章于 2024-09-14 23:01:09 发布

阅读量547

点赞数

分类专栏： VbsScript 文章标签： vbscript string 测试 function search

本文链接：https://blog.csdn.net/xuyubotest/article/details/6734922

版权

VbsScript 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

'Locate Method
' Using Locate to determine if specific text exists within a string.

MsgBox LocateText("http://blog.csdn.net/xuyubotest", "xuyubotest")
MsgBox LocateText("http://blog.csdn.net/xuyubotest", "QTP.*.com")

' =============================================================
' function: LocateText
' desc : Uses a regular expression to locate text within a string
' params : strString is the string to perform the search on
' strPattern is the regular expression
' returns : True if the pattern was found, False otherwise
' =============================================================
Function LocateText(strString, strPattern)

Dim objRegEx

' create the regular expression
Set objRegEx = New RegExp

' set the pattern
objRegEx.Pattern = strPattern

' ignore the casing
objRegEx.IgnoreCase = True

' perform the search
LocateText = objRegEx.Test(strString)

' destroy the object
Set objRegEx = Nothing

End Function
' LocateText