怎么才能完整地读取文本文件的内容？

jjthelas

我用以下代码只能读到一部份内容，小文件就行，大一点的就只有前一部份，如何可以全部读出来，谢谢！

　　Const ForReading = 1, ForWriting = 2, ForAppending = 3
　　Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
　　Dim fs, f, ts, s
　　Set fs = CreateObject("Scripting.FileSystemObject")
　　Set f = fs.GetFile("测试文件.txt")
　　Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
　　s = ts.Readall
　　MsgBox s
　　ts.Close  

大熊

怎样算大文件?

jjthelas

我用上述方法取得文本文件最多只能显示出其前1K多的内容，后面的就被截掉了，变量S的设置有关系吗？

jjthelas

没人有这种问题吗？谁能帮哥们儿一把呀？

HG

為什么要讀取文本文件的內容？只有知道要求，方可想辦法。

jjthelas

我有很多文字材料，都是用文本文件的存在硬盘的某一目录下，而且不断有新的材料产生，我的目的是把这些文字材料每一份的作者、产生日期、字数等取出或算出放入数据库中，以便每个月或每年度进行统计，以显示每个作者的产量。

大熊

debug.print s
好像可以读出来,MSGBOX 显示不出来,我用了个9K的文件,没问题.慢慢试试,你的想法应该是可行的.

大熊

另外建义显示编程时显示申明FSO等对象

jjthelas

是MSGBOX显不出来呀，原来如此，我再试试。

谢谢！

我还得看看什么叫FSO，嘿嘿，很菜的问题，是吧？
没办法，因为我太菜了！！！

zhuyiwen

Set fs = CreateObject("Scripting.FileSystemObject")

其中 FileSystemObject 就是 FSO

[em26]