adodb.stream讀文件到數(shù)組的代碼
更新時(shí)間：2008年08月01日 23:34:53 作者：
用adodb.stream讀取文件并保存為數(shù)組的實(shí)現(xiàn)代碼
Function filenum(filename,i)
Dim st,s
Set st= CreateObject("ADODB.Stream")
st.Type = 2 '流類(lèi)型為文本
st.Mode = 3 '模式為讀寫(xiě)
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 '流類(lèi)型為文本
st.Mode = 3 '模式為讀寫(xiě)
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 下載文件而不是打開(kāi)
- asp下用ADODB.Stream代替FSO讀取文本文件
- asp adodb.stream對(duì)象的方法/屬性
- ADODB.Stream組件Charset屬性值集合
- 用ADODB.Stream轉(zhuǎn)換
- exe2swf 工具(Adodb.Stream版)
- windows2008+iis7無(wú)組件上傳寫(xiě)入文件失敗ADODB.Stream 錯(cuò)誤 800a0bbc問(wèn)題
相關(guān)文章
用vbscript實(shí)現(xiàn)在文本文件中搜索兩個(gè)項(xiàng)
用vbscript實(shí)現(xiàn)在文本文件中搜索兩個(gè)項(xiàng)...2007-04-04![vbs 搜索代理地址實(shí)現(xiàn)代碼[小偷程序]](http://img.jbzj.com/images/xgimg/bcimg1.png)
vbs 搜索代理地址實(shí)現(xiàn)代碼[小偷程序]
將下面的代碼，直接保存為getproxy.vbs即可。2009-10-10
作者：瘋狗 終于在milw0rm找到了一個(gè)不錯(cuò)的shellcode，down&exec的，灰常好用！順手寫(xiě)了一個(gè)C測(cè)試了下，結(jié)果是成功下載并執(zhí)行了"木馬"，muma.exe是我用delphi寫(xiě)的一個(gè)簡(jiǎn)單的執(zhí)行測(cè)試程序，無(wú)毒無(wú)害。2008-04-04
VBS教程：方法-Read 方法...2006-11-11
用vbs實(shí)現(xiàn)配置無(wú)人登錄計(jì)算機(jī)時(shí)使用的屏幕保護(hù)程序
用vbs實(shí)現(xiàn)配置無(wú)人登錄計(jì)算機(jī)時(shí)使用的屏幕保護(hù)程序...2007-03-03
VBS教程：函數(shù)-TimeSerial 函數(shù)
VBS教程：函數(shù)-TimeSerial 函數(shù)...2006-11-11
用VBS模擬二叉樹(shù)，可以得到一個(gè)排序辦法.
用VBS模擬二叉樹(shù)，可以得到一個(gè)排序辦法....2007-03-03
這篇文章主要介紹了BAT批處理、VBScript批量安裝字體腳本分享,本文介紹了幾種方法來(lái)實(shí)現(xiàn)需求,并對(duì)每一種的測(cè)試結(jié)果做了說(shuō)明,需要的朋友可以參考下2014-07-07
用vbs實(shí)現(xiàn)禁用服務(wù)...2007-03-03
VBS教程：函數(shù)-CCur 函數(shù)...2006-11-11