IBM Lotus Symphony


Fonction Lof [Exécution]

Renvoie la taille d'un fichier ouvert, en octets.

Syntaxe :

Lof (FileNumber)

Valeur de retour :

Entier long

Paramètres :

FileNumber : expression numérique contenant le numéro de fichier spécifié dans l'instruction Open.

Icône Astuce Pour obtenir la longueur d'un fichier qui n'est pas ouvert, utilisez la fonction FileLen.

Codes d'erreur

5 Appel de procédure incorrect

52 Nom ou numéro de fichier incorrect

Exemple :

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


Commentaires en retour sur le produit | Documentation complémentaire | Marques