Module
Contents
Index 🔎︎

# 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