标题:
[贴士]
读取文本字符
[打印本页]
作者:
SzAngel
时间:
2007-8-30 18:32
标题:
读取文本字符
在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--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)
欢迎光临 紫菀论坛 (http://bbs.szyin.com/)
Powered by Discuz! 7.1