在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'”，不知道是怎么回事！请各位帮我看看！

sidneylover

同志，你这是网上搜了再接拷去运行的吧
'scrīpting前面那个i

jiangdq

开始-》运行
regsvr32 jscript.dll
regsvr32 vbscript.dll

ybbiagu

Dim fso, myfile,userName,Password
Set fso=CreateObject("scripting.FileSystemObject")   
Set myfile = fso.openTextFile("C:\login.txt",1,false)
tmp = split(myfile.readline,",")
userName = tmp(0)
msgbox(userName)
Password = tmp(1)
myfile.close
'scripting 写错了

love3380

对对对，就是那个i写错了！太感谢你们了！sdlkfj2

love3380

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

rojer521

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

风过无息

用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

复制代码

ppent

这里很多qtp高手阿

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

复制代码

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

复制代码

zhyb_2008

sdlkfj2 支持一下

风过无息

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

MarsNoNo

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

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

flyskypei

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

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

风过无息

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 编辑 ]

xihong2004

本贴不错

xihong2004

一定要顶

suifengpiao

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

学习了

james.zhong

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