51Testing软件测试论坛

标题: 【已解决】QTP测试脚本文件读写问题 [打印本页]
作者: tianyinghua2012    时间: 2012-12-6 11:14
标题: 【已解决】QTP测试脚本文件读写问题
本帖最后由 黑羽祭 于 2012-12-12 16:30 编辑

刚才写了一个脚本，用到了文件读写语法，执行脚本时，没有问题，但是，打开写入的文件时，其内容只有一部分。具体代码如下：
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    时间: 2012-12-6 12:00
额 好好练习，顶一个~
作者: 黑羽祭    时间: 2012-12-7 10:35
回复 1# tianyinghua2012


    我稍微修改了一下脚本，LZ你看一下吧
  1. Dim FilePath
  2. FilePath = "D:\a.txt"

  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


  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

  25.         '对话框显示
  26.         msgbox "第" & line & "行: 【" & zsc(line) &"】内容"
  27. '        print  ReadFile.readline
  28. loop

  30. '关闭文件
  31. ReadFile.close
  32. Set ReadFile = Nothing
复制代码
作者: malasyan    时间: 2012-12-7 14:32
我是来看我的头像的
作者: 黑羽祭    时间: 2012-12-7 16:08
回复 4# malasyan


    打酱油的拖出去枪毙五分钟~
作者: xjwldlover    时间: 2012-12-7 16:12
回复 3# 黑羽祭


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


    哈哈，谢谢夸奖~
作者: wzxwumike    时间: 2013-11-29 18:04
学习了，菜鸟飘过
作者: malylian    时间: 2015-9-14 09:52
楼主写一个登录脚本呗？



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2