Input# na Pahayag

Nagbabasa ng data mula sa isang bukas na sequential file.

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

fileNum : Bilang ng file na naglalaman ng data na gusto mong basahin. Dapat buksan ang file gamit ang Open statement gamit ang key word INPUT.

var : Isang numeric o string variable kung saan mo itinatalaga ang mga value na binasa mula sa binuksan na file.

Ang Input# Binabasa ng statement ang mga numeric na halaga o string mula sa isang bukas na file at itinalaga ang data sa isa o higit pang mga variable. Binabasa ang isang numeric na variable hanggang sa unang carriage return (Asc=13), line feed (Asc=10), space, o kuwit. Binabasa ang mga variable ng string hanggang sa unang carriage return (Asc=13), line feed (Asc=10), o kuwit.

Ang data at mga uri ng data sa binuksan na file ay dapat lumabas sa parehong pagkakasunud-sunod ng mga variable na ipinapasa sa parameter na "var". Kung magtatalaga ka ng mga non-numeric na value sa isang numeric na variable, ang "var" ay itatalaga ng value na "0".

Ang mga tala na pinaghihiwalay ng mga kuwit ay hindi maaaring italaga sa isang string variable. Ang mga panipi (") sa file ay hindi rin pinapansin. Kung gusto mong basahin ang mga character na ito mula sa file, gamitin ang Line Input# pahayag upang basahin ang mga purong text file (mga file na naglalaman lamang ng mga napi-print na character) linya sa linya.

Kung naabot ang dulo ng file habang nagbabasa ng isang elemento ng data, magkakaroon ng error at maa-abort ang proseso.

Sub ExampleWorkWithAFile
    Dim iCount As Integer, sFileName As String
    Dim sName As String, sValue As Integer
    sFileName = "C:\Users\ThisUser\data.txt"
    iCount = Freefile
    ' Sumulat ng data ( na babasahin namin sa ibang pagkakataon kasama ang Input ) upang i-file
    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
    ' Basahin ang data file gamit ang 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