alextowxm 发表于 2007-11-2 11:46:50

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:32

问题1.楼主可以DEBUG一下,看看问题在哪里?
问题2.在run and setting可以修改的.具体是新打开个指定网页还是在已经打开的网页操作.

three116 发表于 2007-11-2 14:29:01

建议改成

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:07

在msgbox username和msgbox password前添加
call writeorderno()

alextowxm 发表于 2007-11-2 14:54:49

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

alextowxm 发表于 2007-11-2 14:59:22

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

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

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

alextowxm 发表于 2007-11-2 15:02:12

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

three116 发表于 2007-11-2 15:46:51

晕 这是基本问题
在录制和运行设置里面修改
我的是QTP9.2,是在Automation下的Record and run settings中修改为,已经打开的网页
:lol

alextowxm 发表于 2007-11-2 16:09:26

知道了
看你笑 的
我还以为是在file 里边的setting呢

lcdtiger 发表于 2007-11-2 16:21:27

楼主的函数中,username 和password都是临时变量。出了函数就没了,再msgbox也是不会显示东西的

sincor 发表于 2008-12-10 15:11:40

:lol :lol
页: [1]
查看完整版本: QTP的数据驱动的问题