Line Input # Statement
์์ฐจ ํ์ผ์์ ๋ณ์๋ก ๋ฌธ์์ด์ ์ฝ์ด์ต๋๋ค.
๊ตฌ๋ฌธ:
Line Input #FileNumber As Integer, Var As String
๋งค๊ฐ ๋ณ์:
FileNumber: ์ฝ์ ๋ฐ์ดํฐ๊ฐ ํฌํจ๋ ํ์ผ์ ๋ฒํธ์ ๋๋ค.๋จผ์ 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, "๋ค๋ฅธ ์ค ํ ์คํธ์ ๋๋ค."
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