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

时间:2021-03-17 人气:0

想了解adodb.stream读文件到数组的代码的相关内容吗，在本文为您仔细讲解文件到数组的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：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)

加载全部内容