Просмотр исходного текста страницы Реализация конструкции try-finally на VBScript

Грамотно написанный программный код должен заботиться о высвобождении выделенных ресурсов по окончании их использования даже в случае аварийного завершения функции или процедуры. В Делфи мы имеем конструкцию try-finally, которая гарантирует, что код в секции finally будет выполнен в любом случае:

  ...
  // выделение ресурса
  try
    ...
    // использование ресурса
    ...
  finally
    // высвобождение ресурса
  end;
  ...

В языке VBScript такая конструкция отсутствует, а обработка ошибок с помощью On Error Resume Next/On Error GoTo 0 весьма трудоемка. Как быть? На помощь приходит свойство экземпляров классов VBScript, которые автоматически высвобождаются по выходу из соответствующей области видимости. Вспомогательный класс [[TCreator]] уже долгое время используется для уничтожения объектов по завершении кода функции или процедуры. Его метод [[GetObject]] создает объект с помощью вызова функции [[Designer]].[[CreateObject]] и сохраняет ссылку на созданный объект во внутреннем списке. По выходу из кода, объект TCreator уничтожается, при этом выполняется его деструктор, который просматривает список ранее созданных объектов и вызывает [[Designer]].[[DestroyObject]] для каждого из них. Высвобождение объектов -- частный случай кода завершения функции. На практике, часто необходимо вызвать некоторый метод объекта или выполнить произвольный программный код. Например, после блокировки визуального отображения набора данных с помощью вызова метода DataSet.DisableControls, необходимо обязательно восстановить исходное состояние с помощью DataSet.EnableControls. К счастью, VBScript предоставляет нам возможность выполнять произвольный программный код с помощью процедуры Execute. Таким образом, мы можем сделать следующее:

* Добавим в [[TCreator]] двумерный массив, который будет хранить список команд и ссылку на объект/переменную, соответствующую каждой команде. Причем, в тексте команды имя объекта или переменной мы должны указывать с помощью мнемонического кода '''<X>'''.
* Добавим метод AddFinallyCode(ByRef S, ByRef Obj) с помощью которого в список добавляется команда и соответствующий ей объект или переменная. AddFinallyCode -- это функция, которая возвращает индекс добавленной команды.
* Для удобства, предусмотрим метод DeleteFinallyCode(I), который удаляет из списка команду, заданную индексом.
* Изменим деструктор класса TCreator так, чтобы перед уничтожением списка созданных с помощью GetObject объектов, сначала выполнялись команды из нашего внутреннего списка. 

В итоге, мы сможем использовать класс [[TCreator]] следующим образом:

  Option Explicit
  Sub ProcessData(ByRef DataSet)
 
    Dim Creator
    Set Creator = New TCreator
    
    DataSet.DisableControls
    Creator.AddFinallyCode "<X>.EnableControls", DataSet
 
    ' выполняем обработку набора данных
    ' по окончании процедуры состояние датасета восстановится
    ' с помощью команды DataSet.EnableControls
 
  End Sub

Следует помнить, что если вторым параметром на вход функции TCreator.AddFinallyCode передан объект, то сохраняется ссылка на него. Если же передается переменная, то сохраняется ее значение.

  Option Explicit
  Sub TestFinallyCode
  
    Dim Creator, I, A
    I = 5
    Creator.AddFinallyCode "MsgBox ""I = "" & <X>", I
 
    I = 1
    A = 1 / 0 ' вызываем ошибку -- деление на ноль
 
    I = 2
  End Sub

В результате выполнения такой процедуры, на экран будет выведено сообщение:

  I = 5

а не '''I = 1''', как можно было подумать.

[[Category:VBScript]]