Συνάρτηση Lof
Επιστρέφει το μέγεθος ενός ανοιχτού αρχείου σε byte.
Σύνταξη:
Lof (FileNumber)
Τιμή επιστροφής:
Μεγάλου μήκους
Παράμετροι:
FileNumber: Κάθε αριθμητική παράσταση που περιέχει τον αριθμό του αρχείου που καθορίστηκε με την πρόταση Open.
Για να λάβετε το μήκος ενός αρχείου που δεν είναι ανοιχτό, χρησιμοποιήστε τη συνάρτηση FileLen.
Παράδειγμα:
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM πρέπει να είναι Variant
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Τοποθέτηση στην αρχή
Put #iNumber,, "Αυτή είναι η πρώτη γραμμή κειμένου" REM Συμπληρώστε με κείμενο
Put #iNumber,, "Αυτή είναι η δεύτερη γραμμή κειμένου"
Put #iNumber,, "Αυτή είναι η τρίτη γραμμή κειμένου"
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,,"Αυτή είναι μια νέα γραμμή κειμένου"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Αυτό είναι το κείμενο στην εγγραφή 20"
Print Lof(#iNumber)
Close #iNumber
End Sub