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)

您可能感兴趣的文章:

• 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问题