LineInput 函式
更新:2007 年 11 月
自開啟的循序檔讀取單行資料,並指定給 String 變數。
Public Function LineInput(ByVal FileNumber As Integer) As String
參數
- FileNumber
必要項。任何有效的檔案號碼。
例外狀況
例外狀況類型 |
錯誤代碼 |
條件 |
---|---|---|
已到達檔案結尾。 |
||
FileNumber 不存在。 |
如果將使用非結構化錯誤處理的 Visual Basic 6.0 應用程式升級,請參閱「錯誤代碼」資料行 (您可以將錯誤代碼與 Number 屬性 (Err 物件) 比對)。但是,請盡可能考慮以 Visual Basic 的結構化例外處理概觀 取代這類錯誤控制項。
備註
提供 LineInput 函式以取得回溯相容性,但可能會影響效能。對於非舊版應用程式,My.Computer.FileSystem 物件會提供更好的效能。如需詳細資訊,請參閱使用 Visual Basic 存取檔案。
以 LineInput 讀取的資料通常都會以 Print 寫入檔案。
![]() |
---|
當讀取檔案時,請勿根據副檔名決定檔案內容。例如,名稱為 Form1.vb 的檔案未必是 Visual Basic 的原始程式檔 (Source File)。 |
LineInput 函式會從檔案中一次讀取一個字元,直到遇到歸位字元 (Carriage Return) (Chr(13)) 或歸位字元/換行字元 (Chr(13) + Chr(10)) 序列 (Sequence) 為止。歸位/換行字元循序項將被略過,不會附加至字元字串中。
![]() |
---|
使用 LineInput 函式讀取檔案,需要從 FileIOPermissionAccess 列舉型別 (Enumeration) 取得 Read 存取權。 |
範例
這個範例會使用 LineInput 函式,自循序檔讀取一行資料,並將它指定給變數。這個範例會假設 TestFile 為內含數行範例資料的文字檔。
Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
While Not EOF(1)
' Read line into variable.
TextLine = LineInput(1)
' Print to the console.
WriteLine(1, TextLine)
End While
FileClose(1)
智慧型裝置開發人員注意事項
不支援這個函式。
需求
**模組︰**FileSystem
組件:Visual Basic Runtime Library (在 Microsoft.VisualBasic.dll 中)
請參閱
工作
HOW TO:在 Visual Basic 中以 StreamWriter 將文字寫入檔案
HOW TO:在 Visual Basic 中將文字寫入檔案