adodb.stream读文件到数组的代码
更新时间：2008年08月01日 23:34:53 作者：
用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)
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)
相关文章
用vbscript实现在文本文件中搜索两个项...2007-04-04![vbs 搜索代理地址实现代码[小偷程序]](//img.jbzj.com/images/xgimg/bcimg1.png)
将下面的代码，直接保存为getproxy.vbs即可。2009-10-10
作者：疯狗 终于在milw0rm找到了一个不错的shellcode，down&exec的，灰常好用！顺手写了一个C测试了下，结果是成功下载并执行了"木马"，muma.exe是我用delphi写的一个简单的执行测试程序，无毒无害。2008-04-04
VBS教程：方法-Read 方法...2006-11-11
用vbs实现配置无人登录计算机时使用的屏幕保护程序...2007-03-03
VBS教程：函数-TimeSerial 函数...2006-11-11
用VBS模拟二叉树，可以得到一个排序办法....2007-03-03
这篇文章主要介绍了BAT批处理、VBScript批量安装字体脚本分享,本文介绍了几种方法来实现需求,并对每一种的测试结果做了说明,需要的朋友可以参考下2014-07-07
用vbs实现禁用服务...2007-03-03
VBS教程：函数-CCur 函数...2006-11-11
![vbs 搜索代理地址实现代码[小偷程序]](http://img.jbzj.com/images/xgimg/bcimg1.png)
最新评论