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