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)
相關(guān)文章
VBS中的隊列需要使用System.Collections.Queue,包含隊列的添加元素（入隊）、刪除元素（出隊）、遍歷、統(tǒng)計元素個數(shù)、清空 ，需要的朋友可以參考下2018-05-05
VBS教程：方法-OpenTextFile 方法...2006-11-11
本文給大家分享的是VBS通過WMI獲取CPU的使用率的方法，十分的簡單實用，有需要的小伙伴可以參考下。2015-05-05
用vbs算命測試，是男是女的腳本2008-02-02
導入和導出本地或遠程計算機上 Internet 信息服務(wù) (IIS) 配置數(shù)據(jù)庫的所有或選定元素，或者將整個 IIS 配置（配置數(shù)據(jù)庫和架構(gòu)）復制到另一臺計算機以復制配置2014-07-07
目前各類萬能驅(qū)動程序包在網(wǎng)絡(luò)上屢見發(fā)布，在使用這些程序包的同時，我們不僅會問：為什么這些程序包中的驅(qū)動程序可以在安裝新硬件之后自動安裝呢？2008-07-07
用vbs從本地 Administrators 組中刪除組...2007-03-03
利用WSH里的MapNetworkDrive方法腳本蠕蟲的傳播方式
利用WSH里的MapNetworkDrive方法腳本蠕蟲的傳播方式...2007-02-02
VBS基礎(chǔ)篇 - 條件語句(if與Select Case)
經(jīng)常地，當我們編寫代碼時，我們需要根據(jù)不同的判斷執(zhí)行不同操作，我們可以使用條件語句完成這個工作，asp中的條件語句主要是if與Select Case這里就為大家介紹一下,需要的朋友可以參考下2018-05-05
VBS教程：運算符-Xor 運算符...2006-11-11