[Libreoffice-commits] help.git: source/text
Rafael Lima (via logerrit)
logerrit at kemper.freedesktop.org
Mon Apr 5 14:33:37 UTC 2021
source/text/sbasic/shared/03010103.xhp | 2
source/text/sbasic/shared/03020101.xhp | 4 +
source/text/sbasic/shared/03020102.xhp | 43 ++++-----------
source/text/sbasic/shared/03020103.xhp | 84 +++++++++++++++++++++---------
source/text/sbasic/shared/03020104.xhp | 13 ++--
source/text/sbasic/shared/03020201.xhp | 92 ++++++++++++++++++++++-----------
source/text/sbasic/shared/03020202.xhp | 20 +++----
source/text/sbasic/shared/03020203.xhp | 5 +
source/text/sbasic/shared/03020205.xhp | 52 ++++++++++++------
source/text/sbasic/shared/03020301.xhp | 41 ++++----------
source/text/sbasic/shared/03020303.xhp | 44 ++++-----------
source/text/sbasic/shared/03020405.xhp | 28 ++++++----
source/text/sbasic/shared/03020410.xhp | 17 +++---
source/text/sbasic/shared/03050500.xhp | 25 +++-----
14 files changed, 260 insertions(+), 210 deletions(-)
New commits:
commit ef7a4ac4e88c6142ed29acc15a6d28ec85e8b9ce
Author: Rafael Lima <rafael.palma.lima at gmail.com>
AuthorDate: Tue Mar 30 14:20:52 2021 +0200
Commit: Olivier Hallot <olivier.hallot at libreoffice.org>
CommitDate: Mon Apr 5 16:33:15 2021 +0200
tdf#106944 Fix Basic examples using the Open statement
This patch also fixes some legacy issues:
- Use of <embed> tags instead of text "Example", "Sintax", etc...
- Create <variable> tags for functions
- Add relevant Related Topics section
Change-Id: I85c5508c9940a1b72c82c99c39387b95a3c6edea
Reviewed-on: https://gerrit.libreoffice.org/c/help/+/113352
Tested-by: Jenkins
Reviewed-by: Olivier Hallot <olivier.hallot at libreoffice.org>
diff --git a/source/text/sbasic/shared/03010103.xhp b/source/text/sbasic/shared/03010103.xhp
index f1f0c287a..c60a4925f 100644
--- a/source/text/sbasic/shared/03010103.xhp
+++ b/source/text/sbasic/shared/03010103.xhp
@@ -66,7 +66,7 @@
<paragraph id="par_idm1073160528" role="bascode" localize="false"> Print "ABC"</paragraph>
<paragraph id="par_idm1073159296" role="bascode" localize="false"> Print "ABC","123"</paragraph>
<paragraph id="par_idm1073129856" role="bascode" localize="false"> i = FreeFile()</paragraph>
-<paragraph id="par_idm1073128624" role="bascode" localize="false"> Open "C:\Temp.txt" For Output As i</paragraph>
+<paragraph id="par_idm1073128624" role="bascode" localize="false"> Open "C:\Users\ThisUser\Temp.txt" For Output As i</paragraph>
<paragraph id="par_idm1073127376" role="bascode" localize="false"> Print #i, "ABC"</paragraph>
<paragraph id="par_idm1073126144" role="bascode" localize="false"> Close #i</paragraph>
<paragraph id="par_idm1073124912" role="bascode" localize="false">End Sub</paragraph>
diff --git a/source/text/sbasic/shared/03020101.xhp b/source/text/sbasic/shared/03020101.xhp
index 79247f40c..78cb1907f 100644
--- a/source/text/sbasic/shared/03020101.xhp
+++ b/source/text/sbasic/shared/03020101.xhp
@@ -52,5 +52,9 @@
<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
<embed href="text/sbasic/shared/03020103.xhp#FileExample"/>
+<section id="relatedtopics" >
+ <embed href="text/sbasic/shared/03020103.xhp#Open_h1"/>
+ <embed href="text/sbasic/shared/03020102.xhp#FreeFile_h1"/>
+</section>
</body>
</helpdocument>
\ No newline at end of file
diff --git a/source/text/sbasic/shared/03020102.xhp b/source/text/sbasic/shared/03020102.xhp
index 66160f95e..d906b6319 100644
--- a/source/text/sbasic/shared/03020102.xhp
+++ b/source/text/sbasic/shared/03020102.xhp
@@ -34,50 +34,31 @@
</bookmark>
-<paragraph id="hd_id3150400" role="heading" level="1" xml-lang="en-US"><link href="text/sbasic/shared/03020102.xhp" name="FreeFile Function">FreeFile Function</link></paragraph>
+<paragraph id="hd_id3150400" role="heading" level="1" xml-lang="en-US"><variable id="FreeFile_h1"><link href="text/sbasic/shared/03020102.xhp" name="FreeFile Function">FreeFile Function</link></variable></paragraph>
<paragraph id="par_id3154366" role="paragraph" xml-lang="en-US">Returns the next available file number for opening a file. Use this function to open a file using a file number that is not already in use by a currently open file.</paragraph>
</section>
-<paragraph id="hd_id3150769" role="heading" level="2" xml-lang="en-US">Syntax:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functsyntax"/>
<bascode>
<paragraph id="par_idm1341602048" role="bascode" localize="false" xml-lang="en-US">FreeFile</paragraph>
</bascode>
-<paragraph id="hd_id3151042" role="heading" level="2" xml-lang="en-US">Return value:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functvalue"/>
<paragraph id="par_id3150440" role="paragraph" xml-lang="en-US">Integer</paragraph>
-<paragraph id="hd_id3148576" role="heading" level="2" xml-lang="en-US">Parameters:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functparameters"/>
<paragraph id="par_id3155854" role="paragraph" xml-lang="en-US">This function can only be used immediately in front of an Open statement. FreeFile returns the next available file number, but does not reserve it.</paragraph>
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<embed href="text/sbasic/shared/00000003.xhp#err67"/>
-<paragraph id="hd_id3159153" role="heading" level="2" xml-lang="en-US">Example:</paragraph>
-<bascode>
-<paragraph id="par_idm1341589136" role="bascode" localize="false" xml-lang="en-US">Sub ExampleWorkWithAFile</paragraph>
-<paragraph id="par_idm1341587888" role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph>
-<paragraph id="par_idm1341586656" role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph>
-<paragraph id="par_idm1341585424" role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph>
-<paragraph id="par_idm1341584192" role="bascode" localize="false" xml-lang="en-US">Dim sMsg As String</paragraph>
-<paragraph id="par_idm1341582960" role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph>
-<paragraph id="par_idm1341581712" role="bascode" localize="false" xml-lang="en-US"> sMsg = ""</paragraph>
-<paragraph id="par_idm1341580480" role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
-<paragraph id="par_idm1341579248" role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph>
-<paragraph id="par_id3155416" role="bascode" xml-lang="en-US"> Print #iNumber, "First line of text"</paragraph>
-<paragraph id="par_id3153416" role="bascode" xml-lang="en-US"> Print #iNumber, "Another line of text"</paragraph>
-<paragraph id="par_idm1341574464" role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
-<paragraph id="par_idm1341573232" role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
-<paragraph id="par_idm1341572000" role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As #iNumber</paragraph>
-<paragraph id="par_idm1341570752" role="bascode" localize="false" xml-lang="en-US"> While Not eof(#iNumber)</paragraph>
-<paragraph id="par_idm1341569504" role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph>
-<paragraph id="par_idm1341568256" role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph>
-<paragraph id="par_idm1341567008" role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph>
-<paragraph id="par_idm1341565744" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph>
-<paragraph id="par_idm1341564512" role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph>
-<paragraph id="par_idm1341563280" role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
-<paragraph id="par_idm1341562048" role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph>
-<paragraph id="par_idm1341560816" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
-</bascode>
-</body>
+<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
+<embed href="text/sbasic/shared/03020103.xhp#FileExample"/>
+<section id="relatedtopics" >
+ <embed href="text/sbasic/shared/03020101.xhp#Close_h1"/>
+ <embed href="text/sbasic/shared/03020103.xhp#Open_h1"/>
+ <embed href="text/sbasic/shared/03010103.xhp#Print_h1"/>
+</section>
+</body>
</helpdocument>
\ No newline at end of file
diff --git a/source/text/sbasic/shared/03020103.xhp b/source/text/sbasic/shared/03020103.xhp
index bb605bc89..ddf55d217 100644
--- a/source/text/sbasic/shared/03020103.xhp
+++ b/source/text/sbasic/shared/03020103.xhp
@@ -62,31 +62,67 @@
<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
<section id="FileExample">
-<bascode>
-<paragraph id="par_idm1341597584" role="bascode" localize="false">Sub ExampleWorkWithAFile</paragraph>
-<paragraph id="par_idm1341596336" role="bascode" localize="false">Dim iNumber As Integer</paragraph>
-<paragraph id="par_idm1341595104" role="bascode" localize="false">Dim sLine As String</paragraph>
-<paragraph id="par_idm1341593872" role="bascode" localize="false">Dim aFile As String</paragraph>
-<paragraph id="par_idm1341592640" role="bascode" localize="false">Dim sMsg As String</paragraph>
-<paragraph id="par_idm1341591408" role="bascode" localize="false"> aFile = "c:\data.txt"</paragraph>
-<paragraph id="par_idm1341590160" role="bascode" localize="false"> iNumber = Freefile</paragraph>
-<paragraph id="par_idm1341588928" role="bascode" localize="false"> Open aFile For Output As #iNumber</paragraph>
-<paragraph id="par_id3154705" role="bascode" xml-lang="en-US"> Print #iNumber, "This is a line of text"</paragraph>
-<paragraph id="par_id3146916" role="bascode" xml-lang="en-US"> Print #iNumber, "This is another line of text"</paragraph>
-<paragraph id="par_idm1341584144" role="bascode" localize="false"> Close #iNumber</paragraph>
-<paragraph id="par_idm1341582912" role="bascode" localize="false"> iNumber = Freefile</paragraph>
-<paragraph id="par_idm1341581680" role="bascode" localize="false"> Open aFile For Input As iNumber</paragraph>
-<paragraph id="par_idm1341580432" role="bascode" localize="false"> While Not eof(iNumber)</paragraph>
-<paragraph id="par_idm1341579184" role="bascode" localize="false"> Line Input #iNumber, sLine</paragraph>
-<paragraph id="par_idm1341577936" role="bascode" localize="false"> If sLine <>"" Then</paragraph>
-<paragraph id="par_idm1341576688" role="bascode" localize="false"> sMsg = sMsg & sLine & chr(13)</paragraph>
-<paragraph id="par_idm1341575424" role="bascode" localize="false"> End If</paragraph>
-<paragraph id="par_idm1341574192" role="bascode" localize="false"> Wend</paragraph>
-<paragraph id="par_idm1341572960" role="bascode" localize="false"> Close #iNumber</paragraph>
-<paragraph id="par_idm1341571728" role="bascode" localize="false"> MsgBox sMsg</paragraph>
-<paragraph id="par_idm1341570496" role="bascode" localize="false">End Sub</paragraph>
+<switch select="sys">
+<case select="WIN">
+ <bascode>
+ <paragraph id="par_idm1341597584" role="bascode" localize="false">Sub ExampleWorkWithAFile</paragraph>
+ <paragraph id="par_idm1341596336" role="bascode" localize="false"> Dim iNumber As Integer</paragraph>
+ <paragraph id="par_idm1341595104" role="bascode" localize="false"> Dim sLine As String</paragraph>
+ <paragraph id="par_idm1341593872" role="bascode" localize="false"> Dim aFile As String</paragraph>
+ <paragraph id="par_idm1341592640" role="bascode" localize="false"> Dim sMsg As String</paragraph>
+ <paragraph id="par_idm1341591408" role="bascode" localize="false"> aFile = "C:\Users\ThisUser\data.txt"</paragraph>
+ <paragraph id="par_idm1341590160" role="bascode" localize="false"> iNumber = Freefile</paragraph>
+ <paragraph id="par_idm1341588928" role="bascode" localize="false"> Open aFile For Output As #iNumber</paragraph>
+ <paragraph id="par_id3154705" role="bascode" xml-lang="en-US"> Print #iNumber, "This is a line of text"</paragraph>
+ <paragraph id="par_id3146916" role="bascode" xml-lang="en-US"> Print #iNumber, "This is another line of text"</paragraph>
+ <paragraph id="par_idm1341584144" role="bascode" localize="false"> Close #iNumber</paragraph>
+ <paragraph id="par_idm1341582912" role="bascode" localize="false"> iNumber = Freefile</paragraph>
+ <paragraph id="par_idm1341581680" role="bascode" localize="false"> Open aFile For Input As iNumber</paragraph>
+ <paragraph id="par_idm1341580432" role="bascode" localize="false"> While Not eof(iNumber)</paragraph>
+ <paragraph id="par_idm1341579184" role="bascode" localize="false"> Line Input #iNumber, sLine</paragraph>
+ <paragraph id="par_idm1341577936" role="bascode" localize="false"> If sLine <>"" Then</paragraph>
+ <paragraph id="par_idm1341576688" role="bascode" localize="false"> sMsg = sMsg & sLine & chr(13)</paragraph>
+ <paragraph id="par_idm1341575424" role="bascode" localize="false"> End If</paragraph>
+ <paragraph id="par_idm1341574192" role="bascode" localize="false"> Wend</paragraph>
+ <paragraph id="par_idm1341572960" role="bascode" localize="false"> Close #iNumber</paragraph>
+ <paragraph id="par_idm1341571728" role="bascode" localize="false"> MsgBox sMsg</paragraph>
+ <paragraph id="par_idm1341570496" role="bascode" localize="false">End Sub</paragraph>
</bascode>
+</case>
+<default>
+ <bascode>
+ <paragraph id="par_idm1341597147" role="bascode" localize="false">Sub ExampleWorkWithAFile</paragraph>
+ <paragraph id="par_idm1341596754" role="bascode" localize="false"> Dim iNumber As Integer</paragraph>
+ <paragraph id="par_idm1341542504" role="bascode" localize="false"> Dim sLine As String</paragraph>
+ <paragraph id="par_idm1341593122" role="bascode" localize="false"> Dim aFile As String</paragraph>
+ <paragraph id="par_idm1340442640" role="bascode" localize="false"> Dim sMsg As String</paragraph>
+ <paragraph id="par_idm1341591014" role="bascode" localize="false"> aFile = "~/data.txt"</paragraph>
+ <paragraph id="par_idm1341255160" role="bascode" localize="false"> iNumber = Freefile</paragraph>
+ <paragraph id="par_idm1341581338" role="bascode" localize="false"> Open aFile For Output As #iNumber</paragraph>
+ <paragraph id="par_id3154705125" role="bascode" xml-lang="en-US"> Print #iNumber, "This is a line of text"</paragraph>
+ <paragraph id="par_id3146916877" role="bascode" xml-lang="en-US"> Print #iNumber, "This is another line of text"</paragraph>
+ <paragraph id="par_idm1341584244" role="bascode" localize="false"> Close #iNumber</paragraph>
+ <paragraph id="par_idm1341583242" role="bascode" localize="false"> iNumber = Freefile</paragraph>
+ <paragraph id="par_idm1341587410" role="bascode" localize="false"> Open aFile For Input As iNumber</paragraph>
+ <paragraph id="par_idm1341598532" role="bascode" localize="false"> While Not eof(iNumber)</paragraph>
+ <paragraph id="par_idm1341572054" role="bascode" localize="false"> Line Input #iNumber, sLine</paragraph>
+ <paragraph id="par_idm1341906936" role="bascode" localize="false"> If sLine <>"" Then</paragraph>
+ <paragraph id="par_idm1341514488" role="bascode" localize="false"> sMsg = sMsg & sLine & chr(13)</paragraph>
+ <paragraph id="par_idm1341233424" role="bascode" localize="false"> End If</paragraph>
+ <paragraph id="par_idm1341575882" role="bascode" localize="false"> Wend</paragraph>
+ <paragraph id="par_idm1341906960" role="bascode" localize="false"> Close #iNumber</paragraph>
+ <paragraph id="par_idm1341576638" role="bascode" localize="false"> MsgBox sMsg</paragraph>
+ <paragraph id="par_idm1341514496" role="bascode" localize="false">End Sub</paragraph>
+ </bascode>
+</default>
+</switch>
+</section>
+<note id="par_id211617107328022">If the <literal>Open</literal> statement tries to open a file to which the current user does not have read/write permissions, an I/O error will be raised.</note>
+<section id="relatedtopics" >
+ <embed href="text/sbasic/shared/03020101.xhp#Close_h1"/>
+ <embed href="text/sbasic/shared/03020102.xhp#FreeFile_h1"/>
+ <embed href="text/sbasic/shared/03020202.xhp#Input_h1"/>
+ <embed href="text/sbasic/shared/03010103.xhp#Print_h1"/>
</section>
-
</body>
</helpdocument>
\ No newline at end of file
diff --git a/source/text/sbasic/shared/03020104.xhp b/source/text/sbasic/shared/03020104.xhp
index 45b65045f..9d09da144 100644
--- a/source/text/sbasic/shared/03020104.xhp
+++ b/source/text/sbasic/shared/03020104.xhp
@@ -48,11 +48,11 @@
<bascode>
<paragraph id="par_idm1207260032" role="bascode" localize="false">Sub ExampleReset</paragraph>
<paragraph id="par_idm1207243568" role="bascode" localize="false">On Error GoTo ErrorHandler</paragraph>
-<paragraph id="par_idm1207242464" role="bascode" localize="false">Dim iNumber As Integer</paragraph>
-<paragraph id="par_idm1207241360" role="bascode" localize="false">Dim iCount As Integer</paragraph>
-<paragraph id="par_idm1207240256" role="bascode" localize="false">Dim sLine As String</paragraph>
-<paragraph id="par_idm1207239152" role="bascode" localize="false">Dim aFile As String</paragraph>
-<paragraph id="par_idm1207238048" role="bascode" localize="false"> aFile = "c:\data.txt"</paragraph>
+<paragraph id="par_idm1207242464" role="bascode" localize="false"> Dim iNumber As Integer</paragraph>
+<paragraph id="par_idm1207241360" role="bascode" localize="false"> Dim iCount As Integer</paragraph>
+<paragraph id="par_idm1207240256" role="bascode" localize="false"> Dim sLine As String</paragraph>
+<paragraph id="par_idm1207239152" role="bascode" localize="false"> Dim aFile As String</paragraph>
+<paragraph id="par_idm1207238048" role="bascode" localize="false"> aFile = "C:\Users\ThisUser\data.txt"</paragraph>
<paragraph id="par_idm1207236896" role="bascode" localize="false"> iNumber = Freefile</paragraph>
<paragraph id="par_idm1207235792" role="bascode" localize="false"> Open aFile For Output As #iNumber</paragraph>
<paragraph id="par_id3148455" role="bascode" xml-lang="en-US"> Print #iNumber, "This is a new line of text"</paragraph>
@@ -69,7 +69,7 @@
<paragraph id="par_idm1207221808" role="bascode" localize="false"> Exit Sub</paragraph>
<paragraph id="par_idm1207220704" role="bascode" localize="false">ErrorHandler:</paragraph>
<paragraph id="par_idm1207219600" role="bascode" localize="false"> Reset</paragraph>
-<paragraph id="par_id3163805" role="bascode" xml-lang="en-US"> MsgBox "All files will be closed",0,"Error"</paragraph>
+<paragraph id="par_id3163805" role="bascode" xml-lang="en-US"> MsgBox "All files will be closed", 0, "Error"</paragraph>
<paragraph id="par_idm1207216848" role="bascode" localize="false">End Sub</paragraph>
</bascode>
@@ -77,6 +77,5 @@
<embed href="text/sbasic/shared/03020101.xhp#Close_h1"/>
<embed href="text/sbasic/shared/03020103.xhp#Open_h1"/>
</section>
-
</body>
</helpdocument>
\ No newline at end of file
diff --git a/source/text/sbasic/shared/03020201.xhp b/source/text/sbasic/shared/03020201.xhp
index b2885659d..300451363 100644
--- a/source/text/sbasic/shared/03020201.xhp
+++ b/source/text/sbasic/shared/03020201.xhp
@@ -50,37 +50,70 @@
<paragraph id="par_id3154684" role="paragraph" xml-lang="en-US"> <emph>recordNum:</emph> For files opened in Random mode, <emph>recordNum</emph> is the number of the record that you want to read.</paragraph>
<paragraph id="par_id3153768" role="paragraph" xml-lang="en-US">For files opened in Binary mode, <emph>filePos</emph> is the byte position in the file where the reading starts.</paragraph>
<paragraph id="par_id3147319" role="paragraph" xml-lang="en-US">If <emph>recordNum</emph> and <emph>filePos</emph> are omitted, the current position or the current data record of the file is used.</paragraph>
- <paragraph id="par_id3149484" role="paragraph" xml-lang="en-US"><emph>variable:</emph> Name of the variable to be read. With the exception of object variables, you can use any variable type.</paragraph>
+<paragraph id="par_id3149484" role="paragraph" xml-lang="en-US"><emph>variable:</emph> Name of the variable to be read. With the exception of object variables, you can use any variable type.</paragraph>
-<section id="ExampleRandomAccess">
<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
-<bascode>
-<paragraph id="par_idm1340774864" role="bascode" localize="false">Sub ExampleRandomAccess</paragraph>
-<paragraph id="par_idm1340773632" role="bascode" localize="false"> Dim iNumber As Integer</paragraph>
-<paragraph id="par_id3155307" role="bascode" xml-lang="en-US"> Dim sText As Variant ' Must be a variant</paragraph>
-<paragraph id="par_idm1340770608" role="bascode" localize="false"> Dim aFile As String</paragraph>
-<paragraph id="par_idm1340769376" role="bascode" localize="false"> aFile = "c:\data.txt"</paragraph>
-<paragraph id="par_idm1340768128" role="bascode" localize="false"> iNumber = Freefile</paragraph>
-<paragraph id="par_idm1340766896" role="bascode" localize="false"> Open aFile For Random As #iNumber Len=32</paragraph>
-<paragraph id="par_id3149411" role="bascode" xml-lang="en-US"> Seek #iNumber,1 ' Position at beginning</paragraph>
-<paragraph id="par_id3153158" role="bascode" xml-lang="en-US"> Put #iNumber,, "This is the first line of text" ' Fill line with text</paragraph>
-<paragraph id="par_id3148457" role="bascode" xml-lang="en-US"> Put #iNumber,, "This is the second line of text"</paragraph>
-<paragraph id="par_id3150715" role="bascode" xml-lang="en-US"> Put #iNumber,, "This is the third line of text"</paragraph>
-<paragraph id="par_idm1340758576" role="bascode" localize="false"> Seek #iNumber,2</paragraph>
-<paragraph id="par_idm1340757344" role="bascode" localize="false"> Get #iNumber,,sText</paragraph>
-<paragraph id="par_idm1340756112" role="bascode" localize="false"> Print sText</paragraph>
-<paragraph id="par_idm1340754880" role="bascode" localize="false"> Close #iNumber</paragraph>
-<paragraph id="par_idm1340753648" role="bascode" localize="false"> iNumber = Freefile</paragraph>
-<paragraph id="par_idm1340752416" role="bascode" localize="false"> Open aFile For Random As #iNumber Len=32</paragraph>
-<paragraph id="par_idm1340751152" role="bascode" localize="false"> Get #iNumber,2,sText</paragraph>
-<paragraph id="par_id3155938" role="bascode" xml-lang="en-US"> Put #iNumber,,"This is a new text"</paragraph>
-<paragraph id="par_idm1340748176" role="bascode" localize="false"> Get #iNumber,1,sText</paragraph>
-<paragraph id="par_idm1340746928" role="bascode" localize="false"> Get #iNumber,2,sText</paragraph>
-<paragraph id="par_id3146916" role="bascode" xml-lang="en-US"> Put #iNumber,20,"This is the text in record 20"</paragraph>
-<paragraph id="par_idm1340743936" role="bascode" localize="false"> Print Lof(#iNumber)</paragraph>
-<paragraph id="par_idm1340742704" role="bascode" localize="false"> Close #iNumber</paragraph>
-<paragraph id="par_idm1340741472" role="bascode" localize="false">End Sub</paragraph>
-</bascode>
+<section id="ExampleRandomAccess">
+<switch select="sys">
+<case select="WIN">
+ <bascode>
+ <paragraph id="par_idm1340774864" role="bascode" localize="false">Sub ExampleRandomAccess</paragraph>
+ <paragraph id="par_idm1340773632" role="bascode" localize="false"> Dim iNumber As Integer</paragraph>
+ <paragraph id="par_id3155307" role="bascode" xml-lang="en-US"> Dim sText As Variant ' Must be a variant</paragraph>
+ <paragraph id="par_idm1340770608" role="bascode" localize="false"> Dim aFile As String</paragraph>
+ <paragraph id="par_idm1340769376" role="bascode" localize="false"> aFile = "C:\Users\ThisUser\data.txt"</paragraph>
+ <paragraph id="par_idm1340768128" role="bascode" localize="false"> iNumber = Freefile</paragraph>
+ <paragraph id="par_idm1340766896" role="bascode" localize="false"> Open aFile For Random As #iNumber Len=32</paragraph>
+ <paragraph id="par_id3149411" role="bascode" xml-lang="en-US"> Seek #iNumber,1 ' Position at beginning</paragraph>
+ <paragraph id="par_id3153158" role="bascode" xml-lang="en-US"> Put #iNumber, , "This is the first line of text" ' Fill line with text</paragraph>
+ <paragraph id="par_id3148457" role="bascode" xml-lang="en-US"> Put #iNumber, , "This is the second line of text"</paragraph>
+ <paragraph id="par_id3150715" role="bascode" xml-lang="en-US"> Put #iNumber, , "This is the third line of text"</paragraph>
+ <paragraph id="par_idm1340758576" role="bascode" localize="false"> Seek #iNumber,2</paragraph>
+ <paragraph id="par_idm1340757344" role="bascode" localize="false"> Get #iNumber, , sText</paragraph>
+ <paragraph id="par_idm1340756112" role="bascode" localize="false"> Print sText</paragraph>
+ <paragraph id="par_idm1340754880" role="bascode" localize="false"> Close #iNumber</paragraph>
+ <paragraph id="par_idm1340753648" role="bascode" localize="false"> iNumber = Freefile</paragraph>
+ <paragraph id="par_idm1340752416" role="bascode" localize="false"> Open aFile For Random As #iNumber Len=32</paragraph>
+ <paragraph id="par_idm1340751152" role="bascode" localize="false"> Get #iNumber, 2, sText</paragraph>
+ <paragraph id="par_id3155938" role="bascode" xml-lang="en-US"> Put #iNumber, , "This is a new text"</paragraph>
+ <paragraph id="par_idm1340748176" role="bascode" localize="false"> Get #iNumber, 1, sText</paragraph>
+ <paragraph id="par_idm1340746928" role="bascode" localize="false"> Get #iNumber, 2, sText</paragraph>
+ <paragraph id="par_id3146916" role="bascode" xml-lang="en-US"> Put #iNumber, 20, "This is the text in record 20"</paragraph>
+ <paragraph id="par_idm1340743936" role="bascode" localize="false"> Print Lof(#iNumber)</paragraph>
+ <paragraph id="par_idm1340742704" role="bascode" localize="false"> Close #iNumber</paragraph>
+ <paragraph id="par_idm1340741472" role="bascode" localize="false">End Sub</paragraph>
+ </bascode>
+</case>
+<default>
+ <bascode>
+ <paragraph id="par_idm1340774104" role="bascode" localize="false">Sub ExampleRandomAccess</paragraph>
+ <paragraph id="par_idm1340773774" role="bascode" localize="false"> Dim iNumber As Integer</paragraph>
+ <paragraph id="par_id31553071450" role="bascode" xml-lang="en-US"> Dim sText As Variant ' Must be a variant</paragraph>
+ <paragraph id="par_idm1340770200" role="bascode" localize="false"> Dim aFile As String</paragraph>
+ <paragraph id="par_idm1340769147" role="bascode" localize="false"> aFile = "~/data.txt"</paragraph>
+ <paragraph id="par_idm1340768732" role="bascode" localize="false"> iNumber = Freefile</paragraph>
+ <paragraph id="par_idm1340766055" role="bascode" localize="false"> Open aFile For Random As #iNumber Len=32</paragraph>
+ <paragraph id="par_id31494111458" role="bascode" xml-lang="en-US"> Seek #iNumber,1 ' Position at beginning</paragraph>
+ <paragraph id="par_id31531583325" role="bascode" xml-lang="en-US"> Put #iNumber, , "This is the first line of text" ' Fill line with text</paragraph>
+ <paragraph id="par_id31484574785" role="bascode" xml-lang="en-US"> Put #iNumber, , "This is the second line of text"</paragraph>
+ <paragraph id="par_id31507151145" role="bascode" xml-lang="en-US"> Put #iNumber, , "This is the third line of text"</paragraph>
+ <paragraph id="par_idm1340758225" role="bascode" localize="false"> Seek #iNumber,2</paragraph>
+ <paragraph id="par_idm1340757001" role="bascode" localize="false"> Get #iNumber, , sText</paragraph>
+ <paragraph id="par_idm1340756855" role="bascode" localize="false"> Print sText</paragraph>
+ <paragraph id="par_idm1340754987" role="bascode" localize="false"> Close #iNumber</paragraph>
+ <paragraph id="par_idm1340753695" role="bascode" localize="false"> iNumber = Freefile</paragraph>
+ <paragraph id="par_idm1340752334" role="bascode" localize="false"> Open aFile For Random As #iNumber Len=32</paragraph>
+ <paragraph id="par_idm1340751547" role="bascode" localize="false"> Get #iNumber, 2, sText</paragraph>
+ <paragraph id="par_id31559382236" role="bascode" xml-lang="en-US"> Put #iNumber, , "This is a new text"</paragraph>
+ <paragraph id="par_idm1340748447" role="bascode" localize="false"> Get #iNumber, 1, sText</paragraph>
+ <paragraph id="par_idm1340746658" role="bascode" localize="false"> Get #iNumber, 2, sText</paragraph>
+ <paragraph id="par_id31469165876" role="bascode" xml-lang="en-US"> Put #iNumber, 20, "This is the text in record 20"</paragraph>
+ <paragraph id="par_idm1340743004" role="bascode" localize="false"> Print Lof(#iNumber)</paragraph>
+ <paragraph id="par_idm1340742125" role="bascode" localize="false"> Close #iNumber</paragraph>
+ <paragraph id="par_idm1340741288" role="bascode" localize="false">End Sub</paragraph>
+ </bascode>
+</default>
+</switch>
</section>
<section id="relatedtopics" >
@@ -88,6 +121,5 @@
<embed href="text/sbasic/shared/03020204.xhp#Put_h1"/>
<embed href="text/sbasic/shared/03020101.xhp#Close_h1"/>
</section>
-
</body>
</helpdocument>
\ No newline at end of file
diff --git a/source/text/sbasic/shared/03020202.xhp b/source/text/sbasic/shared/03020202.xhp
index 17e20c0fb..63adaa36d 100644
--- a/source/text/sbasic/shared/03020202.xhp
+++ b/source/text/sbasic/shared/03020202.xhp
@@ -32,7 +32,7 @@
<bookmark_value>Input statement</bookmark_value>
</bookmark>
-<paragraph id="hd_id3154908" role="heading" level="1" xml-lang="en-US"><link href="text/sbasic/shared/03020202.xhp" name="Input# Statement">Input# Statement</link></paragraph>
+<paragraph id="hd_id3154908" role="heading" level="1" xml-lang="en-US"><variable id="Input_h1"><link href="text/sbasic/shared/03020202.xhp" name="Input# Statement">Input# Statement</link></variable></paragraph>
<paragraph id="par_id3156424" role="paragraph" xml-lang="en-US">Reads data from an open sequential file.</paragraph>
</section>
@@ -55,12 +55,10 @@
<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
<bascode>
<paragraph id="par_idm871097888" role="bascode" localize="false">Sub ExampleWorkWithAFile</paragraph>
-<paragraph id="par_idm871096912" role="bascode" localize="false">Dim iCount As Integer, sFileName As String</paragraph>
-<paragraph id="par_idm871095952" role="bascode" localize="false">Dim sName As String, sValue As Integer</paragraph>
-<paragraph id="par_idm871093072" role="bascode" localize="false"> </paragraph>
-<paragraph id="par_idm871092096" role="bascode" localize="false"> sFileName = "C:\data.txt"</paragraph>
+<paragraph id="par_idm871096912" role="bascode" localize="false"> Dim iCount As Integer, sFileName As String</paragraph>
+<paragraph id="par_idm871095952" role="bascode" localize="false"> Dim sName As String, sValue As Integer</paragraph>
+<paragraph id="par_idm871092096" role="bascode" localize="false"> sFileName = "C:\Users\ThisUser\data.txt"</paragraph>
<paragraph id="par_idm871091120" role="bascode" localize="false"> iCount = Freefile</paragraph>
-<paragraph id="par_idm871090160" role="bascode" localize="false"> </paragraph>
<paragraph id="par_id4144765" role="bascode" xml-lang="en-US"> ' Write data ( which we will read later with Input ) to file</paragraph>
<paragraph id="par_idm871087952" role="bascode" localize="false"> Open sFileName For Output As iCount</paragraph>
<paragraph id="par_idm871086976" role="bascode" localize="false"> sName = "Hamburg" : sValue = 200</paragraph>
@@ -70,9 +68,8 @@
<paragraph id="par_idm871081184" role="bascode" localize="false"> sName = "Miami" : sValue = 459</paragraph>
<paragraph id="par_idm871079264" role="bascode" localize="false"> Write #iCount, sName, sValue</paragraph>
<paragraph id="par_idm871078288" role="bascode" localize="false"> Close #iCount</paragraph>
-<paragraph id="par_idm871077328" role="bascode" localize="false"> </paragraph>
-<paragraph id="par_idm871076400" role="bascode" localize="false"> iCount = Freefile</paragraph>
<paragraph id="par_id4144766" role="bascode" xml-lang="en-US"> ' Read data file using Input</paragraph>
+<paragraph id="par_idm871076400" role="bascode" localize="false"> iCount = Freefile</paragraph>
<paragraph id="par_idm871074192" role="bascode" localize="false"> Open sFileName For Input As iCount</paragraph>
<paragraph id="par_idm871073216" role="bascode" localize="false"> Input #iCount, sName, sValue</paragraph>
<paragraph id="par_idm871072240" role="bascode" localize="false"> MsgBox sName & " " & sValue</paragraph>
@@ -83,6 +80,11 @@
<paragraph id="par_idm871067360" role="bascode" localize="false"> Close #iCount</paragraph>
<paragraph id="par_idm871066400" role="bascode" localize="false">End Sub</paragraph>
</bascode>
-
+<section id="relatedtopics" >
+ <embed href="text/sbasic/shared/03020101.xhp#Close_h1"/>
+ <embed href="text/sbasic/shared/03020103.xhp#Open_h1"/>
+ <embed href="text/sbasic/shared/03010103.xhp#Print_h1"/>
+ <embed href="text/sbasic/shared/03020205.xhp#Write_h1"/>
+</section>
</body>
</helpdocument>
\ No newline at end of file
diff --git a/source/text/sbasic/shared/03020203.xhp b/source/text/sbasic/shared/03020203.xhp
index 79143d2a0..117186268 100644
--- a/source/text/sbasic/shared/03020203.xhp
+++ b/source/text/sbasic/shared/03020203.xhp
@@ -52,5 +52,10 @@
<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
<embed href="text/sbasic/shared/03020103.xhp#FileExample"/>
+<section id="relatedtopics" >
+ <embed href="text/sbasic/shared/03020103.xhp#Open_h1"/>
+ <embed href="text/sbasic/shared/03010103.xhp#Print_h1"/>
+ <embed href="text/sbasic/shared/03020205.xhp#Write_h1"/>
+</section>
</body>
</helpdocument>
\ No newline at end of file
diff --git a/source/text/sbasic/shared/03020205.xhp b/source/text/sbasic/shared/03020205.xhp
index 608395b6b..f97195397 100644
--- a/source/text/sbasic/shared/03020205.xhp
+++ b/source/text/sbasic/shared/03020205.xhp
@@ -56,21 +56,42 @@
<paragraph id="par_id6618854" role="paragraph">Numbers with decimal delimiters are converted according to the locale settings.</paragraph>
<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
-<bascode>
-<paragraph id="par_idm1340911536" role="bascode" localize="false">Sub ExampleWrite</paragraph>
-<paragraph id="par_idm1340910304" role="bascode" localize="false"> Dim iCount As Integer</paragraph>
-<paragraph id="par_idm1340909072" role="bascode" localize="false"> Dim sValue As String</paragraph>
-<paragraph id="par_idm1340907840" role="bascode" localize="false"> iCount = Freefile</paragraph>
-<paragraph id="par_idm1340906608" role="bascode" localize="false"> Open "C:\data.txt" For Output As iCount</paragraph>
-<paragraph id="par_idm1340905344" role="bascode" localize="false"> sValue = "Hamburg"</paragraph>
-<paragraph id="par_idm1340904112" role="bascode" localize="false"> Write #iCount,sValue,200</paragraph>
-<paragraph id="par_idm1340902864" role="bascode" localize="false"> sValue = "New York"</paragraph>
-<paragraph id="par_idm1340901632" role="bascode" localize="false"> Write #iCount,sValue,300</paragraph>
-<paragraph id="par_idm1340900384" role="bascode" localize="false"> sValue = "Miami"</paragraph>
-<paragraph id="par_idm1340899152" role="bascode" localize="false"> Write #iCount,sValue,450</paragraph>
-<paragraph id="par_idm1340897904" role="bascode" localize="false"> Close #iCount</paragraph>
-<paragraph id="par_idm1340896672" role="bascode" localize="false">End Sub</paragraph>
-</bascode>
+<switch select="sys">
+<case select="WIN">
+ <bascode>
+ <paragraph id="par_idm1340911536" role="bascode" localize="false">Sub ExampleWrite</paragraph>
+ <paragraph id="par_idm1340910304" role="bascode" localize="false"> Dim iCount As Integer</paragraph>
+ <paragraph id="par_idm1340909072" role="bascode" localize="false"> Dim sValue As String</paragraph>
+ <paragraph id="par_idm1340907840" role="bascode" localize="false"> iCount = Freefile</paragraph>
+ <paragraph id="par_idm1340906608" role="bascode" localize="false"> Open "C:\Users\ThisUser\data.txt" For Output As iCount</paragraph>
+ <paragraph id="par_idm1340905344" role="bascode" localize="false"> sValue = "Hamburg"</paragraph>
+ <paragraph id="par_idm1340904112" role="bascode" localize="false"> Write #iCount,sValue,200</paragraph>
+ <paragraph id="par_idm1340902864" role="bascode" localize="false"> sValue = "New York"</paragraph>
+ <paragraph id="par_idm1340901632" role="bascode" localize="false"> Write #iCount,sValue,300</paragraph>
+ <paragraph id="par_idm1340900384" role="bascode" localize="false"> sValue = "Miami"</paragraph>
+ <paragraph id="par_idm1340899152" role="bascode" localize="false"> Write #iCount,sValue,450</paragraph>
+ <paragraph id="par_idm1340897904" role="bascode" localize="false"> Close #iCount</paragraph>
+ <paragraph id="par_idm1340896672" role="bascode" localize="false">End Sub</paragraph>
+ </bascode>
+</case>
+<default>
+ <bascode>
+ <paragraph id="par_idm1340912556" role="bascode" localize="false">Sub ExampleWrite</paragraph>
+ <paragraph id="par_idm1340919854" role="bascode" localize="false"> Dim iCount As Integer</paragraph>
+ <paragraph id="par_idm1340912572" role="bascode" localize="false"> Dim sValue As String</paragraph>
+ <paragraph id="par_idm1340907125" role="bascode" localize="false"> iCount = Freefile</paragraph>
+ <paragraph id="par_idm1340906804" role="bascode" localize="false"> Open "~/data.txt" For Output As iCount</paragraph>
+ <paragraph id="par_idm1340905662" role="bascode" localize="false"> sValue = "Hamburg"</paragraph>
+ <paragraph id="par_idm1340904147" role="bascode" localize="false"> Write #iCount,sValue,200</paragraph>
+ <paragraph id="par_idm1340902258" role="bascode" localize="false"> sValue = "New York"</paragraph>
+ <paragraph id="par_idm1340901147" role="bascode" localize="false"> Write #iCount,sValue,300</paragraph>
+ <paragraph id="par_idm1340900203" role="bascode" localize="false"> sValue = "Miami"</paragraph>
+ <paragraph id="par_idm1340899330" role="bascode" localize="false"> Write #iCount,sValue,450</paragraph>
+ <paragraph id="par_idm1340897887" role="bascode" localize="false"> Close #iCount</paragraph>
+ <paragraph id="par_idm1340896654" role="bascode" localize="false">End Sub</paragraph>
+ </bascode>
+</default>
+</switch>
<section id="relatedtopics" >
<embed href="text/sbasic/shared/03020103.xhp#Open_h1"/>
@@ -78,6 +99,5 @@
<embed href="text/sbasic/shared/03020204.xhp#Put_h1"/>
<embed href="text/sbasic/shared/03020101.xhp#Close_h1"/>
</section>
-
</body>
</helpdocument>
\ No newline at end of file
diff --git a/source/text/sbasic/shared/03020301.xhp b/source/text/sbasic/shared/03020301.xhp
index b9c84f456..2c681a0aa 100644
--- a/source/text/sbasic/shared/03020301.xhp
+++ b/source/text/sbasic/shared/03020301.xhp
@@ -38,46 +38,29 @@
<paragraph id="par_id3147182" role="paragraph" xml-lang="en-US">Determines if the file pointer has reached the end of a file.</paragraph>
</section>
-<paragraph id="hd_id3149119" role="heading" level="2" xml-lang="en-US">Syntax:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functsyntax"/>
<bascode>
<paragraph id="par_id3147399" role="bascode" xml-lang="en-US">Eof (intexpression As Integer)</paragraph>
</bascode>
-<paragraph id="hd_id3153539" role="heading" level="2" xml-lang="en-US">Return value:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functvalue"/>
<paragraph id="par_id3156027" role="paragraph" xml-lang="en-US">Bool</paragraph>
-<paragraph id="hd_id3152924" role="heading" level="2" xml-lang="en-US">Parameters:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functparameters"/>
<paragraph id="par_id3153990" role="paragraph" xml-lang="en-US"> <emph>Intexpression:</emph> Any integer expression that evaluates to the number of an open file.</paragraph>
<paragraph id="par_id3153527" role="paragraph" xml-lang="en-US">Use EOF to avoid errors when you attempt to get input past the end of a file. When you use the Input or Get statement to read from a file, the file pointer is advanced by the number of bytes read. When the end of a file is reached, EOF returns the value "True" (-1).</paragraph>
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<embed href="text/sbasic/shared/00000003.xhp#err52"/>
-<paragraph id="hd_id3154046" role="heading" level="2" xml-lang="en-US">Example:</paragraph>
-<bascode>
-<paragraph id="par_idm1341592032" role="bascode" localize="false" xml-lang="en-US">Sub ExampleWorkWithAFile</paragraph>
-<paragraph id="par_idm1341590784" role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph>
-<paragraph id="par_idm1341589552" role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph>
-<paragraph id="par_idm1341588320" role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph>
-<paragraph id="par_idm1341587088" role="bascode" localize="false" xml-lang="en-US">Dim sMsg As String</paragraph>
-<paragraph id="par_idm1341585856" role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph>
-<paragraph id="par_idm1341584608" role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
-<paragraph id="par_idm1341583376" role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph>
-<paragraph id="par_id3153360" role="bascode" xml-lang="en-US"> Print #iNumber, "First line of text"</paragraph>
-<paragraph id="par_id3148797" role="bascode" xml-lang="en-US"> Print #iNumber, "Another line of text"</paragraph>
-<paragraph id="par_idm1341578592" role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
-<paragraph id="par_idm1341577360" role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
-<paragraph id="par_idm1341576128" role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As iNumber</paragraph>
-<paragraph id="par_idm1341574880" role="bascode" localize="false" xml-lang="en-US"> While Not eof(iNumber)</paragraph>
-<paragraph id="par_idm1341573632" role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph>
-<paragraph id="par_idm1341572384" role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph>
-<paragraph id="par_idm1341571136" role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph>
-<paragraph id="par_idm1341569872" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph>
-<paragraph id="par_idm1341568640" role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph>
-<paragraph id="par_idm1341567408" role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
-<paragraph id="par_idm1341566176" role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph>
-<paragraph id="par_idm1341564944" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
-</bascode>
-</body>
+<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
+<embed href="text/sbasic/shared/03020103.xhp#FileExample"/>
+<section id="relatedtopics" >
+ <embed href="text/sbasic/shared/03020101.xhp#Close_h1"/>
+ <embed href="text/sbasic/shared/03010103.xhp#Print_h1"/>
+ <embed href="text/sbasic/shared/03020202.xhp#Input_h1"/>
+ <embed href="text/sbasic/shared/03020103.xhp#Open_h1"/>
+</section>
+</body>
</helpdocument>
\ No newline at end of file
diff --git a/source/text/sbasic/shared/03020303.xhp b/source/text/sbasic/shared/03020303.xhp
index a00387724..9ff89b5c4 100644
--- a/source/text/sbasic/shared/03020303.xhp
+++ b/source/text/sbasic/shared/03020303.xhp
@@ -36,46 +36,28 @@
<paragraph role="heading" id="hd_id3156024" xml-lang="en-US" level="1"><link href="text/sbasic/shared/03020303.xhp" name="Lof Function">Lof Function</link></paragraph>
<paragraph role="paragraph" id="par_id3146794" xml-lang="en-US">Returns the size of an open file in bytes.</paragraph>
</section>
-<paragraph role="heading" id="hd_id3153380" xml-lang="en-US" level="2">Syntax:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functsyntax"/>
<bascode>
<paragraph role="bascode" id="par_id3150359" xml-lang="en-US">Lof (FileNumber)</paragraph>
</bascode>
-<paragraph role="heading" id="hd_id3154141" xml-lang="en-US" level="2">Return value:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functvalue"/>
<paragraph role="paragraph" id="par_id3147230" xml-lang="en-US">Long</paragraph>
-<paragraph role="heading" id="hd_id3156281" xml-lang="en-US" level="2">Parameters:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functparameters"/>
<paragraph role="paragraph" id="par_id3150869" xml-lang="en-US">
<emph>FileNumber:</emph> Any numeric expression that contains the file number that is specified in the Open statement.</paragraph>
<paragraph role="tip" id="par_id3147349" xml-lang="en-US">To obtain the length of a file that is not open, use the <emph>FileLen</emph> function.</paragraph>
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<embed href="text/sbasic/shared/00000003.xhp#err52"/>
-<paragraph role="heading" id="hd_id3155415" xml-lang="en-US" level="2">Example:</paragraph>
-<bascode>
-<paragraph role="bascode" localize="false" id="par_id3151074" xml-lang="en-US">Sub ExampleRandomAccess</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3145251" xml-lang="en-US">Dim iNumber As Integer</paragraph>
-<paragraph role="bascode" id="par_id3154730" xml-lang="en-US">Dim sText As Variant REM must be a Variant</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3145646" xml-lang="en-US">Dim aFile As String</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3153157" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3149403" xml-lang="en-US"> iNumber = Freefile</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3149121" xml-lang="en-US"> Open aFile For Random As #iNumber Len=32</paragraph>
-<paragraph role="bascode" id="par_id3156276" xml-lang="en-US"> Seek #iNumber,1 REM Position at start</paragraph>
-<paragraph role="bascode" id="par_id3148405" xml-lang="en-US"> Put #iNumber,, "This is the first line of text" REM Fill with text</paragraph>
-<paragraph role="bascode" id="par_id3154756" xml-lang="en-US"> Put #iNumber,, "This is the second line of text"</paragraph>
-<paragraph role="bascode" id="par_id3145643" xml-lang="en-US"> Put #iNumber,, "This is the third line of text"</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3156383" xml-lang="en-US"> Seek #iNumber,2</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3155333" xml-lang="en-US"> Get #iNumber,,sText</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3149255" xml-lang="en-US"> Print sText</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3154702" xml-lang="en-US"> Close #iNumber</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3153965" xml-lang="en-US"> iNumber = Freefile</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3163807" xml-lang="en-US"> Open aFile For Random As #iNumber Len=32</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3155607" xml-lang="en-US"> Get #iNumber,2,sText</paragraph>
-<paragraph role="bascode" id="par_id3150299" xml-lang="en-US"> Put #iNumber,,"This is a new line of text"</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3147002" xml-lang="en-US"> Get #iNumber,1,sText</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3149036" xml-lang="en-US"> Get #iNumber,2,sText</paragraph>
-<paragraph role="bascode" id="par_id3166425" xml-lang="en-US"> Put #iNumber,20,"This is the text in record 20"</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3149817" xml-lang="en-US"> Print Lof(#iNumber)</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3146811" xml-lang="en-US"> Close #iNumber</paragraph>
-<paragraph role="bascode" localize="false" id="par_id3154200" xml-lang="en-US">End Sub</paragraph>
-</bascode>
+
+<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
+<embed href="text/sbasic/shared/03020201.xhp#ExampleRandomAccess"/>
+
+<section id="relatedtopics" >
+ <embed href="text/sbasic/shared/03020101.xhp#Close_h1"/>
+ <embed href="text/sbasic/shared/03010103.xhp#Print_h1"/>
+ <embed href="text/sbasic/shared/03020103.xhp#Open_h1"/>
+ <embed href="text/sbasic/shared/03020201.xhp#Get_h1"/>
+</section>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03020405.xhp b/source/text/sbasic/shared/03020405.xhp
index 09b49a3fa..d19d30546 100644
--- a/source/text/sbasic/shared/03020405.xhp
+++ b/source/text/sbasic/shared/03020405.xhp
@@ -40,15 +40,15 @@
<paragraph id="par_id3153364" role="note" xml-lang="en-US">If you use a 32-Bit operating system, you cannot use the FileAttr-Function to determine the file access number.</paragraph>
<paragraph id="par_id3163713" role="paragraph" xml-lang="en-US">See also: <link href="text/sbasic/shared/03020103.xhp" name="Open">Open</link></paragraph>
-<paragraph id="hd_id3151116" role="heading" level="2" xml-lang="en-US">Syntax:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functsyntax"/>
<bascode>
<paragraph id="par_id3154012" role="bascode" xml-lang="en-US">FileAttr (FileNumber As Integer, Attribute As Integer)</paragraph>
</bascode>
-<paragraph id="hd_id3147349" role="heading" level="2" xml-lang="en-US">Return value:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functvalue"/>
<paragraph id="par_id3146974" role="paragraph" xml-lang="en-US">Integer</paragraph>
-<paragraph id="hd_id3153728" role="heading" level="2" xml-lang="en-US">Parameters:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functparameters"/>
<paragraph id="par_id3151074" role="paragraph" xml-lang="en-US"> <emph>FileNumber:</emph> The number of the file that was opened with the Open statement.</paragraph>
<paragraph id="par_id3144766" role="paragraph" xml-lang="en-US"> <emph>Attribute:</emph> Integer expression that indicates the type of file information that you want to return. The following values are possible:</paragraph>
<paragraph id="par_id3147396" role="paragraph" xml-lang="en-US">1: The FileAttr-Function indicates the access mode of the file.</paragraph>
@@ -63,21 +63,27 @@
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<embed href="text/sbasic/shared/00000003.xhp#err52"/>
-<paragraph id="hd_id3147339" role="heading" level="2" xml-lang="en-US">Example:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
<bascode>
<paragraph id="par_idm1341149504" role="bascode" localize="false" xml-lang="en-US">Sub ExampleFileAttr</paragraph>
-<paragraph id="par_idm1341148272" role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph>
-<paragraph id="par_idm1341147040" role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph>
-<paragraph id="par_idm1341145808" role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph>
-<paragraph id="par_idm1341144576" role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph>
+<paragraph id="par_idm1341148272" role="bascode" localize="false" xml-lang="en-US"> Dim iNumber As Integer</paragraph>
+<paragraph id="par_idm1341147040" role="bascode" localize="false" xml-lang="en-US"> Dim sLine As String</paragraph>
+<paragraph id="par_idm1341145808" role="bascode" localize="false" xml-lang="en-US"> Dim aFile As String</paragraph>
+<paragraph id="par_idm1341144576" role="bascode" localize="false" xml-lang="en-US"> aFile = "C:\Users\ThisUser\data.txt"</paragraph>
<paragraph id="par_idm1341143328" role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
<paragraph id="par_idm1341142096" role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph>
<paragraph id="par_id3155607" role="bascode" xml-lang="en-US"> Print #iNumber, "This is a line of text"</paragraph>
-<paragraph id="par_id3150361" role="bascode" xml-lang="en-US"> MsgBox FileAttr(#iNumber, 1 ),0,"Access mode"</paragraph>
-<paragraph id="par_id3149817" role="bascode" xml-lang="en-US"> MsgBox FileAttr(#iNumber, 2 ),0,"File attribute"</paragraph>
+<paragraph id="par_id3150361" role="bascode" xml-lang="en-US"> MsgBox FileAttr(#iNumber, 1), 0, "Access mode"</paragraph>
+<paragraph id="par_id3149817" role="bascode" xml-lang="en-US"> MsgBox FileAttr(#iNumber, 2), 0, "File attribute"</paragraph>
<paragraph id="par_idm1341135568" role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
<paragraph id="par_idm1341134336" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
</bascode>
-</body>
+<section id="relatedtopics" >
+ <embed href="text/sbasic/shared/03020101.xhp#Close_h1"/>
+ <embed href="text/sbasic/shared/03020102.xhp#FreeFile_h1"/>
+ <embed href="text/sbasic/shared/03020103.xhp#Open_h1"/>
+ <embed href="text/sbasic/shared/03010103.xhp#Print_h1"/>
+</section>
+</body>
</helpdocument>
\ No newline at end of file
diff --git a/source/text/sbasic/shared/03020410.xhp b/source/text/sbasic/shared/03020410.xhp
index bba94acb7..0c2214b17 100644
--- a/source/text/sbasic/shared/03020410.xhp
+++ b/source/text/sbasic/shared/03020410.xhp
@@ -38,23 +38,26 @@
<paragraph id="par_id3151211" role="paragraph" xml-lang="en-US">Deletes a file from a disk.</paragraph>
</section>
-<paragraph id="hd_id3150767" role="heading" level="2" xml-lang="en-US">Syntax:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functsyntax"/>
<bascode>
<paragraph id="par_id3154685" role="bascode" xml-lang="en-US">Kill File As String</paragraph>
</bascode>
-<paragraph id="hd_id3153194" role="heading" level="2" xml-lang="en-US">Parameters:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functparameters"/>
<paragraph id="par_id3150440" role="paragraph" xml-lang="en-US"> <emph>File:</emph> Any string expression that contains an unambiguous file specification. You can also use <link href="text/sbasic/shared/00000002.xhp" name="URL notation">URL notation</link>.</paragraph>
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<embed href="text/sbasic/shared/00000003.xhp#err76"/>
-<paragraph id="hd_id3148645" role="heading" level="2" xml-lang="en-US">Example:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
<bascode>
-<paragraph id="par_idm871806352" role="bascode" localize="false" xml-lang="en-US">Sub ExampleKill</paragraph>
-<paragraph id="par_id3163710" role="bascode" xml-lang="en-US"> Kill "C:\datafile.dat" ' File must be created in advance</paragraph>
-<paragraph id="par_idm871803312" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+<paragraph id="par_idm871806352" role="bascode" localize="false">Sub ExampleKill</paragraph>
+<paragraph id="par_id3163710" role="bascode" xml-lang="en-US"> Kill "C:\Users\ThisUser\datafile.dat" ' File must be created in advance</paragraph>
+<paragraph id="par_idm871803312" role="bascode" localize="false">End Sub</paragraph>
</bascode>
-</body>
+<section id="relatedtopics" >
+ <embed href="text/sbasic/shared/03020103.xhp#Open_h1"/>
+</section>
+</body>
</helpdocument>
\ No newline at end of file
diff --git a/source/text/sbasic/shared/03050500.xhp b/source/text/sbasic/shared/03050500.xhp
index 7e0e1e11a..3d1e71c39 100644
--- a/source/text/sbasic/shared/03050500.xhp
+++ b/source/text/sbasic/shared/03050500.xhp
@@ -26,20 +26,16 @@
</meta>
<body>
-
-
<section id="onerrorgotoresume">
<bookmark xml-lang="en-US" branch="index" id="bm_id3146795">
<bookmark_value>Resume Next parameter</bookmark_value>
<bookmark_value>On Error GoTo ... Resume statement</bookmark_value>
</bookmark>
-
-
<paragraph id="hd_id3146795" role="heading" level="1" xml-lang="en-US"><link href="text/sbasic/shared/03050500.xhp" name="On Error GoTo ... Resume Statement">On Error GoTo ... Resume Statement</link></paragraph>
<paragraph id="par_id3150358" role="paragraph" xml-lang="en-US">Enables an error-handling routine after an error occurs, or resumes program execution.</paragraph>
</section>
-<paragraph id="hd_id3151212" role="heading" level="2" xml-lang="en-US">Syntax:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functsyntax"/>
<paragraph role="paragraph" id="par_id491585753339474">
<image src="media/helpimg/sbasic/On-Error_statement.svg" id="img_id4156296484514"><alt xml-lang="en-US" id="alt_id15152796484514">On Error Statement diagram</alt></image>
</paragraph>
@@ -47,22 +43,22 @@
<paragraph id="par_id3145173" role="bascode" xml-lang="en-US">On [Local] Error {GoTo Labelname | GoTo 0 | Resume Next}</paragraph>
</bascode>
-<paragraph id="hd_id3154125" role="heading" level="2" xml-lang="en-US">Parameters:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functparameters"/>
<paragraph id="par_id3150869" role="paragraph" xml-lang="en-US"><emph>GoTo Labelname:</emph> If an error occurs, enables the error-handling routine that starts at the line "Labelname".</paragraph>
<paragraph id="par_id3150439" role="paragraph" xml-lang="en-US"><emph>Resume Next:</emph> If an error occurs, program execution continues with the statement that follows the statement in which the error occurred.</paragraph>
<paragraph id="par_id3149482" role="paragraph" xml-lang="en-US"><emph>GoTo 0:</emph> Disables the error handler in the current procedure.</paragraph>
<paragraph id="par_id3149483" role="paragraph" xml-lang="en-US"><emph>Local:</emph> "On error" is global in scope, and remains active until canceled by another "On error" statement. "On Local error" is local to the routine which invokes it. Local error handling overrides any previous global setting. When the invoking routine exits, the local error handling is canceled automatically, and any previous global setting is restored.</paragraph>
<paragraph id="par_id3148619" role="paragraph" xml-lang="en-US">The On Error GoTo statement is used to react to errors that occur in a macro.<comment>see i112231: The statement must be inserted at the start of a procedure (in a local error-handling routine) or at the start of a module.</comment></paragraph>
-<paragraph id="hd_id3146985" role="heading" level="2" xml-lang="en-US">Example:</paragraph>
+<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
<bascode>
<paragraph id="par_idm1341127952" role="bascode" localize="false" xml-lang="en-US">Sub ExampleReset</paragraph>
<paragraph id="par_idm1341126720" role="bascode" localize="false" xml-lang="en-US">On Error GoTo ErrorHandler</paragraph>
-<paragraph id="par_idm1341125472" role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph>
-<paragraph id="par_idm1341124240" role="bascode" localize="false" xml-lang="en-US">Dim iCount As Integer</paragraph>
-<paragraph id="par_idm1341123008" role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph>
-<paragraph id="par_idm1341121776" role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph>
-<paragraph id="par_idm1341120544" role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph>
+<paragraph id="par_idm1341125472" role="bascode" localize="false" xml-lang="en-US"> Dim iNumber As Integer</paragraph>
+<paragraph id="par_idm1341124240" role="bascode" localize="false" xml-lang="en-US"> Dim iCount As Integer</paragraph>
+<paragraph id="par_idm1341123008" role="bascode" localize="false" xml-lang="en-US"> Dim sLine As String</paragraph>
+<paragraph id="par_idm1341121776" role="bascode" localize="false" xml-lang="en-US"> Dim aFile As String</paragraph>
+<paragraph id="par_idm1341120544" role="bascode" localize="false" xml-lang="en-US"> aFile = "C:\Users\ThisUser\data.txt"</paragraph>
<paragraph id="par_idm1341119296" role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
<paragraph id="par_idm1341118064" role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph>
<paragraph id="par_id3153876" role="bascode" xml-lang="en-US"> Print #iNumber, "This is a line of text"</paragraph>
@@ -79,11 +75,12 @@
<paragraph id="par_idm1341102704" role="bascode" localize="false" xml-lang="en-US"> Exit Sub</paragraph>
<paragraph id="par_idm1341101472" role="bascode" localize="false" xml-lang="en-US">ErrorHandler:</paragraph>
<paragraph id="par_idm1341100240" role="bascode" localize="false" xml-lang="en-US"> Reset</paragraph>
-<paragraph id="par_id3146916" role="bascode" xml-lang="en-US"> MsgBox "All files will be closed",0,"Error"</paragraph>
+<paragraph id="par_id3146916" role="bascode" xml-lang="en-US"> MsgBox "All files will be closed", 0, "Error"</paragraph>
<paragraph id="par_idm1341097264" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
</bascode>
<section id="relatedtopics">
<embed href="text/sbasic/shared/03050000.xhp#ErrHandlingh1"/>
+ <embed href="text/sbasic/shared/03020103.xhp#Open_h1"/>
</section>
</body>
-</helpdocument>
\ No newline at end of file
+</helpdocument>
More information about the Libreoffice-commits
mailing list