Aide LibreOffice 7.5
Renvoie la taille d'un fichier ouvert, en octets.
Lof (FileNumber) As Long
Long
FileNumber : toute expression numérique contenant le numéro de fichier spécifié dans l'instruction Open.
Pour obtenir la longueur d'un fichier qui n'est pas ouvert, utilisez la fonction FileLen.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Doit être un variant
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Position au début
Put #iNumber, , "Ceci est la première ligne de texte" ' Remplir la ligne avec du texte
Put #iNumber, , "Ceci est la seconde ligne de texte"
Put #iNumber, , "Ceci est la troisième ligne de texte"
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, ,"Ceci est un nouveau texte"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber, 20, "Ceci est le texte de l'enregistrement 20"
Print Lof(#iNumber)
Close #iNumber
End Sub
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Doit être un variant
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Position au début
Put #iNumber, , "Ceci est la première ligne de texte" ' Remplir la ligne avec du texte
Put #iNumber, , "Ceci est la seconde ligne de texte"
Put #iNumber, , "Ceci est la troisième ligne de texte"
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, ,"Ceci est un nouveau texte"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber, 20, "Ceci est le texte de l'enregistrement 20"
Print Lof(#iNumber)
Close #iNumber
End Sub