Contents
Index 🔎︎

# Lof Function

ត្រឡប់​ទំហំ​នៃ​ឯកសារ​ដែល​បើក គិត​ជា​បៃ ។

### Syntax:

    Lof (FileNumber)

### Return value:

Long

### Parameters:

ចំនួន​ឯកសារ​ ៖ កន្សោម​លេខ​ណា​មួយ ដែល​មាន​លេខ​ឯកសារ​ដែល​ត្រូវ​បាន​បញ្ជាក់​​ក្នុង​សេចក្តី​ថ្លែង​ការណ៍ Open ។

ដើម្បី​ទទួល​បាន​ប្រវែង​នៃ​ឯកសារ​ដែល​មិន​បើក ប្រើ​អនុគមន៍ FileLen ។

### Error codes:

5 ការ​ហៅ​បែបបទ​មិន​ត្រឹមត្រូវ

52 ឈ្មោះ ឬ​លេខ​ឯកសារ​មិន​ត្រឹមត្រូវ

### Example:

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant REM Must be a variant
          Dim aFile As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 REM 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

      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

ប្រធានបទ​ទាក់ទង

Close Statement

Print# Statement

Open Statement

Get Statement