Сообщений в теме: 3

[pavel_kravts]

Уважаемые коллеги,

Какими объектно-ориентированными свойствами языка Visual Basic Script Вы пользуетесь при написании тестовых сценариев и насколько оправдано использование ОО подхода?

[ch_ip]

Уважаемые коллеги,

Какими объектно-ориентированными свойствами языка Visual Basic Script Вы пользуетесь при написании тестовых сценариев и насколько оправдано использование ОО подхода?

Мы пользуемся единственно возможным свойством свойством данного языка - создаем свои классы :)
Применение оправдано, если понимать в каждом конкретном случае смысл использования классов.
Мы используем классы для обработки больших таблиц данных, для сравнения элементов, для хранения данных, для реализации стека вызовов, для реализации "событийной" модели синхронизации. Разрабатываем фреймворк для репортинга, основанный на классах.
Плюс есть конкретный фреймворк для приложения весь построенный на классах (Приложение представляет собой воркфлоу с несколькими сценариями перехода между экранами в зависимости от действий пользователя. Классы используются для управления сценариями, хранения состояний экрана, вызова проверок)

Также, использование классов - это единственный метод передать "функцию" в качестве параметра (создание классов с единственным методом)

[dlg99]

Также, использование классов - это единственный метод передать "функцию" в качестве параметра (создание классов с единственным методом)

а вот так разве не работает:

function buildmsg(byval name)
 buildmsg = "Hello, " + name + "!"
end function

function test(byval funcname, byval name)
  set fp = GetRef(funcname)
  msg = fp( name )
  msgbox(msg)
end function

test "buildmsg", "Vasya"

в Windows Scripting Host работает.
QTP, вроде бы, его же интерпретатор использует.

[ch_ip]

Также, использование классов - это единственный метод передать "функцию" в качестве параметра (создание классов с единственным методом)

а вот так разве не работает:

function buildmsg(byval name)
 buildmsg = "Hello, " + name + "!"
end function

function test(byval funcname, byval name)
  set fp = GetRef(funcname)
  msg = fp( name )
  msgbox(msg)
end function

test "buildmsg", "Vasya"

Работает!
Спасибо, dlg99.
Воистину, век живи, век учись.
Раньше не знал об этой функции, и ни на одном из ресурсов, посвященных qtp, не встречал ее использования.
Все-таки, MSDN надо обновлять! - У меня до прошлой недели стояла версия 2005 года. Там не было этой функции.