adodb.stream读文件到数组的代码

用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)