IBM Lotus Symphony
|
Қате пайда болғаннан кейін немесе бағдарлама шығарылымы жанданғанда қатені өңдегішті қосады.
Келесіде {Error GoTo Labelname | GoTo 0 | келесіні жандандыру}
GoTo Labelname: Егер қате пайда болса "Labelname" жолында басталатын қате өңдегішті қосады.
Келесіні жандандыру: Егер қате пайда болса қате пайда болған нұсқауымен жалғасатын бағдарламаның шығарылуы жалғасады.
GoTo 0: Ағындағы үрдісте қате өңдегішін өшіреді.
Макроста пайда болатын қатеде GoTo нұсқауы қолданылады. Нұсқау үрдістің басына кірістірілуі керек (жергілікті қате өңдегішінде) немесе басталу модулі.
Қосымша ExampleReset
Қатеде Goto ErrorHandler
iNumber функциясын бүтін сан ретінде қарайту
iCount ұяшығын бүтін сан ретінде қайтару
sLine жолын жол ретінде қарайту
Жол ретінде aFile қарайту
aFile = "c:\data.txt"
iNumber = Freefile
#iNumber ретінде шығару үшін aFile ашу
#iNumber басып шығару, "Бұл — мәтін жолы"
Close #iNumber
iNumber = Freefile
iNumber сияқты шығару үшін, файлды ашу
iCount = 1 мен 5 аралығында
Жолды енгізу #iNumber, sLine
Егер sLine <>"" болса, онда
rem
болса аяқтаңыз
Келесі iCount
Close #iNumber
Sub шығу
ErrorHandler:
Ысыру
MsgBox "Барлық файлдар жабылады",0,"Error"
Аяқталу ішкі элементі