如何获取磁盘文件内容

ChanJian910

比如：磁盘文件D:\test\new*.txt
而这个new*.txt的文件名字是不固定的（也就是说利用通配符的方式实现），这个txt文件有一些文本内容，请问如何获取这些文本内容，并将这些文本内容存入一个excel中？


最主要的是我想知道怎样获取文本内容，谢谢各位了！

yuandjing

可以搜一下精华区我帖子发的一些函数
有对于txt和excel的读写操作的，可以参考一下
(搞错了，在qtp的精华版，但是都是vb代码，都是可以用的)

[ 本帖最后由 yuandjing 于 2009-1-8 16:05 编辑 ]

caption

watir-文件操作（读取文件)
http://www.51testing.com/?44957/ ... e_itemid_97493.html
ruby_学习笔记:读写文件
http://www.51testing.com/?46209/ ... e_itemid_80644.html

ChanJian910

谢谢caption的回复

村上舞!舞!舞

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