1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
<?xml version="1.0" encoding="UTF-8"?>
<!--***********************************************************************
*
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* Copyright 2000, 2010 Oracle and/or its affiliates.
*
* OpenOffice.org - a multi-platform office productivity suite
*
* This file is part of OpenOffice.org.
*
* OpenOffice.org is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License version 3
* only, as published by the Free Software Foundation.
*
* OpenOffice.org is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License version 3 for more details
* (a copy is included in the LICENSE file that accompanied this code).
*
* You should have received a copy of the GNU Lesser General Public License
* version 3 along with OpenOffice.org. If not, see
* <http://www.openoffice.org/license.html>
* for a copy of the LGPLv3 License.
*
************************************************************************-->
<helpdocument version="1.0">
<meta>
<topic id="textsbasicshared03050500xml" indexer="include" status="PUBLISH">
<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="2004-08-24T14:11:12">converted from old format - fpe</lastedited>
</history>
</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 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 {[Local] 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_id3149483" xml-lang="en-US" l10n="U" oldref="9"><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 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>
|
