这样用为什么不行呢 各位高手 谢谢
Set TxtStr = fso.OpenTextFile(Filepath, ForReading, False, TristateFalse)arrStr = TxtStr.ReadAll
File = Mid(arrStr, 0, 100)
回复 2楼 不说也罢
谢谢这位 不是没有调用 是因为mid的起始因为1。还有，如果您有时间的话，我还有问题要请教一下：
还是刚才那个例子，
function X（）
。。。
Set TxtStr = fso.OpenTextFile(Filepath, ForReading, False, TristateFalse)
arrStr = TxtStr.ReadAll
File = Mid(arrStr,1, 100)
。。。
filepath是很大的txt文件的路径，
我想问下，如何分步读取这个文件，每次读100，
然后再调用这个 function ，从上次读取完结的位置继续读取
小弟不甚感激！