Put# Statement
λ μ½λλ₯Ό μλ νμΌμ μ°κ±°λ λ°μ΄νΈ μνμ€λ₯Ό μ΄μ§ νμΌμ μλλ€.
Use Print# statement to print data to a sequential text file. Use Write# statement to write data to a sequential text file with delimiting characters.

Put [#]fileNum, [recordNum|filePos], variable
fileNum: Any integer expression that defines the file that you want to write to.
recordNum, filePos: For relative files (random access files), the number of the record that you want to write.
μ΄μ§ νμΌ(μ΄μ§ μ‘μΈμ€)μ κ²½μ°, μ°κΈ°λ₯Ό μμν νμΌμ λ°μ΄νΈ μμΉμ
λλ€.
variable: Name of the variable that you want to write to the file.
μλ νμΌμ λν μ°Έκ³ μ¬ν: μ΄ λ³μμ λ΄μ©μ΄ Open λ¬Έμ Len μ μ μ§μ λ λ μ½λ κΈΈμ΄μ μΌμΉνμ§ μμ κ²½μ° μλ‘ κΈ°λ‘λ λ μ½λμ λ λΆλΆκ³Ό λ€μ λ μ½λ μ¬μ΄μ κ³΅λ°±μ΄ μ°λ €λ νμΌμ κΈ°μ‘΄ λ°μ΄ν°λ‘ μ±μμ§λλ€.
μ΄μ§ νμΌμ λν μ°Έκ³ μ¬ν: λ³μ λ΄μ©μ΄ μ§μ ν μμΉμ κΈ°λ‘λκ³ λ§μ§λ§ λ°μ΄νΈμ λ°λ‘ λ€μ νμΌ ν¬μΈν°κ° μ½μ
λ©λλ€. λ μ½λ κ°μ κ³΅λ°±μ΄ λ¨μ§ μμ΅λλ€.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Must be a variant
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Position at beginning
Put #iNumber, , "This is the first line of text" ' 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 a 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
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Must be a variant
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Position at beginning
Put #iNumber, , "This is the first line of text" ' 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 a 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