jWB - Создание тэгов DIRT

ВВЕДЕНИЕ

Тэги, заменяемые непосредственно в строке - Direct Inline Replacement Tags (DIRT) предоставляют метод для управления динамическими параметрами с помощью исполняющей среды - jBASE Web Builder run-time environment.

jBASE for Web Builders поступает в комплекте с набором заранее сгенерированных тэгов DIRT Tags. Однако не исключено, что пользователи предпочтут создать свои собственные тэги.

ПОСТРОЕНИЕ КЛАССА РАЗРАБОТЧИКА

В системе jBASE for Web Builders тэги DIRT Tags включают имя тэга (tag name), которое связано с подпрограммой - basic subroutine.

Новый тэг web-разработчика позволит вам использовать тэг с именем 'trim' для удаления лишних пробелов из строки.

Стартуйте jWB, затем разверните меню 'Program Files' и выберите принятый по умолчанию программный файл, который будет 'PrgMain'. В поле 'Selected' введите 'usrtrim', это будет имя новой подпрограммы. Затем выберите кнопку 'Edit' для открытия окна редактирования.

В окне редактирования вставьте следующий код:

      SUB usrtrim(parms,result)
*--- включение блока common block
      INCLUDE sysbp syscommon
*--- проходим свойства - break down the properties itm = parms
*--- назначаем результат
      result = TRIM(itm,'',"A")
*--- возврат к вызывавшей процедуре
      RETURN

Эта процедура принимает строку как параметр, затем вызывает функцию jBASE 'TRIM' для удаления из строки лишних пробелов.

Сохраните и скомпилируйте процедуру - 'Update and Compile'.

Затем разверните меню 'Configuration' и выберите опцию 'DIRT Tags'.

Для вставки строки выберите одну из кнопок с отметкой '>'. В поле 'Tag Name' введите 'trim', а также введите 'usrtrim' в поле 'Subroutine'.

Наконец, выберите кнопку 'Update Dirt Tags' для сохранения нового тэга.