Put Statement
āĻāĻāĻāĻŋ āϏāĻŽā§āĻĒāϰā§āĻāĻŋāϤ āĻĢāĻžāĻāϞ⧠āϰā§āĻāϰā§āĻĄ āĻ āĻĨāĻŦāĻž āĻāĻāĻāĻŋ āĻŦāĻžāĻāύāĻžāϰāĻŋ āĻĢāĻžāĻāϞ⧠āĻŦāĻžāĻāĻā§āϰ āĻā§āϰāĻŽ āϞā§āĻāĻž āĻšā§āĨ¤
āĻāϰāĻ āĻĻā§āĻā§āύ: Get āϏā§āĻā§āϝāĻžāĻāĻŽā§āύā§āĻ
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
Put [#] FileNumber As Integer, [position], Variable
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
FileNumber: āϝā§āĻā§āύ⧠āĻĒā§āϰā§āĻŖāϏāĻāĻā§āϝāĻž āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āĻāĻĒāύāĻŋ āϝ⧠āĻĢāĻžāĻāϞ⧠āϞāĻŋāĻāϤ⧠āĻāĻžāύ āϤāĻž āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰā§āĨ¤
āĻ āĻŦāϏā§āĻĨāĻžāύ: āϏāĻŽā§āĻĒāϰā§āĻāĻŋāϤ āĻĢāĻžāĻāϞā§āϰ āĻāύā§āϝ (āϰâā§āϝāĻžāύā§āĻĄāĻŽ āĻĢāĻžāĻāϞ āύāĻŋāĻŦā§āĻļ), āĻāĻĒāύāĻžāϰ āϞāĻŋāĻāϤ⧠āĻāĻžāĻāϝāĻŧāĻž āϰā§āĻāϰā§āĻĄā§āϰ āϏāĻāĻā§āϝāĻžāĨ¤
āĻŦāĻžāĻāύāĻžāϰāĻŋ āĻĢāĻžāĻāϞā§āϰ āĻāύā§āϝ (āĻŦāĻžāĻāύāĻžāϰāĻŋ āϤāĻĨā§āϝ āύāĻŋāĻŦā§āĻļāύ), āĻĢāĻžāĻāϞ⧠āĻŦāĻžāĻāĻā§āϰ āĻ āĻŦāϏā§āĻĨāĻžāύ āϝā§āĻāĻžāύ⧠āĻāĻĒāύāĻŋ āϞā§āĻāĻž āĻļā§āϰ⧠āĻāϰāϤ⧠āĻāĻžāύāĨ¤
āĻā§āϰāĻŋā§ā§āĻŦāϞ: āĻĢāĻžāĻāϞ⧠āĻāĻĒāύāĻŋ āϝ⧠āĻā§āϰāĻŋā§ā§āĻŦāϞāĻāĻŋ āϞāĻŋāĻāϤ⧠āĻāĻžāύ āϤāĻžāϰ āύāĻžāĻŽ āϞāĻŋāĻā§āύāĨ¤
āϏāĻāĻļā§āϞāĻŋāώā§āĻ āĻĢāĻžāĻāϞā§āϰ āĻāύā§āϝ āύā§āĻ: āϝāĻĻāĻŋ āĻā§āϞā§āύ āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ 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,, "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 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