Line Input # Statement
從順序檔案讀取字串,並將其寫入一個變數中。
語法:
Line Input #FileNumber As Integer, Var As String
參數:
FileNumber:包含要讀取之資料的檔案號碼。該檔案事先必須使用關鍵字 INPUT 透過 Open 陳述式開啟。
var:用於儲存結果的變數之名稱。
使用 Line Input# 陳述式,您可以從開啟的檔案讀取字串,並將其寫入一個變數中。字串型變數的逐行讀取程序在遇到第一個斷行鍵 (Asc=13) 或斷行 (Asc=10) 時停止。結果字串中不包含行尾標記。
示例:
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "This is a line of text"
Print #iNumber, "This is another line of text"
Close #iNumber
iNumber = Freefile
Open aFile For Input As iNumber
While Not EOF(iNumber)
Line Input #iNumber, sLine
If sLine <>"" Then
sMsg = sMsg & sLine & chr(13)
End If
Wend
Close #iNumber
MsgBox sMsg
End Sub