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