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