【已解决】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文件，里面只有”测试“两个字，执行时，弹出的对话框，内容也是空的。 额 好好练习，顶一个~ 回复 1# tianyinghua2012
我稍微修改了一下脚本，LZ你看一下吧Dim FilePath
FilePath = "D:\a.txt"
Set fso=createobject("scripting.filesystemobject")
If (fso.fileexists(FilePath)) Then
msgbox "该文件存在",,"提示"
else
msgbox "该文件不存在",,"提示"
Set WriteFile=fso.createtextfile(FilePath,2,False) '改了个参数
WriteFile.WriteLine"abc"
WriteFile.writeline"sdfsfsdf"
WriteFile.writeline"今天天气很好"
msgbox "写入文件成功",,"提示"
WriteFile.close
Set WriteFile = nothing
End If
Set ReadFile = fso.OpenTextFile(FilePath,1,False) '分开定义,
set zsc=createobject("scripting.dictionary")
do while ReadFile.atendofstream<>true
line=line+1
zsc.add line,ReadFile.readline
'对话框显示
msgbox "第" & line & "行: 【" & zsc(line) &"】内容"
' printReadFile.readline
loop
'关闭文件
ReadFile.close
Set ReadFile = Nothing 我是来看我的头像的 回复 4# malasyan
打酱油的拖出去枪毙五分钟~:lol 回复 3# 黑羽祭
【黑羽祭】写的挺好哈，文件操作函数的关键除了查找匹配，在规范上就要做到让 文件读写要明确分离、互不影响，用完关闭流，让文件流操作不冲突。完全可以做文件读写的范例程序了~ 回复 6# xjwldlover
哈哈，谢谢夸奖~:lol 学习了，菜鸟飘过 楼主写一个登录脚本呗？
页:
[1]
