首页 程序猿 软件测试 浏览内容
QTP中Split的基础用法拆分以及修改变量值
比如获取某个输入框显示的内容,最后字符串是随机值,需要保留随机值,对其它数值进行任意修改组合:普通呼叫
1 2 | qtp_admin_140610084507 Dim Run_name,MyArray,Msg |
获取当前WebEdit中的value属性值
1 | Run_name = Browser("XXXX").Page("XXXX").WebEdit("XXXX").GetROProperty("value") |
对获取值通过Split进行拆分,以_分隔
1 2 3 4 | MyArray = Split(Run_name,"_",-1,1) MyArray(0) contains "普通呼叫qtp" MyArray(1) contains "admin" MyArray(2) contains "140610084507" |
去掉" _ "
Msg = MyArray(0) & " " & MyArray(1) & " " & MyArray(2)
灵活组合使用
1 | Msg = Msg & " " & MyArray(2) |
组合回去再加个_qtp
1 | Msg = MyArray(0) & "_" & MyArray(1) & "_" & MyArray(2) & "_" & MyArray(2) & "_qtp" |
在变量值后加内容也可以直接取
1 | Msg = Run_name & "_qtp" |
把组合好的值传回去
1 | Browser("XXXX").Page("XXXX").WebEdit("XXX").Set Msg |
打印获取的数值
1 | MsgBox Msg |