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