Put Statement
๋ ์ฝ๋๋ฅผ ์๋ ํ์ผ์ ์ฐ๊ฑฐ๋ ๋ฐ์ดํธ ์ํ์ค๋ฅผ ์ด์ง ํ์ผ์ ์๋๋ค.
์ฐธ๊ณ ํญ๋ชฉ: Get ๋ฌธ
๊ตฌ๋ฌธ:
Put [#] FileNumber As Integer, [position], Variable
๋งค๊ฐ ๋ณ์:
FileNumber: ์ฐ๋ ค๋ ํ์ผ์ ์ง์ ํ๋ ์์์ ์ ์ ์์ ๋๋ค.
Position: ์๋ ํ์ผ(์์ ์ก์ธ์ค ํ์ผ)์ ๊ฒฝ์ฐ, ์ฐ๋ ค๋ ๋ ์ฝ๋์ ๋ฒํธ์ ๋๋ค.
์ด์ง ํ์ผ(์ด์ง ์ก์ธ์ค)์ ๊ฒฝ์ฐ, ์ฐ๊ธฐ๋ฅผ ์์ํ ํ์ผ์ ๋ฐ์ดํธ ์์น์ ๋๋ค.
Variable: ํ์ผ์ ์ธ ๋ณ์์ ์ด๋ฆ์ ๋๋ค.
์๋ ํ์ผ์ ๋ํ ์ฐธ๊ณ ์ฌํญ: ์ด ๋ณ์์ ๋ด์ฉ์ด Open ๋ฌธ์ Len ์ ์ ์ง์ ๋ ๋ ์ฝ๋ ๊ธธ์ด์ ์ผ์นํ์ง ์์ ๊ฒฝ์ฐ ์๋ก ๊ธฐ๋ก๋ ๋ ์ฝ๋์ ๋ ๋ถ๋ถ๊ณผ ๋ค์ ๋ ์ฝ๋ ์ฌ์ด์ ๊ณต๋ฐฑ์ด ์ฐ๋ ค๋ ํ์ผ์ ๊ธฐ์กด ๋ฐ์ดํฐ๋ก ์ฑ์์ง๋๋ค.
์ด์ง ํ์ผ์ ๋ํ ์ฐธ๊ณ ์ฌํญ: ๋ณ์ ๋ด์ฉ์ด ์ง์ ํ ์์น์ ๊ธฐ๋ก๋๊ณ ๋ง์ง๋ง ๋ฐ์ดํธ์ ๋ฐ๋ก ๋ค์ ํ์ผ ํฌ์ธํฐ๊ฐ ์ฝ์ ๋ฉ๋๋ค. ๋ ์ฝ๋ ๊ฐ์ ๊ณต๋ฐฑ์ด ๋จ์ง ์์ต๋๋ค.
์:
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Must be a variant type
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Position to start writing
Put #iNumber,, "ํ ์คํธ์ ์ฒซ ํ์ ๋๋ค." REM Fill line with text
Put #iNumber,, "This is the second line of text"
Put #iNumber,, "This is the third line of text"
Seek #iNumber,2
Get #iNumber,,sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber,2,sText
Put #iNumber,,"This is new text"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"This is the text in record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub