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