QTP的数据驱动的问题

alextowxm

现在我打开一个空的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 的 时候只是跑我我自己写的 脚本

sincor

lcdtiger

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

alextowxm

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

three116

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

alextowxm

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

alextowxm

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

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

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

alextowxm

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

three116

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

three116

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

风过无息

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