51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

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

[原创] QTP 缺少对象: 'response'

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-7-27 18:32:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
坛友有fso操作代码
照着做,QTP  run的时候会提示 QTP 缺少对象: 'response',各位大大看看这是什么问题?


脚本贴下来:
原文链接:http://www.51testing.com/?uid-61623-action-viewspace-itemid-95674

打开并读文件
dim fso, f
set fso = server.CreateObject("scrīpting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 1, false) '第二个参数 1 表示只读打开,第三个参数表示目标文件不存在时是否创建
f.Skip(3) '将当前位置向后移三个字符
f.SkipLine() '将当前位置移动到下一行的第一个字符,注意:无参数
response.Write f.Read(3) '从当前位置向后读取三个字符,并将当前位置向后移三个字符
response.Write f.ReadLine() '从当前位置向后读取直到遇到换行符(不读取换行符),并将当前位置移动到下一行的第一个字符,注意:无参数
response.Write f.ReadAll() '从当前位置向后读取,直到文件结束,并将当前位置移动到文件的最后
if f.atEndOfLine then
    response.Write("一行的结尾!")
end if
if f.atEndOfStream then
    response.Write("文件的结尾!")
end if
f.Close()
set f = nothing
set fso = nothing
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2010-7-27 18:47:47 | 只看该作者
菜鸟,请高手务必指点下吧

千恩万谢
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2010-7-27 19:55:43 | 只看该作者
打开帮助文档,索引输入“FileSystemObject”, 里面有很多示例代码的。
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2010-7-28 08:27:09 | 只看该作者

回复 3# 的帖子

  谢谢ermine
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-10 21:14 , Processed in 0.070742 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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