Line Input # Statement
α’αΆαβααααβα’ααααβααΈβα―αααΆαβαβααααΆβαα βαααα»αβα’αααβαα½αΒ α
ααΆαααβααααααα α
Line Input #FileNumber As Integer, Var As String
αααΆαααΆαααααα α
αααβα―αααΆαΒ α αααβααααβα―αααΆαβαααβααΆαβαα·ααααααβαααβα’αααβα ααα’αΆαΒ α α―αααΆαβααααΌαααβααΆαβααΎαβααΆβαα»αβααΆβαα½αβααα ααααΈβαααααααΆααα Open αααβααααΎβααΆαααβαααααΉα 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