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)
您可能感兴趣的文章
- 01-10下载文件到本地运行的vbs
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS教程:属性-Column 属性
- 01-10VBS教程:属性-Line 属性
- 01-10VBS教程:属性-Type 属性
- 01-10VBS教程:属性-Size 属性
- 01-10VBS教程:方法-Skip 方法
- 01-10利用vbscript脚本修改文件内容,此适用于自动化的操作中
- 01-10脚本编程3 关于文件的读写
- 01-10利用wscript执行文件[包括可执行exe文件]vbs脚本