Collabora Office 24.04 Βοήθεια

Συνάρτηση 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

Παρακαλούμε, υποστηρίξτε μας!