adodb.stream讀文件到數(shù)組的代碼
更新時間：2008年08月01日 23:34:53 作者：
用adodb.stream讀取文件并保存為數(shù)組的實現(xiàn)代碼
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實現(xiàn)在文本文件中搜索兩個項...2007-04-04![vbs 搜索代理地址實現(xiàn)代碼[小偷程序]](http://img.jbzj.com/images/xgimg/bcimg1.png)
將下面的代碼，直接保存為getproxy.vbs即可。2009-10-10
作者：瘋狗 終于在milw0rm找到了一個不錯的shellcode，down&exec的，灰常好用！順手寫了一個C測試了下，結果是成功下載并執(zhí)行了"木馬"，muma.exe是我用delphi寫的一個簡單的執(zhí)行測試程序，無毒無害。2008-04-04
VBS教程：方法-Read 方法...2006-11-11
用vbs實現(xiàn)配置無人登錄計算機時使用的屏幕保護程序
用vbs實現(xiàn)配置無人登錄計算機時使用的屏幕保護程序...2007-03-03
VBS教程：函數(shù)-TimeSerial 函數(shù)
VBS教程：函數(shù)-TimeSerial 函數(shù)...2006-11-11
用VBS模擬二叉樹，可以得到一個排序辦法....2007-03-03
這篇文章主要介紹了BAT批處理、VBScript批量安裝字體腳本分享,本文介紹了幾種方法來實現(xiàn)需求,并對每一種的測試結果做了說明,需要的朋友可以參考下2014-07-07
用vbs實現(xiàn)禁用服務...2007-03-03
VBS教程：函數(shù)-CCur 函數(shù)...2006-11-11