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