51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3725|回复: 4
打印 上一主题 下一主题

[Robot] 如何获取磁盘文件内容

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-1-8 09:51:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
比如:磁盘文件D:\test\new*.txt
而这个new*.txt的文件名字是不固定的(也就是说利用通配符的方式实现),这个txt文件有一些文本内容,请问如何获取这些文本内容,并将这些文本内容存入一个excel中?


最主要的是我想知道怎样获取文本内容,谢谢各位了!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2009-1-8 13:15:31 | 只看该作者
可以搜一下精华区我帖子发的一些函数
有对于txt和excel的读写操作的,可以参考一下
(搞错了,在qtp的精华版,但是都是vb代码,都是可以用的)

[ 本帖最后由 yuandjing 于 2009-1-8 16:05 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2009-1-8 15:32:56 | 只看该作者
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2009-1-11 21:47:47 | 只看该作者
谢谢caption的回复
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2009-1-20 16:01:30 | 只看该作者

在Robot中读取文本文件内容

Sub main
   Dim GetTxtdate as String
   Dim x
   Dim y
   Open "c:\temp001.txt" for Input as #1
   x=1
   Do Until x=Lof(1)
      Line Input #1, GetTxtdate
      x=x+1
      y=Seek(1)
     If y>Lof(1) then
         x=Lof(1)
      Else
         Seek 1,y
      End If
      MsgBox GetTxtdate
   Loop
   Close #1
End Sub
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-13 21:13 , Processed in 0.067254 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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