IBM Lotus Symphony
|
Gibt die Größe einer offenen Datei in Byte zurück.
Lof (Dateinummer)
Long
Dateinummer: Numerischer Ausdruck, der die in der Open-Anweisung angegebene Dateinummer enthält.
![]() |
Verwenden Sie zum Erhalten der Länge einer Datei, die nicht offen ist, die FileLen-Funktion. |
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