51Testing软件测试论坛

标题: QTP中Split的基础用法拆分修改变量值 [打印本页]

作者: conner 时间: 2014-6-10 10:11
标题: QTP中Split的基础用法拆分修改变量值
' 比如获取某个输入框显示的内容，最后字符串是随机值，需要保留随机值，对其它数值进行任意修改组合：普通呼叫qtp_admin_140610084507
Dim Run_name,MyArray,Msg
'获取当前WebEdit中的value属性值
Run_name = Browser("XXXX").Page("XXXX").WebEdit("XXXX").GetROProperty("value")
'对获取值通过Split进行拆分，以_分隔
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)
'灵活组合使用
Msg = Msg & " " & MyArray(2)
’组合回去再加个_qtp
'Msg = MyArray(0) & "_" & MyArray(1) & "_" & MyArray(2) & "_" & MyArray(2) & "_qtp"
'在变量值后加内容也可以直接取
'Msg = Run_name & "_qtp"
’把组合好的值传回去
Browser("XXXX").Page("XXXX").WebEdit("XXX").Set Msg
'打印获取的数值
MsgBox Msg

作者: lsekfe 时间: 2014-6-26 14:43
支持下~

作者: 黑羽祭 时间: 2014-6-26 16:07
回复 1# conner

还不错，建议封装成函数

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)