在QTP中如何从txt文件读取数据

love3380

我网上看到一段代码，我稍微改了一下，内容如下：


Dim fso, myfile,userName,Password
Set fso=CreateObject("scrīpting.FileSystemObject")
Set myfile = fso.openTextFile("C:\login.txt",1,false)
tmp = split(myfile.readline,",")
userName = tmp(0)
msgbox(userName)
Password = tmp(1)
myfile.close

但是总提示“ActiveX 部件不能创建对象: 'scrīpting.FileSystemObject'”，不知道是怎么回事！请各位帮我看看！

yuandjing

耶，这样就强壮了
Function read_line(pathway, rowcount)
        Dim fso,myfile,i,flag
        flag = 1
        Set fso=CreateObject("scripting.FileSystemObject")
        If fso.FileExists(pathway) then
                Set myfile = fso.openTextFile(pathway,1,false)
        Else
                flag = 0
        End If
       
        For i=1 to rowcount-1
                If Not myfile.AtEndOfLine Then
                        myfile.SkipLine
                End If
        Next
       
        If flag = 1 then
                If Not myfile.AtEndOfLine Then
                        read_line = myfile.ReadLine
                Else
                        read_line = "文本越界"
                End If
                myfile.close
        Else
                read_line = "文件不存在"
        End If
End Function

coletan

有没什么办法是可以读到制定哪一行，比如说我开头的是IE.EXE，但是行数会不断的变化

binflying

没看明白    还没到QTP   倒啊`~~

v_v

Call read_line(3)
Function read_line(rowcount)
Set fso=CreateObject("scripting.FileSystemObject")   
Set myfile = fso.openTextFile("D:\temp\test.txt",1,false)
For i=0 to rowcount-1
read_line=myfile.ReadLine
msgbox read_line

Next
myfile.close
End Function
可以实现循环读取各行的值

james.zhong

哈哈~~~学到点经验~~谢谢！！

suifengpiao

原帖由 rojer521 于 2007-7-28 11:47 发表
do until (myfile.AtEndofStream)
    tmp = myfile.readline
    ...
loop

学习了

xihong2004

一定要顶

xihong2004

本贴不错

风过无息

1. Function read_line(rowcount)
   
2. Set fso=CreateObject("scripting.FileSystemObject")   
   
3. Set myfile = fso.openTextFile("C:\qtplog.txt",1,false)
   
4. 
   
5. For i=1 to rowcount-1
   
6. myfile.SkipLine
   
7. Next
   
8. 
   
9. read_line=myfile.ReadLine
   
10. 
    
11. myfile.close
    
12. End Function

复制代码

以上这个方法在处理错误输入的时候还不完善,有兴趣的朋友可以完善它.

[ 本帖最后由 风过无息 于 2007-8-1 19:38 编辑 ]

flyskypei

原帖由 风过无息 于 2007-8-1 13:17 发表
其实可以用个循环+SkipLine来读取特定行的数据,呵呵.

怎么来读取特定行的数据？

MarsNoNo

while not myfile.atendofstream
    mychar = myfile.readline
    msgbox mychar
wend

可以这样试试。用循环+readline读取txt文件的内容。

风过无息

其实可以用个循环+SkipLine来读取特定行的数据,呵呵.

zhyb_2008

sdlkfj2 支持一下

gzj_06

原帖由 风过无息 于 2007-7-28 12:01 发表
用SkipLine可以实现.

SkipLine方法：跳过下一行

1. Dim fso, myfile,msg
   
2. Set fso=CreateObject("scripting.FileSystemObject")   
   
3. Set myfile = fso.openTextFile("C:\login.txt",1,false)
   
4. myfile.SkipLine                    '跳过第一行  
   
5. msg=myfile.ReadLine           '读取的是第二行
   
6. myfile.close

复制代码

gzj_06

原帖由 love3380 于 2007-7-28 09:40 发表
如何读取第二行的数据呢？

ReadLine方法就可以实现

1. msg1=myfile.ReadLine   '读取第一行
   
2. msg2=myfile.ReadLine           '读取第二行
   
3. msg3=myfile.ReadLine           '读取第三行
   
4. msgbox msg1
   
5. msgbox msg2
   
6. msgbox msg3

复制代码

ppent

这里很多qtp高手阿

风过无息

用SkipLine可以实现.

1. Dim fso, myfile,msg
   
2. Set fso=CreateObject("scripting.FileSystemObject")   
   
3. Set myfile = fso.openTextFile("C:\login.txt",1,false)
   
4. myfile.SkipLine
   
5. msg=myfile.ReadLine
   
6. myfile.close

复制代码

rojer521

do until (myfile.AtEndofStream)
    tmp = myfile.readline
    ...
loop

love3380

如何读取第二行的数据呢？