【已解决】QTP测试脚本文件读写问题

tianyinghua2012

刚才写了一个脚本，用到了文件读写语法，执行脚本时，没有问题，但是，打开写入的文件时，其内容只有一部分。具体代码如下：
Set fso=createobject("scripting.filesystemobject")
If (fso.fileexists("a.txt")) Then
        Set file=fso.opentextfile("a.txt",1,true)
   set zsc=createobject("scripting.dictionary")
  msgbox "该文件存在",,"提示"
        else
        Set file=fso.createtextfile("a.txt",2,true)
        file.write"测试"
        file.writeblanklines(2)
        file.writeline"sdfsfsdf"
          msgbox "该文件不存在",,"提示"
        file.writeline"今天天气很好"
        msgbox "写入文件成功",,"提示"
End If

do while file.atendofstream<>true
line=line+1
zsc.add line,file.readline

'对话框显示
msgbox "第" & line & "行: " & zsc(line) &"内容"
loop

'关闭文件
file.close
-------------------------------------------------
a.txt文件的路径默认是“D:\Program Files\Mercury Interactive\QuickTest Professional\Tests”。
打开a.txt文件，里面只有”测试“两个字，执行时，弹出的对话框，内容也是空的。

xjwldlover

额 好好练习，顶一个~

黑羽祭

回复 1# tianyinghua2012


    我稍微修改了一下脚本，LZ你看一下吧

1. Dim FilePath
   
2. FilePath = "D:\a.txt"
   
3. 
   
4. Set fso=createobject("scripting.filesystemobject")
   
5. If (fso.fileexists(FilePath)) Then
   
6.         msgbox "该文件存在",,"提示"
   
7. else
   
8.         msgbox "该文件不存在",,"提示"
   
9.         Set WriteFile=fso.createtextfile(FilePath,2,False)     '改了个参数
   
10.                 WriteFile.WriteLine"abc"
    
11.                 WriteFile.writeline"sdfsfsdf"
    
12.                 WriteFile.writeline"今天天气很好"
    
13.                 msgbox "写入文件成功",,"提示"
    
14.                 WriteFile.close
    
15.         Set WriteFile = nothing
    
16. End If
    
17. 
    
18. 
    
19. Set ReadFile = fso.OpenTextFile(FilePath,1,False)      '分开定义,
    
20. set zsc=createobject("scripting.dictionary")
    
21. do while ReadFile.atendofstream<>true
    
22.         line=line+1
    
23.         zsc.add line,ReadFile.readline
    
24. 
    
25.         '对话框显示
    
26.         msgbox "第" & line & "行: 【" & zsc(line) &"】内容"
    
27. '        print  ReadFile.readline
    
28. loop
    
29. 
    
30. '关闭文件
    
31. ReadFile.close
    
32. Set ReadFile = Nothing

复制代码

malasyan

我是来看我的头像的

黑羽祭

回复 4# malasyan


    打酱油的拖出去枪毙五分钟~

xjwldlover

回复 3# 黑羽祭


    【黑羽祭】写的挺好哈，文件操作函数的关键除了查找匹配，在规范上就要做到让 文件读写要明确分离、互不影响，用完关闭流，让文件流操作不冲突。完全可以做文件读写的范例程序了~

黑羽祭

回复 6# xjwldlover


    哈哈，谢谢夸奖~

wzxwumike

学习了，菜鸟飘过

malylian

楼主写一个登录脚本呗？