From 92617cbc790c649147ab970652622f3db0f298fa Mon Sep 17 00:00:00 2001 From: Rüdiger Timm Date: Fri, 26 Nov 2004 13:59:26 +0000 Subject: INTEGRATION: CWS helpcontentbeta (1.1.2); FILE MERGED 2004/09/16 11:45:25 fpe 1.1.2.1: Regular Update --- .../source/text/sbasic/shared/03050500.xhp | 94 +++++++++++----------- 1 file changed, 49 insertions(+), 45 deletions(-) (limited to 'helpcontent2/source/text/sbasic/shared/03050500.xhp') 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): _______________________________________ * * - ************************************************************************--> + ************************************************************************--> + + -On Error GoTo ... Resume Statement [Runtime] +On Error GoTo ... Resume Statement [Runtime] /text/sbasic/shared/03050500.xhp Sun Microsystems, Inc. -converted from old format - fpe +converted from old format - fpe - - -
- function;Resume NextResume Next;functionOn Error GoTo ... Resume;functionOn Error GoTo ... Resume Statement [Runtime] - Enables an error-handling routine after an error occurs, or resumes program execution. -
- Syntax: - On {Error GoTo Labelname | GoTo 0 | Resume Next} - Parameters: - GoTo Labelname: If an error occurs, enables the error-handling routine that starts at the line "Labelname". - Resume Next: If an error occurs, program execution continues with the statement that follows the statement in which the error occurred. - GoTo 0: Disables the error handler in the current procedure. - 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. - Example: - Sub ExampleReset - On Error Goto ErrorHandler - Dim iNumber As Integer - Dim iCount As Integer - Dim sLine As String - Dim aFile As String - aFile = "c:\data.txt" - - iNumber = Freefile - Open aFile For Output As #iNumber - Print #iNumber, "This is a line of text" - Close #iNumber - - iNumber = Freefile - Open aFile For Input As iNumber - For iCount = 1 to 5 - Line Input #iNumber, sLine - If sLine <>"" then - rem - end if - Next iCount - Close #iNumber - Exit Sub - ErrorHandler: - Reset - MsgBox "All files will be closed",0,"Error" - End Sub - +
+Resume Next parameter +On Error GoTo ... Resume statement + +On Error GoTo ... Resume Statement [Runtime] +Enables an error-handling routine after an error occurs, or resumes program execution. +
+Syntax: +On {Error GoTo Labelname | GoTo 0 | Resume Next} +Parameters: + +GoTo Labelname: If an error occurs, enables the error-handling routine that starts at the line "Labelname". + +Resume Next: If an error occurs, program execution continues with the statement that follows the statement in which the error occurred. + +GoTo 0: Disables the error handler in the current procedure. +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. +Example: +Sub ExampleReset +On Error Goto ErrorHandler +Dim iNumber As Integer +Dim iCount As Integer +Dim sLine As String +Dim aFile As String +aFile = "c:\data.txt" +iNumber = Freefile +Open aFile For Output As #iNumber +Print #iNumber, "This is a line of text" +Close #iNumber +iNumber = Freefile +Open aFile For Input As iNumber +For iCount = 1 to 5 +Line Input #iNumber, sLine +If sLine <>"" then +rem +end if +Next iCount +Close #iNumber +Exit Sub +ErrorHandler: +Reset +MsgBox "All files will be closed",0,"Error" +End Sub + -- cgit