- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 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) |
|