diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2004-11-26 13:48:40 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2004-11-26 13:48:40 +0000 |
| commit | 087c64cd757fcd338261be1172c44511b6ac4700 (patch) | |
| tree | 24eaa00270e711bc1ca918c0ab1591f3a7f477ab | |
| parent | 76fe8a3bb74adbac403460de58ff3616f78fe22b (diff) | |
INTEGRATION: CWS helpcontentbeta (1.1.2); FILE MERGED
2004/09/16 11:45:15 fpe 1.1.2.1: Regular Update
| -rwxr-xr-x | helpcontent2/source/text/sbasic/shared/03020102.xhp | 90 | ||||
| -rw-r--r-- | helpcontent2/source/text/sbasic/shared/03020103.xhp | 95 | ||||
| -rwxr-xr-x | helpcontent2/source/text/sbasic/shared/03020104.xhp | 56 | ||||
| -rwxr-xr-x | helpcontent2/source/text/sbasic/shared/03020200.xhp | 33 | ||||
| -rwxr-xr-x | helpcontent2/source/text/sbasic/shared/03020201.xhp | 58 |
5 files changed, 167 insertions, 165 deletions
diff --git a/helpcontent2/source/text/sbasic/shared/03020102.xhp b/helpcontent2/source/text/sbasic/shared/03020102.xhp index a8ff24fef2..979090f1e3 100755 --- a/helpcontent2/source/text/sbasic/shared/03020102.xhp +++ b/helpcontent2/source/text/sbasic/shared/03020102.xhp @@ -52,58 +52,58 @@ * Contributor(s): _______________________________________ * * - ************************************************************************--><helpdocument version="1.0"> + ************************************************************************--> + +<helpdocument version="1.0"> <meta> <topic id="textsbasicshared03020102xml" indexer="include" status="PUBLISH"> -<title xml-lang="en-US" id="tit">FreeFile Function[Runtime]</title> +<title id="tit" xml-lang="en-US">FreeFile Function[Runtime]</title> <filename>/text/sbasic/shared/03020102.xhp</filename> </topic> <history> <created date="2003-10-31T00:00:00">Sun Microsystems, Inc.</created> -<lastedited date="2003-10-31T00:00:00">converted from old format - fpe</lastedited> +<lastedited date="2004-09-01T15:20:22">converted from old format - fpe</lastedited> </history> </meta> <body> - - - <section id="freefile"> - <bookmark xml-lang="en-US" branch="index" id="bm_id3150400"><bookmark_value>FreeFile;function</bookmark_value></bookmark><paragraph id="hd_id3150400" role="heading" level="1" oldref="1" l10n="U" xml-lang="en-US"><link href="text/sbasic/shared/03020102.xhp" name="FreeFile Function[Runtime]">FreeFile Function[Runtime]</link></paragraph> - <paragraph role="paragraph" id="par_id3154366" l10n="U" xml-lang="en-US" oldref="2">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 role="heading" level="2" id="hd_id3150769" l10n="U" xml-lang="en-US" oldref="3">Syntax:</paragraph> - <paragraph role="paragraph" id="par_id3150869" l10n="U" xml-lang="en-US" oldref="4">FreeFile</paragraph> - <paragraph role="heading" level="2" id="hd_id3151042" l10n="U" xml-lang="en-US" oldref="5">Return value:</paragraph> - <paragraph role="paragraph" id="par_id3150440" l10n="U" xml-lang="en-US" oldref="6">Integer</paragraph> - <paragraph role="heading" level="2" id="hd_id3148576" l10n="U" xml-lang="en-US" oldref="7">Parameters:</paragraph> - <paragraph role="paragraph" id="par_id3155854" l10n="U" xml-lang="en-US" oldref="8">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 role="heading" level="2" id="hd_id3159153" l10n="U" xml-lang="en-US" oldref="9">Example:</paragraph> - <paragraph role="paragraph" id="par_id3146120" l10n="U" xml-lang="en-US" oldref="10">Sub ExampleWorkWithAFile</paragraph> - <paragraph role="paragraph" id="par_id3154319" l10n="U" xml-lang="en-US" oldref="11">Dim iNumber As Integer</paragraph> - <paragraph role="paragraph" id="par_id3151117" l10n="U" xml-lang="en-US" oldref="12">Dim sLine As String</paragraph> - <paragraph role="paragraph" id="par_id3147426" l10n="U" xml-lang="en-US" oldref="13">Dim aFile As String</paragraph> - <paragraph role="paragraph" id="par_id3149667" l10n="U" xml-lang="en-US" oldref="36">Dim sMsg as String</paragraph> - <paragraph role="paragraph" id="par_id3145800" l10n="U" xml-lang="en-US" oldref="14">aFile = "c:\data.txt"</paragraph> - <paragraph role="paragraph" id="par_id3147396" l10n="U" xml-lang="en-US" oldref="15">sMsg = = ""</paragraph> - <paragraph role="paragraph" id="par_id3154490" l10n="U" xml-lang="en-US" oldref="16">iNumber = Freefile</paragraph> - <paragraph role="paragraph" id="par_id3151074" l10n="U" xml-lang="en-US" oldref="17">Open aFile For Output As #iNumber</paragraph> - <paragraph role="paragraph" id="par_id3155416" l10n="U" xml-lang="en-US" oldref="18">Print #iNumber, "First line of text"</paragraph> - <paragraph role="paragraph" id="par_id3153416" l10n="U" xml-lang="en-US" oldref="19">Print #iNumber, "Another line of text"</paragraph> - <paragraph role="paragraph" id="par_id3149401" l10n="U" xml-lang="en-US" oldref="20">Close #iNumber</paragraph> - - <paragraph role="paragraph" id="par_id3150330" l10n="U" xml-lang="en-US" oldref="24">iNumber = Freefile</paragraph> - <paragraph role="paragraph" id="par_id3155067" l10n="U" xml-lang="en-US" oldref="25">Open aFile For Input As #iNumber</paragraph> - <paragraph role="paragraph" id="par_id3155443" l10n="U" xml-lang="en-US" oldref="26">While not eof(#iNumber)</paragraph> - <paragraph role="paragraph" id="par_id3153714" l10n="U" xml-lang="en-US" oldref="27">Line Input #iNumber, sLine</paragraph> - <paragraph role="paragraph" id="par_id3148408" l10n="U" xml-lang="en-US" oldref="28">If sLine <>"" then</paragraph> - <paragraph role="paragraph" id="par_id3156385" l10n="U" xml-lang="en-US" oldref="29">sMsg = sMsg & sLine & chr(13)</paragraph> - <paragraph role="paragraph" id="par_id3145147" l10n="U" xml-lang="en-US" oldref="31">end if</paragraph> - <paragraph role="paragraph" id="par_id3153966" l10n="U" xml-lang="en-US" oldref="32">wend</paragraph> - <paragraph role="paragraph" id="par_id3155961" l10n="U" xml-lang="en-US" oldref="33">Close #iNumber</paragraph> - <paragraph role="paragraph" id="par_id3149567" l10n="U" xml-lang="en-US" oldref="37">Msgbox sMsg</paragraph> - <paragraph role="paragraph" id="par_id3146917" l10n="U" xml-lang="en-US" oldref="34">End Sub</paragraph> - - </body> +<section id="freefile"> +<bookmark xml-lang="en-US" branch="index" id="bm_id3150400"><bookmark_value>FreeFile function</bookmark_value> +</bookmark> +<paragraph role="heading" id="hd_id3150400" xml-lang="en-US" level="1" l10n="U" oldref="1"><link href="text/sbasic/shared/03020102.xhp" name="FreeFile Function[Runtime]">FreeFile Function[Runtime]</link></paragraph> +<paragraph role="paragraph" id="par_id3154366" xml-lang="en-US" l10n="U" oldref="2">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 role="heading" id="hd_id3150769" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> +<paragraph role="code" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="4">FreeFile</paragraph> +<paragraph role="heading" id="hd_id3151042" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> +<paragraph role="paragraph" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> +<paragraph role="heading" id="hd_id3148576" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> +<paragraph role="paragraph" id="par_id3155854" xml-lang="en-US" l10n="U" oldref="8">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 role="heading" id="hd_id3159153" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> +<paragraph role="code" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleWorkWithAFile</paragraph> +<paragraph role="code" id="par_id3154319" xml-lang="en-US" l10n="U" oldref="11">Dim iNumber As Integer</paragraph> +<paragraph role="code" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="12">Dim sLine As String</paragraph> +<paragraph role="code" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="13">Dim aFile As String</paragraph> +<paragraph role="code" id="par_id3149667" xml-lang="en-US" l10n="U" oldref="36">Dim sMsg as String</paragraph> +<paragraph role="code" id="par_id3145800" xml-lang="en-US" l10n="U" oldref="14">aFile = "c:\data.txt"</paragraph> +<paragraph role="code" id="par_id3147396" xml-lang="en-US" l10n="U" oldref="15">sMsg = = ""</paragraph> +<paragraph role="code" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="16">iNumber = Freefile</paragraph> +<paragraph role="code" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="17">Open aFile For Output As #iNumber</paragraph> +<paragraph role="code" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="18">Print #iNumber, "First line of text"</paragraph> +<paragraph role="code" id="par_id3153416" xml-lang="en-US" l10n="U" oldref="19">Print #iNumber, "Another line of text"</paragraph> +<paragraph role="code" id="par_id3149401" xml-lang="en-US" l10n="U" oldref="20">Close #iNumber</paragraph> +<paragraph role="code" id="par_id3150330" xml-lang="en-US" l10n="U" oldref="24">iNumber = Freefile</paragraph> +<paragraph role="code" id="par_id3155067" xml-lang="en-US" l10n="U" oldref="25">Open aFile For Input As #iNumber</paragraph> +<paragraph role="code" id="par_id3155443" xml-lang="en-US" l10n="U" oldref="26">While not eof(#iNumber)</paragraph> +<paragraph role="code" id="par_id3153714" xml-lang="en-US" l10n="U" oldref="27">Line Input #iNumber, sLine</paragraph> +<paragraph role="code" id="par_id3148408" xml-lang="en-US" l10n="U" oldref="28">If sLine <>"" then</paragraph> +<paragraph role="code" id="par_id3156385" xml-lang="en-US" l10n="U" oldref="29">sMsg = sMsg & sLine & chr(13)</paragraph> +<paragraph role="code" id="par_id3145147" xml-lang="en-US" l10n="U" oldref="31">end if</paragraph> +<paragraph role="code" id="par_id3153966" xml-lang="en-US" l10n="U" oldref="32">wend</paragraph> +<paragraph role="code" id="par_id3155961" xml-lang="en-US" l10n="U" oldref="33">Close #iNumber</paragraph> +<paragraph role="code" id="par_id3149567" xml-lang="en-US" l10n="U" oldref="37">Msgbox sMsg</paragraph> +<paragraph role="code" id="par_id3146917" xml-lang="en-US" l10n="U" oldref="34">End Sub</paragraph> +</body> </helpdocument> diff --git a/helpcontent2/source/text/sbasic/shared/03020103.xhp b/helpcontent2/source/text/sbasic/shared/03020103.xhp index 1bab125cd9..b148ba3cea 100644 --- a/helpcontent2/source/text/sbasic/shared/03020103.xhp +++ b/helpcontent2/source/text/sbasic/shared/03020103.xhp @@ -53,60 +53,63 @@ * * ************************************************************************--> + <helpdocument version="1.0"> <meta> <topic id="textsbasicshared03020103xml" indexer="include" status="PUBLISH"> -<title xml-lang="en-US" id="tit">Open Statement[Runtime]</title> +<title id="tit" xml-lang="en-US">Open Statement[Runtime]</title> <filename>/text/sbasic/shared/03020103.xhp</filename> </topic> <history> <created date="2003-10-31T00:00:00">Sun Microsystems, Inc.</created> -<lastedited date="2003-10-31T00:00:00">converted from old format - fpe</lastedited> +<lastedited date="2004-09-01T15:20:37">converted from old format - fpe</lastedited> </history> </meta> <body> - - - <section id="open"> - <bookmark xml-lang="en-US" branch="index" id="bm_id3150791"><bookmark_value>Open;statement</bookmark_value></bookmark><paragraph id="hd_id3150791" role="heading" level="1" oldref="1" l10n="U" xml-lang="en-US"><link href="text/sbasic/shared/03020103.xhp" name="Open Statement[Runtime]">Open Statement[Runtime]</link></paragraph> - <paragraph role="paragraph" id="par_id3150769" l10n="U" xml-lang="en-US" oldref="2">Opens a data channel.</paragraph> - </section> - <paragraph role="heading" level="2" id="hd_id3147230" l10n="U" xml-lang="en-US" oldref="3">Syntax:</paragraph> - <paragraph role="paragraph" id="par_id3154124" l10n="U" xml-lang="en-US" oldref="4">Open FileName As String [For Modus] [Access IOMode] [protected] As [#]FileName As Integer [Len = Datasetlength]</paragraph> - <paragraph role="heading" level="2" id="hd_id3156280" l10n="U" xml-lang="en-US" oldref="5">Parameters:</paragraph> - <paragraph l10n="U" role="paragraph" id="par_id3155132" xml-lang="en-US" oldref="6"><emph>FileName: </emph>Name and path of the file that you wan to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does exist (Access = Write), a new file is created.</paragraph> - <paragraph l10n="U" role="paragraph" id="par_id3149262" xml-lang="en-US" oldref="7"><emph>Mode:</emph> Keyword that specifies the file mode. Valid values: Append (append to sequential file), binary (data can be accessed by bytes using Get and Put), Input (opens data channel for reading), Output (opens data channel for writing), and Random (edits relative files).</paragraph> - <paragraph l10n="U" role="paragraph" id="par_id3154014" xml-lang="en-US" oldref="8"><emph>Access:</emph> Keyword that defines the access type. Valid values: Read (read-only), Write (write-only), Read Write (both).</paragraph> - <paragraph l10n="U" role="paragraph" id="par_id3150011" xml-lang="en-US" oldref="9"><emph>Protected:</emph> Keyword that defines the security status of a file after opening. Valid values: Shared (file may be opened by other applications), Lock Read (file is protected against reading), Lock Write (file is protected against writing), Lock Read Write (denies file access).</paragraph> - <paragraph l10n="U" role="paragraph" id="par_id3153190" xml-lang="en-US" oldref="10"><emph>FileNumber:</emph> Any integer expression from 0 to 511 to indicate the number of a free data channel. You can then pass commands through the data channel to access the file. The file number must be determined by the FreeFile function immediately before the Open statement.</paragraph> - <paragraph l10n="U" role="paragraph" id="par_id3151115" xml-lang="en-US" oldref="11"><emph>DatasetLength:</emph> For relative files, returns the length of a certain record. This parameter is only necessary if the file was opened for Random access.</paragraph> - <paragraph role="note" id="par_id3153418" l10n="U" xml-lang="en-US" oldref="12">You can only modify the contents of a file that was opened with the Open statement. If you try to open a file that is already open, an error message appears.</paragraph> - <paragraph role="heading" level="2" id="hd_id3149123" l10n="U" xml-lang="en-US" oldref="13">Example:</paragraph> - <paragraph role="paragraph" id="par_id3150749" l10n="U" xml-lang="en-US" oldref="14">Sub ExampleWorkWithAFile</paragraph> - <paragraph role="paragraph" id="par_id3155064" l10n="U" xml-lang="en-US" oldref="15">Dim iNumber As Integer</paragraph> - <paragraph role="paragraph" id="par_id3154754" l10n="U" xml-lang="en-US" oldref="16">Dim sLine As String</paragraph> - <paragraph role="paragraph" id="par_id3153711" l10n="U" xml-lang="en-US" oldref="17">Dim aFile As String</paragraph> - <paragraph role="paragraph" id="par_id3155764" l10n="U" xml-lang="en-US" oldref="40">Dim sMsg as String</paragraph> - <paragraph role="paragraph" id="par_id3159264" l10n="U" xml-lang="en-US" oldref="18">aFile = "c:\data.txt"</paragraph> - - <paragraph role="paragraph" id="par_id3153963" l10n="U" xml-lang="en-US" oldref="20">iNumber = Freefile</paragraph> - <paragraph role="paragraph" id="par_id3155959" l10n="U" xml-lang="en-US" oldref="21">Open aFile For Output As #iNumber</paragraph> - <paragraph role="paragraph" id="par_id3154705" l10n="U" xml-lang="en-US" oldref="22">Print #iNumber, "This is a line of text"</paragraph> - <paragraph role="paragraph" id="par_id3146916" l10n="U" xml-lang="en-US" oldref="23">Print #iNumber, "This is another line of text"</paragraph> - <paragraph role="paragraph" id="par_id3150942" l10n="U" xml-lang="en-US" oldref="24">Close #iNumber</paragraph> - - <paragraph role="paragraph" id="par_id3150300" l10n="U" xml-lang="en-US" oldref="28">iNumber = Freefile</paragraph> - <paragraph role="paragraph" id="par_id3154022" l10n="U" xml-lang="en-US" oldref="29">Open aFile For Input As iNumber</paragraph> - <paragraph role="paragraph" id="par_id3150783" l10n="U" xml-lang="en-US" oldref="30">While not eof(iNumber)</paragraph> - <paragraph role="paragraph" id="par_id3153270" l10n="U" xml-lang="en-US" oldref="31">Line Input #iNumber, sLine</paragraph> - <paragraph role="paragraph" id="par_id3153784" l10n="U" xml-lang="en-US" oldref="32">If sLine <>"" then</paragraph> - <paragraph role="paragraph" id="par_id3149208" l10n="U" xml-lang="en-US" oldref="33">sMsg = sMsg & sLine & chr(13)</paragraph> - <paragraph role="paragraph" id="par_id3150304" l10n="U" xml-lang="en-US" oldref="35">end if</paragraph> - <paragraph role="paragraph" id="par_id3151217" l10n="U" xml-lang="en-US" oldref="36">wend</paragraph> - <paragraph role="paragraph" id="par_id3152582" l10n="U" xml-lang="en-US" oldref="37">Close #iNumber</paragraph> - <paragraph role="paragraph" id="par_id3159100" l10n="U" xml-lang="en-US" oldref="41">Msgbox sMsg</paragraph> - <paragraph role="paragraph" id="par_id3159091" l10n="U" xml-lang="en-US" oldref="38">End Sub</paragraph> - - - </body> +<section id="open"> +<bookmark xml-lang="en-US" branch="index" id="bm_id3150791"><bookmark_value>Open statement</bookmark_value> +</bookmark> +<paragraph role="heading" id="hd_id3150791" xml-lang="en-US" level="1" l10n="U" oldref="1"><link href="text/sbasic/shared/03020103.xhp" name="Open Statement[Runtime]">Open Statement[Runtime]</link></paragraph> +<paragraph role="paragraph" id="par_id3150769" xml-lang="en-US" l10n="U" oldref="2">Opens a data channel.</paragraph> +</section> +<paragraph role="heading" id="hd_id3147230" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> +<paragraph role="code" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="4">Open FileName As String [For Modus] [Access IOMode] [protected] As [#]FileName As Integer [Len = Datasetlength]</paragraph> +<paragraph role="heading" id="hd_id3156280" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> +<paragraph role="paragraph" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="6"> +<emph>FileName: </emph>Name and path of the file that you wan to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does exist (Access = Write), a new file is created.</paragraph> +<paragraph role="paragraph" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="7"> +<emph>Mode:</emph> Keyword that specifies the file mode. Valid values: Append (append to sequential file), binary (data can be accessed by bytes using Get and Put), Input (opens data channel for reading), Output (opens data channel for writing), and Random (edits relative files).</paragraph> +<paragraph role="paragraph" id="par_id3154014" xml-lang="en-US" l10n="U" oldref="8"> +<emph>Access:</emph> Keyword that defines the access type. Valid values: Read (read-only), Write (write-only), Read Write (both).</paragraph> +<paragraph role="paragraph" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="9"> +<emph>Protected:</emph> Keyword that defines the security status of a file after opening. Valid values: Shared (file may be opened by other applications), Lock Read (file is protected against reading), Lock Write (file is protected against writing), Lock Read Write (denies file access).</paragraph> +<paragraph role="paragraph" id="par_id3153190" xml-lang="en-US" l10n="U" oldref="10"> +<emph>FileNumber:</emph> Any integer expression from 0 to 511 to indicate the number of a free data channel. You can then pass commands through the data channel to access the file. The file number must be determined by the FreeFile function immediately before the Open statement.</paragraph> +<paragraph role="paragraph" id="par_id3151115" xml-lang="en-US" l10n="U" oldref="11"> +<emph>DatasetLength:</emph> For relative files, returns the length of a certain record. This parameter is only necessary if the file was opened for Random access.</paragraph> +<paragraph role="note" id="par_id3153418" xml-lang="en-US" l10n="U" oldref="12">You can only modify the contents of a file that was opened with the Open statement. If you try to open a file that is already open, an error message appears.</paragraph> +<paragraph role="heading" id="hd_id3149123" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph> +<paragraph role="code" id="par_id3150749" xml-lang="en-US" l10n="U" oldref="14">Sub ExampleWorkWithAFile</paragraph> +<paragraph role="code" id="par_id3155064" xml-lang="en-US" l10n="U" oldref="15">Dim iNumber As Integer</paragraph> +<paragraph role="code" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="16">Dim sLine As String</paragraph> +<paragraph role="code" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="17">Dim aFile As String</paragraph> +<paragraph role="code" id="par_id3155764" xml-lang="en-US" l10n="U" oldref="40">Dim sMsg as String</paragraph> +<paragraph role="code" id="par_id3159264" xml-lang="en-US" l10n="U" oldref="18">aFile = "c:\data.txt"</paragraph> +<paragraph role="code" id="par_id3153963" xml-lang="en-US" l10n="U" oldref="20">iNumber = Freefile</paragraph> +<paragraph role="code" id="par_id3155959" xml-lang="en-US" l10n="U" oldref="21">Open aFile For Output As #iNumber</paragraph> +<paragraph role="code" id="par_id3154705" xml-lang="en-US" l10n="U" oldref="22">Print #iNumber, "This is a line of text"</paragraph> +<paragraph role="code" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="23">Print #iNumber, "This is another line of text"</paragraph> +<paragraph role="code" id="par_id3150942" xml-lang="en-US" l10n="U" oldref="24">Close #iNumber</paragraph> +<paragraph role="code" id="par_id3150300" xml-lang="en-US" l10n="U" oldref="28">iNumber = Freefile</paragraph> +<paragraph role="code" id="par_id3154022" xml-lang="en-US" l10n="U" oldref="29">Open aFile For Input As iNumber</paragraph> +<paragraph role="code" id="par_id3150783" xml-lang="en-US" l10n="U" oldref="30">While not eof(iNumber)</paragraph> +<paragraph role="code" id="par_id3153270" xml-lang="en-US" l10n="U" oldref="31">Line Input #iNumber, sLine</paragraph> +<paragraph role="code" id="par_id3153784" xml-lang="en-US" l10n="U" oldref="32">If sLine <>"" then</paragraph> +<paragraph role="code" id="par_id3149208" xml-lang="en-US" l10n="U" oldref="33">sMsg = sMsg & sLine & chr(13)</paragraph> +<paragraph role="code" id="par_id3150304" xml-lang="en-US" l10n="U" oldref="35">end if</paragraph> +<paragraph role="code" id="par_id3151217" xml-lang="en-US" l10n="U" oldref="36">wend</paragraph> +<paragraph role="code" id="par_id3152582" xml-lang="en-US" l10n="U" oldref="37">Close #iNumber</paragraph> +<paragraph role="code" id="par_id3159100" xml-lang="en-US" l10n="U" oldref="41">Msgbox sMsg</paragraph> +<paragraph role="code" id="par_id3159091" xml-lang="en-US" l10n="U" oldref="38">End Sub</paragraph> +</body> </helpdocument> diff --git a/helpcontent2/source/text/sbasic/shared/03020104.xhp b/helpcontent2/source/text/sbasic/shared/03020104.xhp index f12b91a082..393ce008cc 100755 --- a/helpcontent2/source/text/sbasic/shared/03020104.xhp +++ b/helpcontent2/source/text/sbasic/shared/03020104.xhp @@ -62,43 +62,43 @@ </topic> <history> <created date="2003-10-31T00:00:00">Sun Microsystems, Inc.</created> -<lastedited date="2004-05-12T14:32:59">converted from old format - fpe</lastedited> +<lastedited date="2004-09-01T15:21:04">converted from old format - fpe</lastedited> </history> </meta> <body> <section id="reset"> -<bookmark xml-lang="en-US" branch="index" id="bm_id3154141"><bookmark_value>Reset;statement</bookmark_value> +<bookmark xml-lang="en-US" branch="index" id="bm_id3154141"><bookmark_value>Reset statement</bookmark_value> </bookmark> <paragraph role="heading" id="hd_id3154141" xml-lang="en-US" level="1" l10n="U" oldref="1"><link href="text/sbasic/shared/03020104.xhp">Reset Statement [Runtime]</link></paragraph> <paragraph role="paragraph" id="par_id3156423" xml-lang="en-US" l10n="U" oldref="2">Closes all open files and writes the contents of all file buffers to the harddisk.</paragraph> </section> <paragraph role="heading" id="hd_id3154124" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="4">Reset</paragraph> +<paragraph role="code" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="4">Reset</paragraph> <paragraph role="heading" id="hd_id3161831" xml-lang="en-US" level="2" l10n="U" oldref="5">Example:</paragraph> -<paragraph role="paragraph" id="par_id3151113" xml-lang="en-US" l10n="U" oldref="37">Sub ExampleReset</paragraph> -<paragraph role="paragraph" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="38">On Error Goto ErrorHandler</paragraph> -<paragraph role="paragraph" id="par_id3153093" xml-lang="en-US" l10n="U" oldref="39">Dim iNumber As Integer</paragraph> -<paragraph role="paragraph" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="40">Dim iCount As Integer</paragraph> -<paragraph role="paragraph" id="par_id3153363" xml-lang="en-US" l10n="U" oldref="41">Dim sLine As String</paragraph> -<paragraph role="paragraph" id="par_id3154320" xml-lang="en-US" l10n="U" oldref="42">Dim aFile As String</paragraph> -<paragraph role="paragraph" id="par_id3163712" xml-lang="en-US" l10n="U" oldref="43">aFile = "c:\data.txt"</paragraph> -<paragraph role="paragraph" id="par_id3146121" xml-lang="en-US" l10n="U" oldref="45">iNumber = Freefile</paragraph> -<paragraph role="paragraph" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="46">Open aFile For Output As #iNumber</paragraph> -<paragraph role="paragraph" id="par_id3148455" xml-lang="en-US" l10n="U" oldref="47">Print #iNumber, "This is a new line of text"</paragraph> -<paragraph role="paragraph" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="48">Close #iNumber</paragraph> -<paragraph role="paragraph" id="par_id3149410" xml-lang="en-US" l10n="U" oldref="50">iNumber = Freefile</paragraph> -<paragraph role="paragraph" id="par_id3147126" xml-lang="en-US" l10n="U" oldref="51">Open aFile For Input As iNumber</paragraph> -<paragraph role="paragraph" id="par_id3154510" xml-lang="en-US" l10n="U" oldref="52">For iCount = 1 to 5</paragraph> -<paragraph role="paragraph" id="par_id3146971" xml-lang="en-US" l10n="U" oldref="53">Line Input #iNumber, sLine</paragraph> -<paragraph role="paragraph" id="par_id3156277" xml-lang="en-US" l10n="U" oldref="54">If sLine <>"" then</paragraph> -<paragraph role="paragraph" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="55">rem</paragraph> -<paragraph role="paragraph" id="par_id3150322" xml-lang="en-US" l10n="U" oldref="56">end if</paragraph> -<paragraph role="paragraph" id="par_id3148405" xml-lang="en-US" l10n="U" oldref="57">Next iCount</paragraph> -<paragraph role="paragraph" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="58">Close #iNumber</paragraph> -<paragraph role="paragraph" id="par_id3156382" xml-lang="en-US" l10n="U" oldref="59">Exit Sub</paragraph> -<paragraph role="paragraph" id="par_id3159264" xml-lang="en-US" l10n="U" oldref="60">ErrorHandler:</paragraph> -<paragraph role="paragraph" id="par_id3145147" xml-lang="en-US" l10n="U" oldref="61">Reset</paragraph> -<paragraph role="paragraph" id="par_id3163805" xml-lang="en-US" l10n="U" oldref="62">MsgBox "All files will be closed",0,"Error"</paragraph> -<paragraph role="paragraph" id="par_id3147364" xml-lang="en-US" l10n="U" oldref="63">End Sub</paragraph> +<paragraph role="code" id="par_id3151113" xml-lang="en-US" l10n="U" oldref="37">Sub ExampleReset</paragraph> +<paragraph role="code" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="38">On Error Goto ErrorHandler</paragraph> +<paragraph role="code" id="par_id3153093" xml-lang="en-US" l10n="U" oldref="39">Dim iNumber As Integer</paragraph> +<paragraph role="code" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="40">Dim iCount As Integer</paragraph> +<paragraph role="code" id="par_id3153363" xml-lang="en-US" l10n="U" oldref="41">Dim sLine As String</paragraph> +<paragraph role="code" id="par_id3154320" xml-lang="en-US" l10n="U" oldref="42">Dim aFile As String</paragraph> +<paragraph role="code" id="par_id3163712" xml-lang="en-US" l10n="U" oldref="43">aFile = "c:\data.txt"</paragraph> +<paragraph role="code" id="par_id3146121" xml-lang="en-US" l10n="U" oldref="45">iNumber = Freefile</paragraph> +<paragraph role="code" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="46">Open aFile For Output As #iNumber</paragraph> +<paragraph role="code" id="par_id3148455" xml-lang="en-US" l10n="U" oldref="47">Print #iNumber, "This is a new line of text"</paragraph> +<paragraph role="code" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="48">Close #iNumber</paragraph> +<paragraph role="code" id="par_id3149410" xml-lang="en-US" l10n="U" oldref="50">iNumber = Freefile</paragraph> +<paragraph role="code" id="par_id3147126" xml-lang="en-US" l10n="U" oldref="51">Open aFile For Input As iNumber</paragraph> +<paragraph role="code" id="par_id3154510" xml-lang="en-US" l10n="U" oldref="52">For iCount = 1 to 5</paragraph> +<paragraph role="code" id="par_id3146971" xml-lang="en-US" l10n="U" oldref="53">Line Input #iNumber, sLine</paragraph> +<paragraph role="code" id="par_id3156277" xml-lang="en-US" l10n="U" oldref="54">If sLine <>"" then</paragraph> +<paragraph role="code" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="55">rem</paragraph> +<paragraph role="code" id="par_id3150322" xml-lang="en-US" l10n="U" oldref="56">end if</paragraph> +<paragraph role="code" id="par_id3148405" xml-lang="en-US" l10n="U" oldref="57">Next iCount</paragraph> +<paragraph role="code" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="58">Close #iNumber</paragraph> +<paragraph role="code" id="par_id3156382" xml-lang="en-US" l10n="U" oldref="59">Exit Sub</paragraph> +<paragraph role="code" id="par_id3159264" xml-lang="en-US" l10n="U" oldref="60">ErrorHandler:</paragraph> +<paragraph role="code" id="par_id3145147" xml-lang="en-US" l10n="U" oldref="61">Reset</paragraph> +<paragraph role="code" id="par_id3163805" xml-lang="en-US" l10n="U" oldref="62">MsgBox "All files will be closed",0,"Error"</paragraph> +<paragraph role="code" id="par_id3147364" xml-lang="en-US" l10n="U" oldref="63">End Sub</paragraph> </body> </helpdocument> diff --git a/helpcontent2/source/text/sbasic/shared/03020200.xhp b/helpcontent2/source/text/sbasic/shared/03020200.xhp index d6621fdb47..5c6a798072 100755 --- a/helpcontent2/source/text/sbasic/shared/03020200.xhp +++ b/helpcontent2/source/text/sbasic/shared/03020200.xhp @@ -52,30 +52,29 @@ * Contributor(s): _______________________________________ * * - ************************************************************************--><helpdocument version="1.0"> + ************************************************************************--> + +<helpdocument version="1.0"> <meta> <topic id="textsbasicshared03020200xml" indexer="include" status="PUBLISH"> -<title xml-lang="en-US" id="tit">Input/Output</title> +<title id="tit" xml-lang="en-US">Input/Output</title> <filename>/text/sbasic/shared/03020200.xhp</filename> </topic> <history> <created date="2003-10-31T00:00:00">Sun Microsystems, Inc.</created> -<lastedited date="2003-10-31T00:00:00">converted from old format - fpe</lastedited> +<lastedited date="2004-09-01T15:21:54">converted from old format - fpe</lastedited> </history> </meta> <body> - - - <section id="eingabeeinaus"> - <paragraph id="hd_id3150791" role="heading" level="1" oldref="1" l10n="U" xml-lang="en-US"><link href="text/sbasic/shared/03020200.xhp" name="Input/Output">Input/Output</link></paragraph> - <paragraph role="paragraph" id="par_id3150542" l10n="U" xml-lang="en-US" oldref="2">The following are file input/output functions.</paragraph> - </section> - <embed href="text/sbasic/shared/03020201.xhp#get"/> - <embed href="text/sbasic/shared/03020202.xhp#input"/> - <embed href="text/sbasic/shared/03020203.xhp#lineinput"/> - <embed href="text/sbasic/shared/03020204.xhp#put"/> - <embed href="text/sbasic/shared/03020205.xhp#write"/> - <embed href="text/sbasic/shared/03020302.xhp#loc"/> - <embed href="text/sbasic/shared/03020304.xhp#seek"/> - </body> +<section id="eingabeeinaus"> +<paragraph role="heading" id="hd_id3150791" xml-lang="en-US" level="1" l10n="U" oldref="1"><link href="text/sbasic/shared/03020200.xhp" name="Input/Output">File Input/Output Functions</link></paragraph> +</section> +<embed href="text/sbasic/shared/03020201.xhp#get"/> +<embed href="text/sbasic/shared/03020202.xhp#input"/> +<embed href="text/sbasic/shared/03020203.xhp#lineinput"/> +<embed href="text/sbasic/shared/03020204.xhp#put"/> +<embed href="text/sbasic/shared/03020205.xhp#write"/> +<embed href="text/sbasic/shared/03020302.xhp#loc"/> +<embed href="text/sbasic/shared/03020304.xhp#seek"/> +</body> </helpdocument> diff --git a/helpcontent2/source/text/sbasic/shared/03020201.xhp b/helpcontent2/source/text/sbasic/shared/03020201.xhp index 658407ccd4..507695c862 100755 --- a/helpcontent2/source/text/sbasic/shared/03020201.xhp +++ b/helpcontent2/source/text/sbasic/shared/03020201.xhp @@ -62,19 +62,19 @@ </topic> <history> <created date="2003-10-31T00:00:00">Sun Microsystems, Inc.</created> -<lastedited date="2004-05-12T14:34:06">converted from old format - fpe</lastedited> +<lastedited date="2004-09-01T15:22:37">converted from old format - fpe</lastedited> </history> </meta> <body> <section id="get"> -<bookmark xml-lang="en-US" branch="index" id="bm_id3154927"><bookmark_value>Get;statement</bookmark_value> +<bookmark xml-lang="en-US" branch="index" id="bm_id3154927"><bookmark_value>Get statement</bookmark_value> </bookmark> <paragraph role="heading" id="hd_id3154927" xml-lang="en-US" level="1" l10n="U" oldref="1"><link href="text/sbasic/shared/03020201.xhp">Get Statement [Runtime]</link></paragraph> <paragraph role="paragraph" id="par_id3145069" xml-lang="en-US" l10n="U" oldref="2">Reads a record from a relative file, or a sequence of bytes from a binary file, into a variable.</paragraph> </section> -<paragraph role="paragraph" id="par_id3154346" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03020204.xhp" name="PUT">PUT</link> Statement</paragraph> +<paragraph role="paragraph" id="par_id3154346" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03020204.xhp" name="PUT"><item type="literal">PUT</item></link> Statement</paragraph> <paragraph role="heading" id="hd_id3150358" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="5">Get [#] FileNumber As Integer, [Position], Variable</paragraph> +<paragraph role="code" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="5">Get [#] FileNumber As Integer, [Position], Variable</paragraph> <paragraph role="heading" id="hd_id3154138" xml-lang="en-US" level="2" l10n="U" oldref="6">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="7"> <emph>FileNumber:</emph> Any integer expression that determines the file number.</paragraph> @@ -84,30 +84,30 @@ <paragraph role="paragraph" id="par_id3147319" xml-lang="en-US" l10n="U" oldref="10">If <emph>Position</emph> is omitted, the current position or the current data record of the file is used.</paragraph> <paragraph role="paragraph" id="par_id3149484" xml-lang="en-US" l10n="U" oldref="11">Variable: Name of the variable to be read. With the exception of object variables, you can use any variable type.</paragraph> <paragraph role="heading" id="hd_id3153144" xml-lang="en-US" level="2" l10n="U" oldref="12">Example:</paragraph> -<paragraph role="paragraph" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleRandomAccess</paragraph> -<paragraph role="paragraph" id="par_id3153188" xml-lang="en-US" l10n="U" oldref="14">Dim iNumber As Integer</paragraph> -<paragraph role="paragraph" id="par_id3155307" xml-lang="en-US" l10n="U" oldref="15">Dim sText As Variant REM Must be a variant</paragraph> -<paragraph role="paragraph" id="par_id3152577" xml-lang="en-US" l10n="U" oldref="16">Dim aFile As String</paragraph> -<paragraph role="paragraph" id="par_id3153726" xml-lang="en-US" l10n="U" oldref="17">aFile = "c:\data.txt"</paragraph> -<paragraph role="paragraph" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="19">iNumber = Freefile</paragraph> -<paragraph role="paragraph" id="par_id3150418" xml-lang="en-US" l10n="U" oldref="20">Open aFile For Random As #iNumber Len=32</paragraph> -<paragraph role="paragraph" id="par_id3149411" xml-lang="en-US" l10n="U" oldref="21">Seek #iNumber,1 REM Position at beginning</paragraph> -<paragraph role="paragraph" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="22">Put #iNumber,, "This is the first line of text" REM Fill line with text</paragraph> -<paragraph role="paragraph" id="par_id3148457" xml-lang="en-US" l10n="U" oldref="23">Put #iNumber,, "This is the second line of text"</paragraph> -<paragraph role="paragraph" id="par_id3150715" xml-lang="en-US" l10n="U" oldref="24">Put #iNumber,, "This is the third line of text"</paragraph> -<paragraph role="paragraph" id="par_id3153836" xml-lang="en-US" l10n="U" oldref="25">Seek #iNumber,2</paragraph> -<paragraph role="paragraph" id="par_id3150327" xml-lang="en-US" l10n="U" oldref="26">Get #iNumber,,sText</paragraph> -<paragraph role="paragraph" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="27">Print sText</paragraph> -<paragraph role="paragraph" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="28">Close #iNumber</paragraph> -<paragraph role="paragraph" id="par_id3153715" xml-lang="en-US" l10n="U" oldref="30">iNumber = Freefile</paragraph> -<paragraph role="paragraph" id="par_id3154256" xml-lang="en-US" l10n="U" oldref="31">Open aFile For Random As #iNumber Len=32</paragraph> -<paragraph role="paragraph" id="par_id3147340" xml-lang="en-US" l10n="U" oldref="32">Get #iNumber,2,sText</paragraph> -<paragraph role="paragraph" id="par_id3155938" xml-lang="en-US" l10n="U" oldref="33">Put #iNumber,,"This is a new text"</paragraph> -<paragraph role="paragraph" id="par_id3155959" xml-lang="en-US" l10n="U" oldref="34">Get #iNumber,1,sText</paragraph> -<paragraph role="paragraph" id="par_id3147361" xml-lang="en-US" l10n="U" oldref="35">Get #iNumber,2,sText</paragraph> -<paragraph role="paragraph" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="36">Put #iNumber,20,"This is the text in record 20"</paragraph> -<paragraph role="paragraph" id="par_id3149259" xml-lang="en-US" l10n="U" oldref="37">Print Lof(#iNumber)</paragraph> -<paragraph role="paragraph" id="par_id3153790" xml-lang="en-US" l10n="U" oldref="38">Close #iNumber</paragraph> -<paragraph role="paragraph" id="par_id3155606" xml-lang="en-US" l10n="U" oldref="40">end sub</paragraph> +<paragraph role="code" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleRandomAccess</paragraph> +<paragraph role="code" id="par_id3153188" xml-lang="en-US" l10n="U" oldref="14">Dim iNumber As Integer</paragraph> +<paragraph role="code" id="par_id3155307" xml-lang="en-US" l10n="U" oldref="15">Dim sText As Variant REM Must be a variant</paragraph> +<paragraph role="code" id="par_id3152577" xml-lang="en-US" l10n="U" oldref="16">Dim aFile As String</paragraph> +<paragraph role="code" id="par_id3153726" xml-lang="en-US" l10n="U" oldref="17">aFile = "c:\data.txt"</paragraph> +<paragraph role="code" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="19">iNumber = Freefile</paragraph> +<paragraph role="code" id="par_id3150418" xml-lang="en-US" l10n="U" oldref="20">Open aFile For Random As #iNumber Len=32</paragraph> +<paragraph role="code" id="par_id3149411" xml-lang="en-US" l10n="U" oldref="21">Seek #iNumber,1 REM Position at beginning</paragraph> +<paragraph role="code" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="22">Put #iNumber,, "This is the first line of text" REM Fill line with text</paragraph> +<paragraph role="code" id="par_id3148457" xml-lang="en-US" l10n="U" oldref="23">Put #iNumber,, "This is the second line of text"</paragraph> +<paragraph role="code" id="par_id3150715" xml-lang="en-US" l10n="U" oldref="24">Put #iNumber,, "This is the third line of text"</paragraph> +<paragraph role="code" id="par_id3153836" xml-lang="en-US" l10n="U" oldref="25">Seek #iNumber,2</paragraph> +<paragraph role="code" id="par_id3150327" xml-lang="en-US" l10n="U" oldref="26">Get #iNumber,,sText</paragraph> +<paragraph role="code" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="27">Print sText</paragraph> +<paragraph role="code" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="28">Close #iNumber</paragraph> +<paragraph role="code" id="par_id3153715" xml-lang="en-US" l10n="U" oldref="30">iNumber = Freefile</paragraph> +<paragraph role="code" id="par_id3154256" xml-lang="en-US" l10n="U" oldref="31">Open aFile For Random As #iNumber Len=32</paragraph> +<paragraph role="code" id="par_id3147340" xml-lang="en-US" l10n="U" oldref="32">Get #iNumber,2,sText</paragraph> +<paragraph role="code" id="par_id3155938" xml-lang="en-US" l10n="U" oldref="33">Put #iNumber,,"This is a new text"</paragraph> +<paragraph role="code" id="par_id3155959" xml-lang="en-US" l10n="U" oldref="34">Get #iNumber,1,sText</paragraph> +<paragraph role="code" id="par_id3147361" xml-lang="en-US" l10n="U" oldref="35">Get #iNumber,2,sText</paragraph> +<paragraph role="code" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="36">Put #iNumber,20,"This is the text in record 20"</paragraph> +<paragraph role="code" id="par_id3149259" xml-lang="en-US" l10n="U" oldref="37">Print Lof(#iNumber)</paragraph> +<paragraph role="code" id="par_id3153790" xml-lang="en-US" l10n="U" oldref="38">Close #iNumber</paragraph> +<paragraph role="code" id="par_id3155606" xml-lang="en-US" l10n="U" oldref="40">end sub</paragraph> </body> </helpdocument> |