| 标题 | adodb.stream读文件到数组的代码 |
| 分类 | 范文、应用文-IT技术专栏-脚本栏目 |
| 范文 | 用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) |
| 随便看 |
|
客官网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。