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.l...@gmail.com>
AuthorDate: Tue Mar 30 14:20:52 2021 +0200
Commit: Olivier Hallot <olivier.hal...@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.hal...@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>
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
