Functionfilenum(filename,i)
Dimst,s
Setst=CreateObject("ADODB.Stream")
st.Type=2'流类型为文本
st.Mode=3'模式为读写
st.Open
st.LineSeparator=13
st.LoadFromFilefilename
DoWhileNotSt.EOS
s=Split(st.readtext(),vbCrLf)
Loop
'MsgBoxUBound(s)total
filenum=s(i)
st.Close
Endfunction
MsgBoxfilenum("file.txt",2)
网站建设 IT知识 IT知识教程 adodb.stream读文件到数组的代码 
最新文章
热门文章
猜你喜欢
