Tartalom
Index 🔎︎

# Lof függvény

Egy megnyitott fájl méretét adja vissza bájtban.

### Szintaxis:

    Lof (FileNumber)

### Visszatérési érték:

Long

### Paraméterek:

Fájlszám: Bármilyen numerikus kifejezés, amely tartalmazza az Open utasításában megadott fájlszámot.

A nem megnyitott fájl méretének lekérdezéséhez használja a FileLen függvényt.

### Hibakódok:

5 Érvénytelen eljáráshívás

52 Érvénytelen fájlnév vagy fájlszám

### Példa:

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Variant típusúnak kell lennie
          Dim aFile As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' Pozíció az elejénél
          Put #iNumber, , "This is the first line of text" ' Fill line with text
          Put #iNumber, , "This is the second line of text"
          Put #iNumber, , "This is the third line of 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, , "This is a new text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "This is the text in record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Must be a variant
          Dim aFile As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' Position at beginning
          Put #iNumber, , "This is the first line of text" ' Fill line with text
          Put #iNumber, , "This is the second line of text"
          Put #iNumber, , "This is the third line of 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, , "This is a new text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "This is the text in record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

Kapcsolódó témakörök

Close Statement

Print# Statement

Open Statement

Get Statement