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