QTP读取文本问题

andycai

QTP读取文本问题
想问一下，我读取文本内容，要转向下一行，是怎么读取的，用readline好像读取一整行的。下一行就读取不了了。我使用了readall后，是全部内容读取，不符合我的意图，我想一行一行读取。
这个是我的代码：
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("e:\51test.txt", 1 , False)
Tmp = Split(MyFile.ReadAll, ",",-1,1)
For i=0 To 1
username=tmp(i)
password=tmp(i)
MsgBox username &"/"& password
Next
MyFile.Close
每次循环，第一次提示框的值是对的。第二次循环提示框的值就显示全部的值了。而我想每次循环就提示一行的数据值。我的文本格式是
存取登陆帐号的，格式如：aaa，bbb

milo.jiang

建议用EXCEL形式保存测试数据，读取的时候可以将EXCEL文本中的内容导入到DATATABLE中，再通过DATATABLE的相关函数读取指定行和列的信息

andycai

其实我想每种方式都尝试一下。这样感觉才比较好点吧呵呵

milo.jiang

恩，有道理啊，这样可以拓宽思路。
不过就这个问题，个人的感觉是VBS对txt文本操作的函数很有限，不如EXCEL中VBA的函数强大

sidneylover

while MyFile.atendofline<>true
msgbox MyFile.readLine
...............
wend

andycai

谢谢。已经解决问题了。
Dim fso, MyFile,i,tmp
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("e:\51test.txt", 1 , False)
Do Until MyFile.AtEndOfStream/AtEndOfLine（两个都可以用）
  tmp=MyFile.ReadLine
  MsgBox tmp
loop
MyFile.Close

mustwangrong

AtEndOfStream--学习ing
记得以前有个帖子问读txt的，不知道他解决了没有
不过这个方法应该只适合txt每个纪录都换行的吧
空格分格的呢...

[ 本帖最后由 mustwangrong 于 2008-4-9 17:11 编辑 ]

hxf

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("e:\51test.txt", 1 , False)
While myfile.AtEndOfStream <> True
Tmp = Split(MyFile.Readline, ",")
username=tmp(0)
password=tmp(1)
MsgBox username &"/"& password
wend
MyFile.Close
这段代码能满足你的需求。

tiger_86

关于txt的文件的读写，我曾经的问过一次！
我的问题是 读取一定的字节，并不是要读取一行，
现在我的问题也已经解决了！谢谢各位的帮忙！