LibreOffice 7.1 Βοήθεια
Επιστρέφει το μέγεθος ενός ανοιχτού αρχείου σε 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