From 940b4d1848e8c70ab7642901a68594e8016caffc Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sat, 27 Apr 2024 18:51:28 +0200 Subject: Adding upstream version 1:7.0.4. Signed-off-by: Daniel Baumann --- .../source/text/sbasic/shared/03020303.xhp | 81 ++++++++++++++++++++++ 1 file changed, 81 insertions(+) create mode 100644 helpcontent2/source/text/sbasic/shared/03020303.xhp (limited to 'helpcontent2/source/text/sbasic/shared/03020303.xhp') diff --git a/helpcontent2/source/text/sbasic/shared/03020303.xhp b/helpcontent2/source/text/sbasic/shared/03020303.xhp new file mode 100644 index 000000000..a00387724 --- /dev/null +++ b/helpcontent2/source/text/sbasic/shared/03020303.xhp @@ -0,0 +1,81 @@ + + + + + + + + +Lof Function +/text/sbasic/shared/03020303.xhp + + +Sun Microsystems, Inc. + + + +
+Lof function + +Lof Function +Returns the size of an open file in bytes. +
+Syntax: + +Lof (FileNumber) + +Return value: +Long +Parameters: + +FileNumber: Any numeric expression that contains the file number that is specified in the Open statement. +To obtain the length of a file that is not open, use the FileLen function. + + + +Example: + +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 at start + Put #iNumber,, "This is the first line of text" REM Fill 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 line of 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 + + + -- cgit v1.2.3