Eof Function
āĻĢāĻžāĻāĻ˛ āĻĒā§ā§āĻ¨ā§āĻāĻžāĻ°āĻāĻŋ āĻĢāĻžāĻāĻ˛ā§āĻ° āĻļā§āĻˇā§ āĻĒā§āĻāĻā§āĻā§ āĻāĻŋāĻ¨āĻž āĻ¤āĻž āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻāĻ°āĻž āĻšā§āĨ¤
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
Eof (intexpression As Integer)
āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:
Bool
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
Intexpression: āĻ¯ā§āĻā§āĻ¨ā§ āĻāĻ¨āĻāĻŋāĻāĻžāĻ° āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻžāĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§ āĻāĻāĻāĻŋ āĻā§āĻ˛āĻž āĻĢāĻžāĻāĻ˛ā§āĻ° āĻā§āĻ°āĻŽ āĻŽā§āĻ˛ā§āĻ¯āĻžā§āĻ¨ āĻāĻ°āĻž āĻ¯āĻžā§āĨ¤
āĻāĻāĻāĻŋ āĻĢāĻžāĻāĻ˛ā§āĻ° āĻļā§āĻˇ āĻĨā§āĻā§ āĻāĻ¨āĻĒā§āĻ āĻ¨ā§ā§āĻžāĻ° āĻā§āĻˇā§āĻāĻž āĻāĻ°āĻžāĻ° āĻ¸āĻŽā§ āĻ¤ā§āĻ°ā§āĻāĻŋ āĻĒāĻ°āĻŋāĻšāĻžāĻ° āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯ EOF āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§āĻ¨āĨ¤ āĻāĻĒāĻ¨āĻŋ āĻāĻāĻāĻŋ āĻĢāĻžāĻāĻ˛ āĻĨā§āĻā§ āĻĒā§āĻžāĻ° āĻ¸āĻŽā§ Input āĻ āĻĨāĻŦāĻž Get statement āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°āĻžāĻ° āĻ¸āĻŽā§, āĻĢāĻžāĻāĻ˛ āĻĒā§ā§āĻ¨ā§āĻāĻžāĻ°āĻāĻŋ āĻĒāĻ āĻŋāĻ¤ āĻŦāĻžāĻāĻā§āĻ° āĻ¸āĻāĻā§āĻ¯āĻž āĻ āĻ¨ā§āĻ¸āĻžāĻ°ā§ āĻ āĻā§āĻ°āĻ¸āĻ° āĻšā§āĨ¤ āĻĢāĻžāĻāĻ˛ā§āĻ° āĻļā§āĻˇā§ āĻĒā§āĻāĻāĻžāĻ˛ā§, 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