Eof Function
νμΌ ν¬μΈν°κ° νμΌ λμ λλ¬νλμ§ νμΈν©λλ€.
ꡬ문:
Eof (intexpression As Integer)
λ°ν κ°:
Bool
λ§€κ° λ³μ:
Intexpression: μ΄λ¦° νμΌμ λ²νΈλ‘ νκ°λλ μμμ μ μ μμ λλ€.
νμΌμ λμ μ§λ μ λ ₯μ μλν λ λ°μνλ μ€λ₯λ₯Ό λ°©μ§νλ €λ©΄ EDFλ₯Ό μ¬μ©ν©λλ€. Input λλ Get λ¬Έμ μ¬μ©νμ¬ νμΌμμ μ½μ κ²½μ° μ½μ λ°μ΄νΈ μλ§νΌ νμΌ ν¬μΈν°κ° μ΄λν©λλ€. νμΌμ λμ λλ¬νλ©΄ EOFλ "True"(-1) κ°μ ꡬν©λλ€.
μ:
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