Eof Function

āĻĢāĻžāχāϞ āĻĒā§Ÿā§‡āĻ¨ā§āϟāĻžāϰāϟāĻŋ āĻĢāĻžāχāϞ⧇āϰ āĻļ⧇āώ⧇ āĻĒ⧌āρāĻ›ā§ˆāϛ⧇ āĻ•āĻŋāύāĻž āϤāĻž āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰāĻž āĻšā§ŸāĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:

Eof (intexpression As Integer)

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

Bool

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

Intexpression: āϝ⧇āϕ⧋āύ⧋ āχāύāϟāĻŋāϜāĻžāϰ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ āϝāĻžāϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ āĻāĻ•āϟāĻŋ āĻ–ā§‹āϞāĻž āĻĢāĻžāχāϞ⧇āϰ āĻ•ā§āϰāĻŽ āĻŽā§‚āĻ˛ā§āϝāĻžā§Ÿāύ āĻ•āϰāĻž āϝāĻžā§ŸāĨ¤

āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ⧇āϰ āĻļ⧇āώ āĻĨ⧇āϕ⧇ āχāύāĻĒ⧁āϟ āĻ¨ā§‡ā§ŸāĻžāϰ āĻšā§‡āĻˇā§āϟāĻž āĻ•āϰāĻžāϰ āϏāĻŽā§Ÿ āĻ¤ā§āϰ⧁āϟāĻŋ āĻĒāϰāĻŋāĻšāĻžāϰ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ EOF āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰ⧁āύāĨ¤ āφāĻĒāύāĻŋ āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ āĻĨ⧇āϕ⧇ āĻĒ⧜āĻžāϰ āϏāĻŽā§Ÿ Input āĻ…āĻĨāĻŦāĻž Get statement āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰāĻžāϰ āϏāĻŽā§Ÿ, āĻĢāĻžāχāϞ āĻĒā§Ÿā§‡āĻ¨ā§āϟāĻžāϰāϟāĻŋ āĻĒāĻ āĻŋāϤ āĻŦāĻžāχāĻŸā§‡āϰ āϏāĻ‚āĻ–ā§āϝāĻž āĻ…āύ⧁āϏāĻžāϰ⧇ āĻ…āĻ—ā§āϰāϏāϰ āĻšā§ŸāĨ¤ āĻĢāĻžāχāϞ⧇āϰ āĻļ⧇āώ⧇ āĻĒ⧌āρāĻ›āĻžāϞ⧇, EOF "True" (-1) āĻŽāĻžāύ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

Error codes:

5 Invalid procedure call

52 Bad file name or number

āωāĻĻāĻžāĻšāϰāĻŖ:

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, "First line of text"

    Print #iNumber, "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