Inhalte
Index 🔎︎

# Funktion Lof

Liefert die Größe einer geöffneten Datei zurück.

### Syntax:

    Lof (FileNumber)

### Rückgabewert:

Long

### Parameter:

Dateinummer: Ein beliebiger numerischer Ausdruck, der die in der Anweisung Open für die jeweilige Datei angegebene Dateinummer enthält.

Um die Dateilänge einer nicht geöffneten Datei zu ermitteln, verwenden Sie die Funktion FileLen.

### Fehlercodes:

5 Ungültiger Prozeduraufruf

52 Dateiname oder -nummer falsch

### Beispiel:

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Muss variant sein
          Dim aFile As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' Auf Anfang positionieren
          Put #iNumber, , "Dies ist die erste Zeile Text" ' Zeile mit Text füllen
          Put #iNumber, , "Dies ist die zweite Zeile Text"
          Put #iNumber, , "Dies ist die dritte Zeile Text"
          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 neuer Text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "Dies ist der Text im Datensatz 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Muss vom Typ Variant sein
          Dim aFile As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' Position am Anfang
          Put #iNumber, , "Dies ist die erste Zeile Text" ' Zeile mit Text füllen
          Put #iNumber, , "Dies ist die zweite Zeile Text"
          Put #iNumber, , "Dies ist die dritte Zeile Text"
          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 neuer Text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "Dies ist der Text im Datensatz 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

Verwandte Themen

Anweisung Close

Anweisung Print#

Anweisung Open

Anweisung Get