首页 / 编程脚本 / 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）