以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  金字塔读取txt文件，这个怎么写呢  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=90619)
--  作者：qq代人发帖
--  发布时间：2016/1/22 14:55:47
--  金字塔读取txt文件，这个怎么写呢
 Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("D:\\testfile.txt", True)
\'Set tf = fso.GetFile("D:\\testfile.txt")

tf.WriteLine("Testing 1, 2, 3.")
tf.WriteBlankLines(3)
tf.Write ("This is a test.")
tf.Close
论坛上有写的代码，有没有读的代码

读取文件的一行，咋弄呢
--  作者：yukizzc
--  发布时间：2016/1/22 15:05:19
--  

建议楼主自行百度下这类vba对象的使用，http://wenku.baidu.com/link?url=YRUOU9Z9OcSXKVu6iGND-s-WP9eSuXW9pnNLjUNYveuYT9hwvkShZ72_wWaNAPQWGYhwz6of_o0fQkloI4K6dfnO6hrz3B9LfTQHVn1UZH_&qq-pf-to=pcqq.c2c

类似的网上百度都有很多，您完全可以通过自己学习

[此贴子已经被作者于2016/1/22 15:12:20编辑过]
--  作者：bage
--  发布时间：2016/1/22 15:18:41
--  
这些文档我都查过了，都只有写文件的例子，没有读取函数的列子呢。
我百度也查了，一直没找到读取文件的例子
--  作者：yukizzc
--  发布时间：2016/1/22 16:27:24
--  

这个帖子下面有read方法的，您点开来看既有

Set fso = CreateObject("Scripting.FileSystemObject")

Set sFile = fso.OpenTextFile("C:/testfile.txt", 1)

  application.MsgOut  sFile.ReadLine

   sFile.Close

Set fso = Nothing

Set sFile = Nothing