Input# Statement

從開啟的順序檔案讀取資料。

Syntax:

Input Statement diagram


Input #fileNum {,|;} var1 [, var2 [, ...]]

Parameters:

fileNum: Number of the file that contains the data that you want to read. The file must be opened with the Open statement using the key word INPUT.

var: A numeric or string variable that you assign the values read from the opened file to.

Input# 陳述式從開啟的檔案中讀取數值或字串,並將這些資料指定給一個或多個變數。數值型變數的讀取程序在遇到第一個斷行鍵 (Asc=13)、斷行 (Asc=10)、空格或逗號時停止,而字串型變數的讀取程序在遇到第一個斷行鍵 (Asc=13)、斷行 (Asc=10) 或逗號時停止。

在已開啟的檔案中,資料和資料類型的出現順序必須與「var」參數中變數的傳送順序相同。如果將非數值型值指定給某個數值型變數,則「var」將被指定為數值「0」。

以逗號分隔的條目無法指定為字串變數。檔案中的引號 (") 也將被忽略。如果要從檔案中讀取這些字元,請使用 Line Input# 陳述式逐行讀取純文字檔案 (僅包含可列印字元的檔案)。

如果在讀取某個資料元素時到達了檔案結尾處,則會發生錯誤並中斷該程序。

Example:


Sub ExampleWorkWithAFile
    Dim iCount As Integer, sFileName As String
    Dim sName As String, sValue As Integer
    sFileName = "C:\Users\ThisUser\data.txt"
    iCount = Freefile
    ' 將資料寫入檔案(稍後以 Input 讀取)
    Open sFileName For Output As iCount
    sName = "Hamburg" : sValue = 200
    Write #iCount, sName, sValue
    sName = "New York" : sValue = 300
    Write #iCount; sName, sValue
    sName = "Miami" : sValue = 459
    Write #iCount, sName, sValue
    Close #iCount
    ' 用 Input 讀取資料檔
    iCount = Freefile
    Open sFileName For Input As iCount
    Input #iCount, sName, sValue
    MsgBox sName & " " & sValue
    Input #iCount; sName, sValue
    MsgBox sName & " " & sValue
    Input #iCount, sName, sValue
    MsgBox sName & " " & sValue
    Close #iCount
End Sub

Please support us!