Eof Function
νμΌ ν¬μΈν°κ° νμΌ λμ λλ¬νλμ§ νμΈν©λλ€.
Eof (intexpression As Integer)
Bool
Intexpression: μ΄λ¦° νμΌμ λ²νΈλ‘ νκ°λλ μμμ μ μ μμ
λλ€.
νμΌμ λμ μ§λ μ
λ ₯μ μλν λ λ°μνλ μ€λ₯λ₯Ό λ°©μ§νλ €λ©΄ EDFλ₯Ό μ¬μ©ν©λλ€. Input λλ Get λ¬Έμ μ¬μ©νμ¬ νμΌμμ μ½μ κ²½μ° μ½μ λ°μ΄νΈ μλ§νΌ νμΌ ν¬μΈν°κ° μ΄λν©λλ€. νμΌμ λμ λλ¬νλ©΄ EOFλ "True"(-1) κ°μ ꡬν©λλ€.
5 μλͺ»λ νλ‘μμ νΈμΆμ
λλ€.
52 μλͺ»λ νμΌ μ΄λ¦ λλ λ²νΈμ
λλ€.
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "This is a line of text"
Print #iNumber, "λ€λ₯Έ μ€ ν
μ€νΈμ
λλ€."
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
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "This is a line of text"
Print #iNumber, "This is 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