Inhalte

# Funktion Lof

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

### Syntax:

    Lof (DateiNummer) As Long

### Rückgabewert:

Long

### Parameter:

DateiNummer: Jeder numerische Ausdruck, der die Dateinummer enthält, die in der Anweisung Open angegeben ist.

Um die Länge einer nicht geöffneten Datei abzurufen, 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 ein 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 "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 ein 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