function fsortarray(asortthisarray)
dim oarraylist, ielement
set oarraylist = createobject( "system.collections.arraylist" )
for ielement = 0 to ubound(asortthisarray)
oarraylist.add asortthisarray(ielement)
next
oarraylist.sort
set fsortarray = oarraylist
end function
myarray=array(50,20,30)
msgbox myarray(0)
msgbox fsortarray(myarray)(0)
'createobject( "system.collections.arraylist" )调用了mscoree.dll,是.net framework相关组件。
如对本文有疑问,
点击进行留言回复!!
相关文章:
-
-
-
-
-
-
用vbs实现文本循环读取
因为测试中需要读取一批url数据进行浏览,其实使用qtp本身的table能实现多种读取方式,但是因为需要tabel是使用excel保存的,在没有...
[阅读全文]
-
-
-
-
-
网友评论