CATCH
SUB Function ( ... )
...
CATCH
...
END
该语句表示函数或过程中错误管理部分(错误陷阱)开始。
当错误发生于函数执行的起始到终止之间,执行错误陷阱部分。错误可以发生自函数自己,或者执行中调用的任一其他函数,只要这个被嵌套的函数没有自己的错误陷阱(更深层的错误陷阱,有着更高的优先级)。
如果错误发生于执行错误陷阱代码期间,会正常传送。错误陷阱不保护自己!
如果函数中的
FINALLY语句作用部分,必须位于错误陷阱部分之前。更多细节请看
FINALLY语句。
Examples
' Prints a file to the screen
SUB PrintFile(FileName AS STRING)
DIM hFile AS File
DIM sLig AS STRING
OPEN FileName FOR READ AS #hFile
WHILE NOT EOF(hFile)
LINE INPUT #hFile, sLig
PRINT sLig
WEND
FINALLY ' 总是被执行,即使有错误发生
CLOSE #hFile
CATCH ' 仅仅发生错误时执行
PRINT "Cannot print file "; FileName
END
参见