IBM Lotus Symphony
|
Renvoie la taille d'un fichier ouvert, en octets.
Lof (FileNumber)
Entier long
FileNumber : 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 REM Doit être une variante
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Position au début
Put #iNumber,, "Ceci est la première ligne de texte" REM Remplissez la ligne de texte
Put #iNumber,, "Ceci est la deuxième 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 une nouvelle ligne de 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