PublicFunctionopenfile(ByValfilepathAsString)AsString"讀入檔案函式

DimsAsString

OpenfilepathForInputAs#1

WhileNotEOF(1)

LineInput#1,sline

s=s&sline&vbCrLf

Wend

Close#1

openfile=s

EndFunction

PrivateSubCommand1_Click()

DimvStr

vStr=Split(openfile("C:\test.txt"),vbCrLf)

IfUBound(vStr)<>0Then

MsgBox"第8行資料是"&vStr(8)"這個8自己定義

EndIf

EndSub

當然這段程式碼也有侷限性在讀取小文字時就有用如果是過50KB的文字估計程式會down掉

那你可以使用類似

OpenfilepathForInputAs#1

DoWhileNotEOF(1)

LineInput#1,Stream

的方法來流式讀取