QTP常用函数
来源:互联网 发布:黑客军团 第三季 知乎 编辑:程序博客网 时间:2024/05/16 09:41
'********************************
'是否匹配正则表达式
'********************************
Function RegExpTest(patm,strng)
Dim regEx,retVal
Set regEX = New RegExp
regEx.Pattern=patm
regEx.IgnoreCase=False
retVal = regEx.Test(strng)
If retVal Then
RegExpTest =true
Else
RegExpTest =false
End If
End Function
'********************************
'获得今天日期:Year-Month-Day
'********************************
Public Function Get_Today
dim todaytoday
todaytoday=Date '避免重复调用Date,所以赋值给一个变量
Get_Today=Year(todaytoday) & "-" & Right("0" & Month(todaytoday),2)& "-" & Right("0" & Day(todaytoday),2)
End Function
'********************************
'求阶乘
'********************************
Public Function Multiply(n)
Dim x
Multiply = 1
For x = 1 To n
Multiply = Multiply * x
Next
End Function
'********************************
'检查是否存在数字
'********************************
Function checkString (myString)
checkString = False
Dim myChr
For myChr = 48 to 57
If InStr(myString,Chr(myChr)) > 0 Then
checkString = True
Exit Function
End If
Next
End Function
- QTP常用VBS函数
- QTP常用函数
- QTP常用函数
- QTP常用函数
- QTP常用的vbs函数
- QTP操作Excel常用函数
- qtp自带常用函数
- QTP中常用的VBS函数
- QTP中常用的VBS函数
- QTP中常用的随机数生产函数
- QTP操作QC组件常用函数
- QTP中常用的VBS函数
- QTP中常用的VBS函数
- QTP中常用的VBS函数
- QTP函数
- QTP函数
- 【转载】软件测试工具QTP中常用的VBS函数
- QTP常用保留对象
- bionic Condition
- SVG中的'defs' and 'use'-可复用的图元定义
- Linux /proc目录下meminfo与cpuinfo文件分析
- 纯C实现字符串拷贝
- GPIO及中断API函数
- QTP常用函数
- MFC LINK : error : Internal error during ReadSymbolTable
- opencv cvSaveImage 无损保存图片
- php设置session的生存周期
- Spring.NET IOC简单DEMO
- mongodb基本增删改查
- cut、sort、tr、wc、head、tail
- 配置Ubuntu
- Storm应用系列之——最基本的例子