Lof Function

āĻāĻ•āϟāĻŋ āĻ–ā§‹āϞāĻž āĻĢāĻžāχāϞ⧇āϰ āφāĻ•āĻžāϰ āĻŦāĻžāχāĻŸā§‡ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:


Lof (FileNumber)

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

āϞāĻ‚

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

FileNumber: āϝ⧇āϕ⧋āύ⧋ āϏāĻ‚āĻ–ā§āϝāĻžāϏ⧂āϚāĻ• āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ āϝāĻž āĻ–ā§‹āϞāĻž āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡ āωāĻ˛ā§āϞ⧇āĻ–āĻŋāϤ āĻĢāĻžāχāϞ āϏāĻ‚āĻ–ā§āϝāĻž āϧāĻžāϰāĻŖ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āĻĒāϰāĻžāĻŽāĻ°ā§āĻļ āφāχāĻ•āύ

FileLen āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰ⧇, āĻ–ā§‹āϞāĻž āύ⧟ āĻāĻŽāύ āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ⧇āϰ āϏāĻŽāĻžāύ āĻĻ⧈āĻ°ā§āĻ˜ā§āϝ āĻĒāĻžāĻ“ā§ŸāĻž āϝāĻžā§ŸāĨ¤


Error codes:

5 Invalid procedure call

52 Bad file name or number

āωāĻĻāĻžāĻšāϰāĻŖ:


Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM must be a Variant
Dim aFile As String
    aFile = "c:\data.txt"
    iNumber = Freefile
    Open aFile For Random As #iNumber Len=32
    Seek #iNumber,1 REM Position at start
    Put #iNumber,, "This is the first line of text" REM Fill 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 line of 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