Περιεχόμενα

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

Σχετικά θέματα

Πρόταση Close

Πρόταση Print#

Πρόταση Open

Πρόταση Get