51Testing软件测试论坛

标题: QTP的数据驱动的问题 [打印本页]

作者: alextowxm 时间: 2007-11-2 11:46
标题: QTP的数据驱动的问题
现在我打开一个空的qtp
然后在其中写上的代码是

为读txt)
Function writeorderno(orderno)
  Dim fso, myfile,username,passwd
  Set fso=CreateObject("scrīpting.FileSystemObject")
Set myfile=fso.openTextFile("e:\11.txt",1,false)
tmp=split(myfile.readline,",")
username=tmp(0)
passwd=tmp(1)
myfile.close
End Function
msgbox username / 我想用这个办法来看看是不是txt 的文件中的东西真的读到qtp的两个变量中了

msgbox password

但是问题:
1. 现在看到的提示框中没有信息
2. 为什么我没有录制任何QTP自带的订票系统但是在开始run 的时候都会打开该 web网站  不知道怎么改使其在run 的时候只是跑我我自己写的脚本

作者: 风过无息 时间: 2007-11-2 13:56
问题1.楼主可以DEBUG一下,看看问题在哪里?
问题2.在run and setting可以修改的.具体是新打开个指定网页还是在已经打开的网页操作.

作者: three116 时间: 2007-11-2 14:29
标题: 建议改成
dim username,passwd
Function writeorderno()
  Dim fso, myfile
  Set fso=CreateObject("scrīpting.FileSystemObject")
Set myfile=fso.openTextFile("e:\11.txt",1,false)
tmp=split(myfile.readline,",")
username=tmp(0)
passwd=tmp(1)
myfile.close
End Function
msgbox username
msgbox password

作者: three116 时间: 2007-11-2 14:30
在msgbox username 和msgbox password前添加
call writeorderno()

作者: alextowxm 时间: 2007-11-2 14:54
知道了
现在的问题是为什么我现在在run的时候在
Set fso=Server.CreateObject("scrīpting.FileSystemObject") 过不去
不知道这是有什么问题
希望大侠指出
继续解决

作者: alextowxm 时间: 2007-11-2 14:59

原帖由 风过无息 于 2007-11-2 13:56 发表
问题1.楼主可以DEBUG一下,看看问题在哪里?
问题2.在run and setting可以修改的.具体是新打开个指定网页还是在已经打开的网页操作.

现在问题我以知道
应为function 是vb的一个函数是需要调用的时候才可以run的所以加上call 即可

希望你可以指出如何操作如何使用debug 和使用run and seting 我不知道从那里设置

作者: alextowxm 时间: 2007-11-2 15:02
现在我的问题是
我只是打开QTp -> new ->添加脚本(和自带的订票系统不管)-> run
但是run的时候你会发现会打开IE 并打开自带的订票网站
我不知道这是为什么
需要怎么解决才能够解决这个问题

作者: three116 时间: 2007-11-2 15:46
晕这是基本问题
在录制和运行设置里面修改
我的是QTP9.2，是在Automation下的Record and run settings中修改为，已经打开的网页

作者: alextowxm 时间: 2007-11-2 16:09
知道了
看你笑的
我还以为是在file 里边的setting呢

作者: lcdtiger 时间: 2007-11-2 16:21
楼主的函数中，username 和password都是临时变量。出了函数就没了，再msgbox也是不会显示东西的

作者: sincor 时间: 2008-12-10 15:11

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