Line Input # Statement
āĻāĻāĻāĻŋ āĻ§āĻžāĻ°āĻžāĻŦāĻžāĻšāĻŋāĻ āĻĢāĻžāĻāĻ˛ āĻĨā§āĻā§ āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛ā§ āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻĒā§āĻž āĻšā§āĨ¤
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
Line Input #FileNumber As Integer, Var As String
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
FileNumber: āĻĄāĻžāĻāĻž āĻ§āĻžāĻ°āĻŖāĻāĻžāĻ°ā§ āĻĢāĻžāĻāĻ˛ā§āĻ° āĻ¸āĻāĻā§āĻ¯āĻž āĻ¯āĻž āĻāĻĒāĻ¨āĻŋ āĻĒā§āĻ¤ā§ āĻāĻžāĻ¨āĨ¤ āĻāĻĒā§āĻ¨ āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻ āĻ¸āĻš āĻĢāĻžāĻāĻ˛āĻāĻŋ INPUT āĻā§āĻā§āĻžāĻ°ā§āĻĄ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ āĻ āĻŦāĻļā§āĻ¯āĻ āĻ āĻā§āĻ°āĻŋāĻŽ āĻā§āĻ˛āĻž āĻšā§ā§āĻā§āĨ¤
var: āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛āĻāĻŋāĻ° āĻ¨āĻžāĻŽ āĻ¯āĻž āĻĢāĻ˛āĻžāĻĢāĻ˛ āĻ¸āĻāĻ°āĻā§āĻˇāĻŖ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
Line Input# āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻ āĻ¸āĻš, āĻāĻĒāĻ¨āĻŋ āĻāĻāĻāĻŋ āĻā§āĻ˛āĻž āĻĢāĻžāĻāĻ˛ āĻĨā§āĻā§ āĻāĻāĻāĻŋ āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛ā§ āĻˇā§āĻā§āĻ°āĻŋāĻ āĻĒāĻĄāĻŧāĻ¤ā§ āĻĒāĻžāĻ°āĻŦā§āĻ¨āĨ¤ āĻĒā§āĻ°āĻĨāĻŽ āĻā§āĻ¯āĻžāĻ°ā§āĻ āĻĒā§āĻ°āĻĻāĻžāĻ¨ (Asc=13) āĻ āĻĨāĻŦāĻž āĻ˛āĻžāĻāĻ¨āĻĢāĻŋāĻĄ (Asc=10) āĻĒāĻ°ā§āĻ¯āĻ¨ā§āĻ¤ āĻˇā§āĻā§āĻ°āĻŋāĻ āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛ āĻ˛āĻžāĻāĻ¨ā§āĻ° āĻĒāĻ° āĻ˛āĻžāĻāĻ¨ āĻĒāĻĄāĻŧāĻž āĻšāĻ¯āĻŧāĨ¤ āĻĢāĻ˛āĻžāĻĢāĻ˛ā§āĻ° āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻ āĻ˛āĻžāĻāĻ¨ āĻ¸āĻŽāĻžāĻĒā§āĻ¤āĻŋ āĻāĻŋāĻšā§āĻ¨ āĻ āĻ¨ā§āĻ¤āĻ°ā§āĻā§āĻā§āĻ¤ āĻĨāĻžāĻā§ āĻ¨āĻžāĨ¤
āĻāĻĻāĻžāĻšāĻ°āĻŖ:
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, "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