51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2958|回复: 3
打印 上一主题 下一主题

[求助] 自动化测试如何生成文本日志?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2014-9-2 10:52:28 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
代码是这样的
Dim fsol, MyFileSet
fsol = CreateObject("Scripting.FileSystemObject")
系统错误提示Run Error:
对象不支持此属性或方法"fsol=CreateObject("Scripting.FileSystemObject")"
请教如何解决?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    开心
    2024-10-4 10:34
  • 签到天数: 1208 天

    连续签到: 1 天

    [LV.10]测试总司令

    2#
    发表于 2014-9-4 09:56:15 | 只看该作者
    我这也提示这个

    FSO是FileSystemObject 或 Scripting.FileSystemObject 的缩写,为 IIS 内置组件,用于操作磁盘、文件夹或文本文件。

    不知道是不是要装IIS啊
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2024-10-4 10:34
  • 签到天数: 1208 天

    连续签到: 1 天

    [LV.10]测试总司令

    3#
    发表于 2014-9-4 09:57:03 | 只看该作者
    建议你还是换其他的方式吧
    回复 支持 反对

    使用道具 举报

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

    连续签到: 1 天

    [LV.5]测试团长

    4#
    发表于 2014-9-15 15:38:02 | 只看该作者
    本帖最后由 黑羽祭 于 2014-9-15 15:39 编辑

    文本日志的话是要写入文本是吧
    在QTP中,经常会遇到需要写入外部文件的地方,比如写Log什么的,这时,可以使用下面代码进行写Txt操作。
    1. '新建文件
    2. Dim FSO
    3. Const ForReading=1,ForWriting=2,ForAppending=8 '参数赋值(1:只读,2:只写,8:追加)
    4. Set FSO = CreateObject("Scripting.FileSystemObject") '创建一个文本对象

    5. Dim txtPath
    6. txtPath = "D:\log.txt"
    7. FSO.OpenTextFile txtPath,8,true 'true表示如果当前目录下不存在log.txt文件则创建一个。

    8. '写文件
    9. Call QTP_Writetxt(txtPath,"我是追加")
    10. Call QTP_Writetxt2(txtPath,"我是改写")
    复制代码
    然后是两个函数:
    1. '===========================================
    2. '写文件函数(追加)
    3. '===========================================
    4. Public Function QTP_Writetxt(oPath,words)
    5. Dim FSO
    6. Set FSO = CreateObject("Scripting.FileSystemObject")
    7. Set logFile = FSO.OpenTextFile(oPath, 8, true)

    8. logFile.WriteLine (CStr(words))
    9. logFile.Close

    10. Set logFile = Nothing
    11. Set FSO = Nothing
    12. End Function

    13. '===========================================
    14. '写文件函数(改写)
    15. '===========================================
    16. Public Function QTP_Writetxt2(oPath,words)
    17. Dim FSO
    18. Set FSO = CreateObject("Scripting.FileSystemObject")
    19. Set logFile = FSO.OpenTextFile(oPath, 2, true)

    20. logFile.WriteLine (CStr(words))
    21. logFile.Close

    22. Set logFile = Nothing
    23. Set FSO = Nothing
    24. End Function
    复制代码
    除了直接打印之外,我还会加上写html语句,然后新建文件的后缀名也改成.html,这样,保存的文件就是一个网页啦,可以写入超链接,颜色,插入图片等等一系列动作。
    这样,一个打印就可以做到图文并茂啦~
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-14 23:47 , Processed in 0.074244 second(s), 26 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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