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

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
可以实现循环读取各行的值

binflying

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

coletan

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

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