adodb.stream读文件到数组的代码
导读：收集整理的这篇文章主要介绍了adodb.stream读文件到数组的代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 Function filenum(filename,i Dim...
收集整理的这篇文章主要介绍了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)
您可能感兴趣的文章:
- JScript中使用ADODB.Stream判断文件编码的代码
- 利用MSXML2.XmlHttp和Adodb.Stream采集图片
- 使用asp下的adodb.stream 下载文件而不是打开
- asp下用ADODB.Stream代替FSO读取文本文件
- asp adodb.stream对象的方法/属性
- ADODB.Stream组件Charset属性值集合
- 用ADODB.Stream转换
- exe2swf 工具(Adodb.Stream版)
- windows2008+iis7无组件上传写入文件失败ADODB.Stream 错误 800a0bbc问题
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： adodb.stream读文件到数组的代码
本文地址： https://pptw.com/jishu/609714.html