51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

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

[原创] 请问下面语句的意思

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-8-9 19:11:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
TestPath=left(environment.Value("TestDir"),Instr(1, environment.Value("TestDir"), "测试脚本", 0)-1)+"函数库\"

谢谢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-8-9 20:52:28 | 只看该作者
分解一下:
str1 = environment.Value("TestDir")   
num1 = Instr(1, str1, "测试脚本", 0)
TestPath = left(str1,num1 - 1) + "函数库\"
回复 支持 反对

使用道具 举报

  • TA的每日心情
    奋斗
    2014-12-18 10:31
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    3#
    发表于 2010-8-10 09:42:24 | 只看该作者
    Testpath=Environment.Value("TestDir")   '获取正在运行的QTP脚本路径,假设取到的路径为:"D:\Projectpath\测试脚本"
    Lenth=Instr(1, Testpath , "测试脚本", 0)-1        '获取路径中第一次出现“测试脚本”的位置(16),-1即取前一位 '即 15
    Projectpath=left(Testpath,Lenth)      '从左边开始取"D:\Projectpath\测试脚本"的前15位字符 即:D:\Projectpath\
    Functionpath=Projectpath+"函数库\" ' +号作用是连接字符串,Functionpath的值为:D:\Projectpath\函数库\

    [ 本帖最后由 feiyunkai 于 2010-8-10 09:43 编辑 ]
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-8 04:38 , Processed in 0.076180 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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