VBS ArrayList Class vbs中的数组类
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ClassArrayList Privateitems() Privatesize PrivateSubClass_Initialize size=0 ReDimitems(1) EndSub PrivateSubClass_Terminate items=null EndSub PublicFunctionAdd(ByValvalue) If(size=Ubound(items))ThenEnsureCapacity((size+1)) items(size)=value size=size+1 Add=size EndFunction PublicPropertyGetItem(index) Item=items(index) EndProperty PublicPropertyLetItem(index,vObject) items(index)=vObject EndProperty PropertyGetCount Count=size EndProperty PublicPropertyGetCapacity() Capacity=Ubound(items) EndProperty PublicPropertyLetCapacity(value) If(value<>Ubound(items))Then If(value<size)ThenErr.Rise6 If(value>0)Then ReDimPreserveitems(value) Else ReDimPreserveitems(3) EndIf EndIf EndProperty PrivateSubEnsureCapacity(ByValmin) If(Ubound(items)<min)Then Dimnum1:num1=IIf((Ubound(items)=0),4,(Ubound(items)*2)) If(num1<min)Thennum1=min Capacity=num1 EndIf EndSub PrivateFunctionIIf(j,r1,r2) IF(j)Then IIf=r1 Else IIf=r2 EndIF EndFunction EndClass 示例: Dimal:Setal=newArrayList al.Add(1) al.Add(2) al.Add(3) al.Add(4) al.Add(5) al.Add(6) al.Add(7) al.Add(8) al.Add(9) al.Add(10) Fori=0Toal.Count-1 w("Index"&i&":"&al.Item(i)) Next w("Count:"&al.Count) w("Capacity:"&al.Capacity) Subw(o) Response.Write(o&"<br/>") EndSub |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于VBS ArrayList Class vbs中的数组类的所有评论
