diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2004-11-26 13:59:26 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2004-11-26 13:59:26 +0000 |
| commit | 92617cbc790c649147ab970652622f3db0f298fa (patch) | |
| tree | 033b7c2ad38497761abc73c0be7e5231f24a67bc /helpcontent2/source/text/sbasic/shared/03050500.xhp | |
| parent | 6683c012e39bad77de7e403d614f4f2ea0d4ebe7 (diff) | |
INTEGRATION: CWS helpcontentbeta (1.1.2); FILE MERGED
2004/09/16 11:45:25 fpe 1.1.2.1: Regular Update
Diffstat (limited to 'helpcontent2/source/text/sbasic/shared/03050500.xhp')
| -rwxr-xr-x | helpcontent2/source/text/sbasic/shared/03050500.xhp | 94 |
1 files changed, 49 insertions, 45 deletions
diff --git a/helpcontent2/source/text/sbasic/shared/03050500.xhp b/helpcontent2/source/text/sbasic/shared/03050500.xhp index 65cac7d95b..2daf5e4e82 100755 --- a/helpcontent2/source/text/sbasic/shared/03050500.xhp +++ b/helpcontent2/source/text/sbasic/shared/03050500.xhp @@ -52,58 +52,62 @@ * Contributor(s): _______________________________________ * * - ************************************************************************--><helpdocument version="1.0"> + ************************************************************************--> + +<helpdocument version="1.0"> <meta> <topic id="textsbasicshared03050500xml" indexer="include" status="PUBLISH"> -<title xml-lang="en-US" id="tit">On Error GoTo ... Resume Statement [Runtime]</title> +<title id="tit" xml-lang="en-US">On Error GoTo ... Resume Statement [Runtime]</title> <filename>/text/sbasic/shared/03050500.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-08-24T14:11:12">converted from old format - fpe</lastedited> </history> </meta> <body> - - - <section id="onerrorgotoresume"> - <bookmark branch="index" xml-lang="en-US" id="bm_id3146795"><bookmark_value>function;Resume Next</bookmark_value><bookmark_value>Resume Next;function</bookmark_value><bookmark_value>On Error GoTo ... Resume;function</bookmark_value></bookmark><paragraph id="hd_id3146795" role="heading" level="1" oldref="1" l10n="U" xml-lang="en-US"><link href="text/sbasic/shared/03050500.xhp" name="On Error GoTo ... Resume Statement [Runtime]">On Error GoTo ... Resume Statement [Runtime]</link></paragraph> - <paragraph role="paragraph" id="par_id3150358" l10n="U" xml-lang="en-US" oldref="2">Enables an error-handling routine after an error occurs, or resumes program execution.</paragraph> - </section> - <paragraph role="heading" level="2" id="hd_id3151212" l10n="U" xml-lang="en-US" oldref="3">Syntax:</paragraph> - <paragraph role="paragraph" id="par_id3145173" l10n="U" xml-lang="en-US" oldref="4">On {Error GoTo Labelname | GoTo 0 | Resume Next}</paragraph> - <paragraph role="heading" level="2" id="hd_id3154125" l10n="U" xml-lang="en-US" oldref="5">Parameters:</paragraph> - <paragraph l10n="U" role="paragraph" id="par_id3150869" xml-lang="en-US" oldref="7"><emph>GoTo Labelname:</emph> If an error occurs, enables the error-handling routine that starts at the line "Labelname".</paragraph> - <paragraph l10n="U" role="paragraph" id="par_id3150439" xml-lang="en-US" oldref="8"><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 l10n="U" role="paragraph" id="par_id3149482" xml-lang="en-US" oldref="9"><emph>GoTo 0: </emph>Disables the error handler in the current procedure.</paragraph> - <paragraph role="paragraph" id="par_id3148619" l10n="U" xml-lang="en-US" oldref="10">The On Error GoTo statement is used to react to errors that occur in a macro. The statement must be inserted at the start of a procedure (in a local error-handling routine) or at the start of a module.</paragraph> - <paragraph role="heading" level="2" id="hd_id3146985" l10n="U" xml-lang="en-US" oldref="11">Example:</paragraph> - <paragraph role="paragraph" id="par_id3152460" l10n="U" xml-lang="en-US" oldref="42">Sub ExampleReset</paragraph> - <paragraph role="paragraph" id="par_id3163712" l10n="U" xml-lang="en-US" oldref="43">On Error Goto ErrorHandler</paragraph> - <paragraph role="paragraph" id="par_id3146119" l10n="U" xml-lang="en-US" oldref="44">Dim iNumber As Integer</paragraph> - <paragraph role="paragraph" id="par_id3145749" l10n="U" xml-lang="en-US" oldref="45">Dim iCount As Integer</paragraph> - <paragraph role="paragraph" id="par_id3153091" l10n="U" xml-lang="en-US" oldref="46">Dim sLine As String</paragraph> - <paragraph role="paragraph" id="par_id3148576" l10n="U" xml-lang="en-US" oldref="47">Dim aFile As String</paragraph> - <paragraph role="paragraph" id="par_id3147348" l10n="U" xml-lang="en-US" oldref="48">aFile = "c:\data.txt"</paragraph> - - <paragraph role="paragraph" id="par_id3154944" l10n="U" xml-lang="en-US" oldref="50">iNumber = Freefile</paragraph> - <paragraph role="paragraph" id="par_id3153158" l10n="U" xml-lang="en-US" oldref="51">Open aFile For Output As #iNumber</paragraph> - <paragraph role="paragraph" id="par_id3153876" l10n="U" xml-lang="en-US" oldref="52">Print #iNumber, "This is a line of text"</paragraph> - <paragraph role="paragraph" id="par_id3149581" l10n="U" xml-lang="en-US" oldref="53">Close #iNumber</paragraph> - - <paragraph role="paragraph" id="par_id3155602" l10n="U" xml-lang="en-US" oldref="55">iNumber = Freefile</paragraph> - <paragraph role="paragraph" id="par_id3153415" l10n="U" xml-lang="en-US" oldref="56">Open aFile For Input As iNumber</paragraph> - <paragraph role="paragraph" id="par_id3146970" l10n="U" xml-lang="en-US" oldref="57">For iCount = 1 to 5</paragraph> - <paragraph role="paragraph" id="par_id3153707" l10n="U" xml-lang="en-US" oldref="58">Line Input #iNumber, sLine</paragraph> - <paragraph role="paragraph" id="par_id3156276" l10n="U" xml-lang="en-US" oldref="59">If sLine <>"" then</paragraph> - <paragraph role="paragraph" id="par_id3148993" l10n="U" xml-lang="en-US" oldref="60">rem</paragraph> - <paragraph role="paragraph" id="par_id3153764" l10n="U" xml-lang="en-US" oldref="61">end if</paragraph> - <paragraph role="paragraph" id="par_id3154754" l10n="U" xml-lang="en-US" oldref="62">Next iCount</paragraph> - <paragraph role="paragraph" id="par_id3159264" l10n="U" xml-lang="en-US" oldref="63">Close #iNumber</paragraph> - <paragraph role="paragraph" id="par_id3150042" l10n="U" xml-lang="en-US" oldref="64">Exit Sub</paragraph> - <paragraph role="paragraph" id="par_id3151251" l10n="U" xml-lang="en-US" oldref="65">ErrorHandler:</paragraph> - <paragraph role="paragraph" id="par_id3149106" l10n="U" xml-lang="en-US" oldref="66">Reset</paragraph> - <paragraph role="paragraph" id="par_id3146916" l10n="U" xml-lang="en-US" oldref="67">MsgBox "All files will be closed",0,"Error"</paragraph> - <paragraph role="paragraph" id="par_id3149568" l10n="U" xml-lang="en-US" oldref="68">End Sub</paragraph> - </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 role="heading" id="hd_id3146795" xml-lang="en-US" level="1" l10n="U" oldref="1"><link href="text/sbasic/shared/03050500.xhp" name="On Error GoTo ... Resume Statement [Runtime]">On Error GoTo ... Resume Statement [Runtime]</link></paragraph> +<paragraph role="paragraph" id="par_id3150358" xml-lang="en-US" l10n="U" oldref="2">Enables an error-handling routine after an error occurs, or resumes program execution.</paragraph> +</section> +<paragraph role="heading" id="hd_id3151212" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> +<paragraph role="paragraph" id="par_id3145173" xml-lang="en-US" l10n="U" oldref="4">On {Error GoTo Labelname | GoTo 0 | Resume Next}</paragraph> +<paragraph role="heading" id="hd_id3154125" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> +<paragraph role="paragraph" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="7"> +<emph>GoTo Labelname:</emph> If an error occurs, enables the error-handling routine that starts at the line "Labelname".</paragraph> +<paragraph role="paragraph" id="par_id3150439" xml-lang="en-US" l10n="U" oldref="8"> +<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 role="paragraph" id="par_id3149482" xml-lang="en-US" l10n="U" oldref="9"> +<emph>GoTo 0: </emph>Disables the error handler in the current procedure.</paragraph> +<paragraph role="paragraph" id="par_id3148619" xml-lang="en-US" l10n="U" oldref="10">The On Error GoTo statement is used to react to errors that occur in a macro. The statement must be inserted at the start of a procedure (in a local error-handling routine) or at the start of a module.</paragraph> +<paragraph role="heading" id="hd_id3146985" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> +<paragraph role="paragraph" id="par_id3152460" xml-lang="en-US" l10n="U" oldref="42">Sub ExampleReset</paragraph> +<paragraph role="paragraph" id="par_id3163712" xml-lang="en-US" l10n="U" oldref="43">On Error Goto ErrorHandler</paragraph> +<paragraph role="paragraph" id="par_id3146119" xml-lang="en-US" l10n="U" oldref="44">Dim iNumber As Integer</paragraph> +<paragraph role="paragraph" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="45">Dim iCount As Integer</paragraph> +<paragraph role="paragraph" id="par_id3153091" xml-lang="en-US" l10n="U" oldref="46">Dim sLine As String</paragraph> +<paragraph role="paragraph" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="47">Dim aFile As String</paragraph> +<paragraph role="paragraph" id="par_id3147348" xml-lang="en-US" l10n="U" oldref="48">aFile = "c:\data.txt"</paragraph> +<paragraph role="paragraph" id="par_id3154944" xml-lang="en-US" l10n="U" oldref="50">iNumber = Freefile</paragraph> +<paragraph role="paragraph" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="51">Open aFile For Output As #iNumber</paragraph> +<paragraph role="paragraph" id="par_id3153876" xml-lang="en-US" l10n="U" oldref="52">Print #iNumber, "This is a line of text"</paragraph> +<paragraph role="paragraph" id="par_id3149581" xml-lang="en-US" l10n="U" oldref="53">Close #iNumber</paragraph> +<paragraph role="paragraph" id="par_id3155602" xml-lang="en-US" l10n="U" oldref="55">iNumber = Freefile</paragraph> +<paragraph role="paragraph" id="par_id3153415" xml-lang="en-US" l10n="U" oldref="56">Open aFile For Input As iNumber</paragraph> +<paragraph role="paragraph" id="par_id3146970" xml-lang="en-US" l10n="U" oldref="57">For iCount = 1 to 5</paragraph> +<paragraph role="paragraph" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="58">Line Input #iNumber, sLine</paragraph> +<paragraph role="paragraph" id="par_id3156276" xml-lang="en-US" l10n="U" oldref="59">If sLine <>"" then</paragraph> +<paragraph role="paragraph" id="par_id3148993" xml-lang="en-US" l10n="U" oldref="60">rem</paragraph> +<paragraph role="paragraph" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="61">end if</paragraph> +<paragraph role="paragraph" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="62">Next iCount</paragraph> +<paragraph role="paragraph" id="par_id3159264" xml-lang="en-US" l10n="U" oldref="63">Close #iNumber</paragraph> +<paragraph role="paragraph" id="par_id3150042" xml-lang="en-US" l10n="U" oldref="64">Exit Sub</paragraph> +<paragraph role="paragraph" id="par_id3151251" xml-lang="en-US" l10n="U" oldref="65">ErrorHandler:</paragraph> +<paragraph role="paragraph" id="par_id3149106" xml-lang="en-US" l10n="U" oldref="66">Reset</paragraph> +<paragraph role="paragraph" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="67">MsgBox "All files will be closed",0,"Error"</paragraph> +<paragraph role="paragraph" id="par_id3149568" xml-lang="en-US" l10n="U" oldref="68">End Sub</paragraph> +</body> </helpdocument> |