From 4f48bcc7937fbc586af7720d4225768ee6913e2a Mon Sep 17 00:00:00 2001 From: Frank Peters Date: Wed, 18 Aug 2004 09:59:46 +0000 Subject: #i33146# Initial checkin --- .../source/text/sbasic/shared/03020303.xhp | 116 +++++++++++++++++++++ 1 file changed, 116 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 0000000000..f408b7ec2b --- /dev/null +++ b/helpcontent2/source/text/sbasic/shared/03020303.xhp @@ -0,0 +1,116 @@ + + + + + +Lof Function [Runtime] +/text/sbasic/shared/03020303.xhp + + +Sun Microsystems, Inc. +converted from old format - fpe + + + + + +
+ Lof;functionLof Function [Runtime] + 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