51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1865|回复: 6
打印 上一主题 下一主题

[原创] 再次请教:怎么在QTP写文件?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-4-16 11:24:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
open "E:\YDL-Work\2007-4-16\测试报告.txt"  for  append as #1
print #1,"**************************************************************************************"+CHR(13)+CHR(10)
print #1,"测试用例"+list+":"+CHR(13)+CHR(10)

这三行都报错   Expected Statement
是什么原因

谢谢各位仁兄
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-4-16 12:22:06 | 只看该作者
你看看我的BLOG,里面有一篇文章就是关于怎么往TXT文件读写的脚本.
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2007-4-16 12:37:55 | 只看该作者
ROBOT里面这样写文件的
回复 支持 反对

使用道具 举报

  • TA的每日心情
    无聊
    2015-3-12 14:20
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    4#
    发表于 2007-4-16 14:45:44 | 只看该作者
    怪不得很熟悉,原来时robot里面这样写的!
    QTP这样写肯定时不行的
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2007-4-16 17:01:04 | 只看该作者
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tf = fso.CreateTextFile("E:\YDL-Work\2007-4-16\测试报告.txt", True)
    tf.WriteLine("**************************************************")
    tf.WriteBlankLines(1)
    tf.Write "测试用例"+list+":"
    我现在用fso的办法能写文件了,但是不能append,各位DX有append的方法吗?
    帮助手册也没有说,只有write、writeline、read谢谢各位
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
     楼主| 发表于 2007-4-16 17:02:24 | 只看该作者
    我在“风过无息 ”兄的博客找到append方法了,谢谢啦
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2007-4-17 12:20:41 | 只看该作者
    hehe,多按F1
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-9 05:17 , Processed in 0.064404 second(s), 23 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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