Συνάρτηση Lof

Επιστρέφει το μέγεθος ενός ανοιχτού αρχείου σε byte.

Σύνταξη:


Lof (FileNumber) As Long

Επιστρεφόμενη τιμή:

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