vbs里引号转意字符？？？急急！！（已搞定！！）

lyj841120

Execute "Call testNo" & testCaseNum & "(testInData, """ & fileName & """, testOutData)"

想得到： Execute Call testNo1-1(testInData, "PJAB4110", testOutData), 但是在QTP里调式出来却是Execute Call testNo1-1(testInData, ""PJAB4110"", testOutData), 不对，我又改成：Execute "Call testNo" & testCaseNum & "(testInData, " & Chr(34) & fileName & Chr(34) & ", testOutData)",还是得到了Execute Call testNo1-1(testInData, ""PJAB4110"", testOutData),还是不对，该怎么写啊？？？

我现在改成：
Dim srtCall
srtCall = "Call testNo" & testCaseNum & "(testInData, " & Chr(34) & fileName & Chr(34) & ", testOutData)"
msgbox srtCall
Execute srtCall

再调试发现msgbox srtCall 出来的结果是对的Call testNo1-1(testInData, "PJAB4110", testOutData), 但是把srtCall ADD TO WACHT 一看就不对了Execute Call testNo1-1(testInData, ""PJAB4110"", testOutData),看来QTP本身解析有问题啊？

[ 本帖最后由 lyj841120 于 2009-9-30 15:12 编辑 ]

giki

如果感觉语法正确，一直调试不通，不防重起qtp试试，我有一次也被狠狠的耍了一把！qtp有bug

mklodoss

人品问题

lyj841120

我把电脑重启，就好了，什么道理！！！！！！

lyj841120

原帖由 wugecat 于 2009-9-30 14:45 发表
没办法了。。。我都调试通过了
Dim srtCall
testCaseNum="1_3"
fileName="x"
testInData="a"
testOutData="c"
srtCall = "Call testNo"&testCaseNum&"(testInData,"&Chr(34)&fileName&Chr(34)&",testOutDat ...

我人品就这么的差啊，这是什么道理？难道跟QTP版本有关，我的QTP是9.2的。

[ 本帖最后由 lyj841120 于 2009-9-30 15:06 编辑 ]

wugecat

没办法了。。。我都调试通过了
Dim srtCall
testCaseNum="1_3"
fileName="x"
testInData="a"
testOutData="c"
srtCall = "Call testNo"&testCaseNum&"(testInData,"&Chr(34)&fileName&Chr(34)&",testOutData)"
msgbox srtCall
Execute srtCall


sub testNo1_3 (a,b,c)
   msgbox "成功"
   msgbox a
   msgbox b
   msgbox c
End sub

lyj841120

原帖由 wugecat 于 2009-9-30 14:33 发表
Sub testNo1-1(testInData, fileName, testOutData)
命名方法的时候可以加“－”么？

是我打错了，脚本里写的是下划线。

wugecat

Sub testNo1-1(testInData, fileName, testOutData)
命名方法的时候可以加“－”么？

lyj841120

原帖由 wugecat 于 2009-9-30 14:19 发表

应该是对的，估计是你方法写的有问题吧

Execute的时候出错了，语句不对。Execute Call testNo1-1(testInData, "PJAB4110", testOutData)是没有问题的，但是Execute Call testNo1-1(testInData, ""PJAB4110"", testOutData)就出错了。

Sub testNo1-1(testInData, fileName, testOutData)
..............

End Sub

wugecat

原帖由 hsjzfling 于 2009-9-30 14:05 发表
其实是对的。。。

应该是对的，估计是你方法写的有问题吧

lyj841120

原帖由 wugecat 于 2009-9-30 13:57 发表
Execute 的时候出错了没？？如果没出错就证明是对的

Execute的时候出错了，语句不对。Execute Call testNo1-1(testInData, "PJAB4110", testOutData)是没有问题的，但是Execute Call testNo1-1(testInData, ""PJAB4110"", testOutData)就出错了。

[ 本帖最后由 lyj841120 于 2009-9-30 14:20 编辑 ]

hsjzfling

其实是对的。。。

wugecat

Execute 的时候出错了没？？如果没出错就证明是对的