QTP有Class类数组或集合吗？

kennychm

我创建了一个Class， 我想好像.net那样把该类对象添加到集合里。需要的时候再循环。不清楚在QTP应该如何去实现呢！请有经验的老大多多指点。

Class User
        private s_name   
   
        Property Let Name(new_name)
            name= new_name
        End Property
      
        Property Get name
            name= s_name
        End Property
   
End Class
for i=1 To 5
    Dim user&i
    Set user&i=New User
    user&i.name="a"&i
    如何将user对象放在集合里或数组里
next

然后再遍历这个user对象集合或数组。

joykao

可以自己定义在外部文件里的哇。。。随你怎么放。。比如写在xml文件中excel中都可以

黑羽祭

回复 1# kennychm


    可以的

1. 
   
2. for i=1 To 5
   
3.     Execute "Dim user" & i
   
4.     Execute "Set user" & i & "=New User"
   
5.     Eval("user" & i).name="a"&i
   
6. next
   

复制代码

kennychm

回复 3# 黑羽祭

我是想将user类对象 像.net那样存入到一个集合或数组。然后有需要的时候再遍历出来，而你给出的代码应该达不到我想要的东西

黑羽祭

回复 4# kennychm


    那更简单

1. Class Test1
   
2.    Function aaa
   
3.           print "Test"
   
4.    End Function
   
5. End Class
   
6. 
   
7. Dim a(10)
   
8. Set a(1) = New Test1
   
9. a(1).aaa

复制代码

kennychm

回复 5# 黑羽祭


谢谢大哥你的指点！