Получение содержимого Contents

Пример демонстрируем возможность получения содержимого Contents, которое есть при просмотре свойств объектов через Inspector.
Для получения этих данных, из Contents, необходимо создать VP, тип - "Object Date", для объекта из которого хотим получить этот список, назовем эту VP - My_VP.
Далее используем функцию, которая будет брать эти данные из VP

Function GetData(ScriptName As String, VPName As String, Data() As String) As Integer
‘ функция которая возвращает данные из верификационной точки содержащие интересующие нас данные.
' ScriptName – название выполняемого скрипта
' VPName – название VP, которая содержит интересующие нас данные
' Data() – куда будет помещен массив данных из VP

Dim vpPath As String
Dim fname As String
Dim x As Integer
Dim Result As Integer

vpPath = SQAGetLogDir
Dim aline As String
x = 1

Redim data(10)

fname = Dir(vpPath & "vp\" & ScriptName & "." & VPName & ".act*.grd")
If fname = "" Then fname = Dir(vpPath & "vp\" & ScriptName & "." & VPName & ".exp.grd")
If fname = "" Then
GetData = -1
Exit function
End if

Open vpPath & "vp\" & fname For Input As #1
Line Input #1, aline

Do While Not EOF(1)
If Ubound(data) = x Then Redim Preserve data(x + 10)
Data(x) = aline
Line Input #1, aline
x = x + 1
Loop

Redim Preserve data(x)

Close #1
GetData = 0

End function


Sub Main
Dim Data() as String
Dim Result as Integer
Dim i as Integer

Window SetTestContext, "Caption=My_Caption", ""
Result = ListViewVP (CompareData, "Text=My_list", "VP=My_VP;Wait=1,5;ExpectedResult=Fail") ‘ Если список будет динамически меняться (постоянно или редко), то точку My_VP лучше сделать заведомо неверной, что бы она не портила лог своим сообщением о том что данные не верны.

Window ResetTestContext, "", ""

call GetData("My_Script", "VP_my", Data())

‘ Дальше работаем с нашим массивом Data()…

End Sub


Пример взят:
http://www-1.ibm.com...s=utf-8&lang=en