以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  vba，字符串数组不能删除指定位置的元素  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=175179)
--  作者：wenxc
--  发布时间：2020/3/25 15:14:21
--  vba，字符串数组不能删除指定位置的元素
 
‘数组元素数量大于3个
                cnt = asorderfilled.Count
For i=0 to cnt-1
if i=1 then
        Call asorderfilled.RemoveAt(i)
end if
next
--  作者：yukizzc
--  发布时间：2020/3/25 17:40:49
--  

Dim d \'创建一个变量

\'创建Array外部对象，将对象实例置变量d中

Set d = CreateObject("Stock.Array")

\'创建完Array对象后往其内部插入两个数据

d.AddBack(3.25)

d.AddBack(4.33)

d.AddBack(2.02)
application.MsgOut "第一次"
For i = 0 To d.count-1
application.MsgOut d.GetAt(i)
Next

d.RemoveAt(1)
application.MsgOut "第二次"
For i = 0 To  d.count-1
application.MsgOut d.GetAt(i)
Next
--  作者：yukizzc
--  发布时间：2020/3/25 17:41:10
--  

你运行下就知道remove是移除了第一个元素的