[贴士] 读取文本字符

SzAngel

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz

Dim fso,file,filename
设置语句文件的详细路径
filename=fdlove句子.txt
设置外部函数
set fso=CreateObject(Scripting.FileSystemObject)
以读的方式打开
set file=fso.opentextfile(filename,1)
Dim i,n,maxText
ReDim text(1)
设置语句,判断是不是最后一句,先判断这个文本有多少行.
i=0
While file.atendofstream-1
    tp=file.readline
    i=i+1
EndWhile
设置最大字符数组数
maxText=i
ReDim text(maxText)
关闭文件
file.close
以读的方式打开
set file=fso.opentextfile(filename,1)
读取
i=0
tp=time
For maxText
    得到字符
    text(i)=file.readline
    i=i+1
EndFor
VBS tp=DateDiff(s,tp,time)
VBSCall MessageBox(tp & , & maxText)