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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 请帮忙看下为什么只写最后一个?

   

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


  共有5201人关注过本帖树形打印复制链接

主题:请帮忙看下为什么只写最后一个?

帅哥哟,离线,有人找我吗?
liboyi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:68 积分:436 威望:0 精华:0 注册:2011/1/16 22:06:51
请帮忙看下为什么只写最后一个?  发帖心情 Post By:2011/8/17 6:53:52 [显示全部帖子]

下面的宏本意是想把最后的三个开盘价写入文件中的,为什么只写最后一个?

我想把最后三日的各项数据写入文件,请朋友们帮忙解决.

 

sub hisdatashow()
 application.ClearMsg
 set HData1 = marketdata.GetHistoryData("SRY09","ZQ",5)
 'Document.OpenDoc("c:\Stock.ini")
 for i=HData1.count-3 to HData1.count-1
  application.MsgOut  "开盘价  " & HData1.open(i)  & "   收盘价   " & HData1.close(i)
  application.MsgOut  "最高价   " & HData1.high(i)  & "   最低价   " & HData1.low(i)
  application.MsgOut  "日期1   " & HData1.date(i)  & "   成交量   " & HData1.volume(i)
  application.MsgOut  "成交额   " & HData1.amount(i)  
  result =document.WritePrivateProfileFloat("MyCpp", "开盘价",HData1.open(i)   , "C:\Stock.ini")
 
 next
   application.MsgOut  "总数   " & HData1.count   

   end sub


 回到顶部
帅哥哟,离线,有人找我吗?
liboyi
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:68 积分:436 威望:0 精华:0 注册:2011/1/16 22:06:51
  发帖心情 Post By:2011/8/17 10:29:12 [显示全部帖子]

2楼的加 i 是不对的.

参考3楼的方法,搞好了.多谢你们.


 回到顶部