IBM Lotus Symphony


Lof-Funktion [Laufzeit]

Gibt die Größe einer offenen Datei in Byte zurück.

Syntax:

Lof (Dateinummer)

Rückgabewert:

Long

Parameter:

Dateinummer: Numerischer Ausdruck, der die in der Open-Anweisung angegebene Dateinummer enthält.

Symbol für Tipp Verwenden Sie zum Erhalten der Länge einer Datei, die nicht offen ist, die FileLen-Funktion.

Fehlercodes

5 Invalid procedure call

52 Bad file name or number

Beispiel:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM must be a Variant

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Position beim Start

Put #iNumber,, "Dies ist die erste Textzeile" REM Zeile mit Text füllen

Put #iNumber,, "Dies ist die zweite Textzeile"

Put #iNumber,, "Dies ist die dritte Textzeile"

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,,"Dies ist eine neue Textzeile"

Get #iNumber,1,sText

Get #iNumber,2,sText

Put #iNumber,20,"Dies ist der Text in Datensatz 20"

Print Lof(#iNumber)

Close #iNumber

end sub


Produktfeedback | Zusätzliche Dokumentation | Marken