51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2103|回复: 8
打印 上一主题 下一主题

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

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-12-6 11:14:51 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 黑羽祭 于 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文件,里面只有”测试“两个字,执行时,弹出的对话框,内容也是空的。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2012-12-6 12:00:52 | 只看该作者
额 好好练习,顶一个~
回复 支持 反对

使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    3#
    发表于 2012-12-7 10:35:29 | 只看该作者
    回复 1# tianyinghua2012


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

    3. Set fso=createobject("scripting.filesystemobject")
    4. If (fso.fileexists(FilePath)) Then
    5.         msgbox "该文件存在",,"提示"
    6. else
    7.         msgbox "该文件不存在",,"提示"
    8.         Set WriteFile=fso.createtextfile(FilePath,2,False)     '改了个参数
    9.                 WriteFile.WriteLine"abc"
    10.                 WriteFile.writeline"sdfsfsdf"
    11.                 WriteFile.writeline"今天天气很好"
    12.                 msgbox "写入文件成功",,"提示"
    13.                 WriteFile.close
    14.         Set WriteFile = nothing
    15. End If


    16. Set ReadFile = fso.OpenTextFile(FilePath,1,False)      '分开定义,
    17. set zsc=createobject("scripting.dictionary")
    18. do while ReadFile.atendofstream<>true
    19.         line=line+1
    20.         zsc.add line,ReadFile.readline

    21.         '对话框显示
    22.         msgbox "第" & line & "行: 【" & zsc(line) &"】内容"
    23. '        print  ReadFile.readline
    24. loop

    25. '关闭文件
    26. ReadFile.close
    27. Set ReadFile = Nothing
    复制代码
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
    发表于 2012-12-7 14:32:05 | 只看该作者
    我是来看我的头像的
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    5#
    发表于 2012-12-7 16:08:44 | 只看该作者
    回复 4# malasyan


        打酱油的拖出去枪毙五分钟~
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
    发表于 2012-12-7 16:12:07 | 只看该作者
    回复 3# 黑羽祭


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

    使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    7#
    发表于 2012-12-12 16:29:52 | 只看该作者
    回复 6# xjwldlover


        哈哈,谢谢夸奖~
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
    发表于 2013-11-29 18:04:00 | 只看该作者
    学习了,菜鸟飘过
    回复 支持 反对

    使用道具 举报

  • TA的每日心情

    2015-9-14 10:47
  • 签到天数: 17 天

    连续签到: 1 天

    [LV.4]测试营长

    9#
    发表于 2015-9-14 09:52:56 | 只看该作者
    楼主写一个登录脚本呗?
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-14 03:04 , Processed in 0.068276 second(s), 26 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表