Get Statement
μλ νμΌμ λ μ½λ λλ μ΄μ§ νμΌμ λ°μ΄νΈ μνμ€λ₯Ό λ³μλ‘ μ½μ΄μ΅λλ€.
μ°Έκ³ νλͺ©: PUT λ¬Έ
ꡬ문:
Get [#] FileNumber As Integer, [Position], Variable
λ§€κ° λ³μ:
FileNumber: νμΌ λ²νΈλ₯Ό κ²°μ νλ μμμ μ μ μμ λλ€.
Position: Random λͺ¨λλ‘ μ° νμΌμ κ²½μ° Positionμ μ½μΌλ €λ λ μ½λμ λ²νΈμ λλ€.
Binary λͺ¨λλ‘ μ° νμΌμ κ²½μ° Positionμ μ½κΈ°κ° μμλλ νμΌμ λ°μ΄νΈ μμΉμ λλ€.
Positionμ μλ΅ν κ²½μ° νμΌμ νμ¬ μμΉλ νμ¬ λ°μ΄ν° λ μ½λκ° μ¬μ©λ©λλ€.
Variable: μ½μ λ³μμ μ΄λ¦μ λλ€. Object λ³μλ₯Ό μ μΈν λͺ¨λ λ³μ μ νμ μ¬μ©ν μ μμ΅λλ€.
μ:
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Must be a variant
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Position at beginning
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 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