共4 条记录, 每页显示 10 条, 页签: [1]

标题：金字塔读取txt文件，这个怎么写呢

1楼

qq代人发帖 发表于：2016/1/22 14:55:47

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
论坛上有写的代码，有没有读的代码

读取文件的一行，咋弄呢

2楼

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编辑过]

3楼

bage 发表于：2016/1/22 15:18:41

这些文档我都查过了，都只有写文件的例子，没有读取函数的列子呢。

我百度也查了，一直没找到读取文件的例子

4楼

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

共4 条记录, 每页显示 10 条, 页签: [1]