51Testing软件测试论坛

标题: vbs里引号转意字符？？？急急！！（已搞定！！） [打印本页]

作者: lyj841120 时间: 2009-9-30 11:58
标题: vbs里引号转意字符？？？急急！！（已搞定！！）
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 编辑 ]

作者: wugecat 时间: 2009-9-30 13:57
Execute 的时候出错了没？？如果没出错就证明是对的

作者: hsjzfling 时间: 2009-9-30 14:05
其实是对的。。。

作者: lyj841120 时间: 2009-9-30 14:16

原帖由 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 编辑 ]

作者: wugecat 时间: 2009-9-30 14:19

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

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

作者: lyj841120 时间: 2009-9-30 14:22

原帖由 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 时间: 2009-9-30 14:33
Sub testNo1-1(testInData, fileName, testOutData)
命名方法的时候可以加“－”么？

作者: lyj841120 时间: 2009-9-30 14:34

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

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

作者: 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)&",testOutData)"
msgbox srtCall
Execute srtCall

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

作者: lyj841120 时间: 2009-9-30 14:55

原帖由 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 编辑 ]

作者: lyj841120 时间: 2009-9-30 15:11
我把电脑重启，就好了，什么道理！！！！！！

作者: mklodoss 时间: 2009-9-30 15:32
人品问题

作者: giki 时间: 2011-7-2 17:24
如果感觉语法正确，一直调试不通，不防重起qtp试试，我有一次也被狠狠的耍了一把！qtp有bug

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