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