Office中国论坛/Access中国论坛

标题: 怎么才能完整地读取文本文件的内容？ [打印本页]

作者: jjthelas 时间: 2002-8-11 18:06
标题: 怎么才能完整地读取文本文件的内容？
我用以下代码只能读到一部份内容，小文件就行，大一点的就只有前一部份，如何可以全部读出来，谢谢！

　　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

作者: 大熊 时间: 2002-8-11 19:21
怎样算大文件?

作者: jjthelas 时间: 2002-8-11 20:22
我用上述方法取得文本文件最多只能显示出其前1K多的内容，后面的就被截掉了，变量S的设置有关系吗？

作者: jjthelas 时间: 2002-8-13 17:47
没人有这种问题吗？谁能帮哥们儿一把呀？

作者: HG 时间: 2002-8-14 02:04
為什么要讀取文本文件的內容？只有知道要求，方可想辦法。

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

作者: 大熊 时间: 2002-8-15 02:06
debug.print s
好像可以读出来,MSGBOX 显示不出来,我用了个9K的文件,没问题.慢慢试试,你的想法应该是可行的.

作者: 大熊 时间: 2002-8-15 02:17
另外建义显示编程时显示申明FSO等对象

作者: jjthelas 时间: 2002-8-16 01:15
是MSGBOX显不出来呀，原来如此，我再试试。

谢谢！

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

作者: zhuyiwen 时间: 2002-8-16 01:23
Set fs = CreateObject("Scripting.FileSystemObject")

其中 FileSystemObject 就是 FSO

[em26]

作者: jjthelas 时间: 2002-8-16 16:46
谢谢，这是我第一次接触FileSystem的东东，我得好好看看。我有个坏习惯，喜欢拿来就用，还没搞懂就用来用去的，嘿嘿，没办法，工作中种是要用到这种我还没有掌握的东东，只好一知半解地上啦。

谢谢前辈指点！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)