51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2290|回复: 2
打印 上一主题 下一主题

[原创] QTP中Split的基础用法拆分修改变量值

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2014-6-10 10:11:40 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
' 比如获取某个输入框显示的内容,最后字符串是随机值,需要保留随机值,对其它数值进行任意修改组合:普通呼叫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
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    无聊
    昨天 09:05
  • 签到天数: 1050 天

    连续签到: 1 天

    [LV.10]测试总司令

    2#
    发表于 2014-6-26 14:43:12 | 只看该作者
    支持下~
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    3#
    发表于 2014-6-26 16:07:39 | 只看该作者
    回复 1# conner


        还不错,建议封装成函数
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-22 01:12 , Processed in 0.087600 second(s), 26 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表