请问下面语句的意思

lp7wshishui

TestPath=left(environment.Value("TestDir"),Instr(1, environment.Value("TestDir"), "测试脚本", 0)-1)+"函数库\"

谢谢

feiyunkai

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 编辑 ]

rojer521

分解一下：
str1 = environment.Value("TestDir")   
num1 = Instr(1, str1, "测试脚本", 0)
TestPath = left(str1,num1 - 1) + "函数库\"