【软件测试自动化-QTP系列讲座 27】== ArrayList数组类在DotnetFactory中的应用 ==

最新推荐文章于 2024-07-04 00:19:28 发布

iteye_10189

最新推荐文章于 2024-07-04 00:19:28 发布

阅读量146

点赞数

文章标签：测试

Rss订阅IQuickTest（关于如何订阅？）

GoogleReader订阅地址：http://feeds.feedburner.com/iquicktest

作者：zzxxbb112
时间：2010/02/09版权所有，侵权必究。

出处：http://blog.csdn.net/zzxxbb112

很久没有来更新博客了，主要原因还是由于还是由于CSDN博客无法上传图片，而看惯我博客的朋友应该都知道我的博客一向是有图文解说的，就像做数学题一样，需要数形结合。今天我实在忍不住了还是要爬上来写一篇，博客内容由于不能上传图片，因此特地挑了这个比较简单的主题，呵呵，不废话了，进入正题，会点VBS的朋友应该都知道VBS中的数组是使用ARRAY或者DIM申明后进行初始化来创建的,来看如下脚本

Array函数创建

person = array("zxb001","zxb002","zxb003")
For i=0 To UBound(person)
MsgBox person(i)
Next

Dim申明创建

Dim person(2)
person(0)="zxb001"
person(1)="zxb002"
person(2)="zxb003"
For i=0 To UBound(person)
MsgBox person(i)
Next

其实除了以上两种方法外还有很多种方法，我们可以使用字典对象，也可以使用容器对象，这里我们主要讲解DOTNETFACTORY中的System.Collections.ArrayList类，接下来看例子：

Set MyList = DotnetFactory.CreateInstance("System.Collections.ArrayList")

With myList
.Add("zxb001")
.Add("zxb002")
.Add("zxb003")
.Add("zxb004")
.Add("zxb005")
End With

For i = 0 To MyList.Count -1
MsgBox MyList.Item(i)
Next

Set MyList = nothing

同样此方法也可以使用CREATEOBJECT来创建

Set MyList=CreateObject("System.Collections.ArrayList")
With myList
.Add("zxb001")
.Add("zxb002")
.Add("zxb003")
.Add("zxb004")
.Add("zxb005")
End With

For i = 0 To MyList.Count-1
MsgBox MyList.Item(i)
Next

Set MyList = nothing

以下是ArrayList的所有方法，有兴趣的朋友可以试试

Add – adds an item in an arraylist
MyList.Add(”ListItem”)

Remove – removes an item from the arraylist
MyList.Remove(”ListItem “)

RemoveAt – removes an item from the specified position in the arraylist
MyList.RemoveAt(3)

Insert – Inserts an item at a specified position in the arraylist
MyList.Insert(3,”ListItem”)

Sort – Sorts items in the arraylist
MyList.Sort