如何对日内分笔数据循环遍历?需要vba? - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 如何对日内分笔数据循环遍历?需要vba?

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有10110人关注过本帖树形打印复制链接主题：如何对日内分笔数据循环遍历?需要vba?

xhyaj

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：30 积分：263 威望：0 精华：0 注册：2009/11/20 14:15:54

如何对日内分笔数据循环遍历?需要vba? 发帖心情

Post By：2010/1/14 23:23:41 [只看该作者]

比如: 从第一个tick开始循环知道最后一个日内tick 如果后来的close大于前面的,给数组flag的当前值赋值1,否则赋值0,如果相等,向前追溯到相邻close不相等,以当时flag的数值赋予当前flag

admin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32

Post By：2010/1/15 12:06:07 [只看该作者]

已经做好了根据分笔数据前后的大小来将标志置数组的例子,其他的你自己试试完善他.

Sub test2()
'得到某个指定品种的数据
    set MinuteData = marketdata.GetMinuteData("rb05","sq")

    '创建一个动态数组,大小与分笔数据一致
    Dim d '创建一个动态数组外部对象变量
Set d = CreateObject("Stock.Array")

'定义两个变量
dim flag
dim prvdata

'开始循环处理
for i = 0 to MinuteData.Count-1
     data = minutedata.newprice(i)
     if i > 0 then '从第2个数据开始计算
         if data > prvdata then
             flag = 1 '当前笔大于前一笔则置1
         else
             flag = 0 '否则置0
         end if
        d.addback(flag) '添加标志数据到数组中
     else
        d.addback(0) '第一个数据置0
      end if

prvdata  = data
  next

'显示已保存的数组个数
msgbox d.Count

End Sub

[此贴子已经被作者于2010-1-16 15:56:37编辑过]

[本帖被加为精华]