页面导航： 首页 → 脚本专栏 → vbs → 正文内容 文件到数组

发布：dxy 字体：[增加 减小] 类型：转载

用adodb.stream读取文件并保存为数组的实现代码

Function filenum(filename,i)
Dim st,s
Set st= CreateObject("ADODB.Stream")
st.Type = 2 '流类型为文本
st.Mode = 3 '模式为读写
st.Open
st.LineSeparator=13
st.LoadFromFile filename
Do While Not St.EOS
s = Split(st.readtext(), vbCrLf)
Loop
'MsgBox UBound(s) total
filenum=s(i)
st.Close
End function

MsgBox filenum("file.txt",2)

文章评论

共有 位脚本之家网友发表了评论我来说两句