Επιστρέφει το μέγεθος ενός ανοιχτού αρχείου σε byte.
Σύνταξη:
Lof (FileNumber)
Επιστρεφόμενη τιμή:
Long
Παράμετροι:
FileNumber: Κάθε αριθμητική παράσταση που περιέχει τον αριθμό του αρχείου που καθορίστηκε με την πρόταση Open.
Για να λάβετε το μήκος ενός αρχείου που δεν είναι ανοιχτό, χρησιμοποιήστε τη συνάρτηση FileLen.
Κωδικοί σφάλματος:
5 Άκυρη κλήση διαδικασίας
52 Άκυρο όνομα αρχείου ή αριθμού αρχείου
Παράδειγμα:
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Πρέπει να είναι παραλλαγή
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Τοποθέτηση στη αρχή
Put #iNumber, , "Αυτή είναι η πρώτη γραμμή του κειμένου" ' Συμπληρώστε τη γραμμή με κείμενο
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
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Πρέπει να είναι παραλλαγή
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Τοποθέτηση στη αρχή
Put #iNumber, , "Αυτή είναι η πρώτη γραμμή του κειμένου" ' Συμπληρώστε τη γραμμή με κείμενο
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