Get Statement

āĻāĻ•āϟāĻŋ āϏāĻŽā§āĻĒāĻ°ā§āĻ•āĻŋāϤ āĻĢāĻžāχāϞ āĻĨ⧇āϕ⧇ āϰ⧇āĻ•āĻ°ā§āĻĄ, āĻ…āĻĨāĻŦāĻž āĻāĻ•āϟāĻŋ āĻŦāĻžāχāύāĻžāϰāĻŋ āĻĢāĻžāχāϞ āĻšāϤ⧇ āĻŦāĻžāχāĻŸā§‡āϰ āĻāĻ•āϟāĻŋ āĻ•ā§āϰāĻŽ, āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ⧇ āĻĒāĻĄāĻŧāĻž āĻšā§ŸāĨ¤

āφāϰāĻ“ āĻĻ⧇āϖ⧁āύ: PUT āĻ¸ā§āĻŸā§āϝāĻžāϟāĻŽā§‡āĻ¨ā§āϟ

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:

Get [#] FileNumber As Integer, [Position], Variable

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

FileNumber: āϝ⧇āϕ⧋āύ⧋ āĻĒā§‚āĻ°ā§āĻŖāϏāĻ‚āĻ–ā§āϝāĻž āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ āϝāĻž āĻĢāĻžāχāϞ āϏāĻ‚āĻ–ā§āϝāĻž āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āĻ…āĻŦāĻ¸ā§āĻĨāĻžāύ: āĻ°â€ā§āϝāĻžāĻ¨ā§āĻĄāĻŽ āĻŽā§‹āĻĄā§‡ āĻ–ā§‹āϞāĻž āĻĢāĻžāχāϞ⧇āϰ āĻ•ā§āώ⧇āĻ¤ā§āϰ⧇, āĻ…āĻŦāĻ¸ā§āĻĨāĻžāύ āĻšāϞ⧋ āφāĻĒāύāĻžāϰ āĻĒāĻĄāĻŧāϤ⧇ āϚāĻžāĻ“āϝāĻŧāĻž āϰ⧇āĻ•āĻ°ā§āĻĄā§‡āϰ āύāĻžāĻŽā§āĻŦāĻžāϰāĨ¤

āĻŦāĻžāχāύāĻžāϰāĻŋ āĻŽā§‹āĻĄā§‡ āĻĢāĻžāχāϞ⧇āϰ āϜāĻ¨ā§āϝ, āĻ…āĻŦāĻ¸ā§āĻĨāĻžāύ āĻšāϞ āĻĒāĻĄāĻŧāĻžāϰ āĻļ⧁āϰ⧁āϤ⧇ āĻĢāĻžāχāϞ⧇ āĻŦāĻžāχāĻŸā§‡āϰ āĻ…āĻŦāĻ¸ā§āĻĨāĻžāύāĨ¤

āϝāĻĻāĻŋ āĻ…āĻŦāĻ¸ā§āĻĨāĻžāύ āĻŦāĻžāĻĻ āĻĻ⧇āĻ“ā§ŸāĻž āĻšāϝāĻŧ, āϤāĻžāĻšāϞ⧇ āĻĢāĻžāχāϞ⧇āϰ āĻŦāĻ°ā§āϤāĻŽāĻžāύ āĻ…āĻŦāĻ¸ā§āĻĨāĻžāύ āĻ…āĻĨāĻŦāĻž āĻĄāĻžāϟāĻž āϰ⧇āĻ•āĻ°ā§āĻĄ āĻŦā§āϝāĻŦāĻšā§ƒāϤ āĻšāϝāĻŧāĨ¤

āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ: āĻĒāĻĄāĻŧāĻžāϰ āϜāĻ¨ā§āϝ āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ⧇āϰ āύāĻžāĻŽāĨ¤ āĻŦāĻ¸ā§āϤ⧁ āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ⧇āϰ āĻŦā§āϝāϤāĻŋāĻ•ā§āϰāĻŽ āϏāĻš, āφāĻĒāύāĻŋ āϝ⧇āϕ⧋āύ⧋ āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ⧇āϰ āϧāϰāύ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰāϤ⧇ āĻĒāĻžāϰ⧇āύāĨ¤

āωāĻĻāĻžāĻšāϰāĻŖ:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM āĻ…āĻŦāĻļā§āϝāχ āĻāĻ•āϟāĻŋ āϭ⧇āϰāĻŋā§Ÿā§‡āĻ¨ā§āϟ āĻšāĻŦ⧇

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,, "This is the first line of text" 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