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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 现在只能搜索到上期夜市的主力品种。

   

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

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

主题：现在只能搜索到上期夜市的主力品种。
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		现在只能搜索到上期夜市的主力品种。  发帖心情 Post By：2014/6/23 9:53:27 [只看该作者]

请教：我是用程序交易，需要自动搜索板块的品种，以前各个交易所的都能搜到，现在只能找到上期夜市的品种了。

就是用金字塔哦论坛上的SearchCode代码搜索主力品种，现在只能搜索到上期夜市的主力品种了
 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2014/6/23 9:58:51 [只看该作者]

是pel语言的吗？相关代码最好发下。

 回到顶部
帅哥哟，离线，有人找我吗？
torymiss
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：94 积分：455 威望：0 精华：0 注册：2011/4/11 20:37:10 		  发帖心情 Post By：2014/6/23 22:32:50 [只看该作者]

Sub SearchStart()
 
  application.MsgOut Date &" " &Time& "检索主力合约"
 Dim marketName
 Set dominantContract=CreateObject("Scripting.Dictionary") '创建一个字典
 marketName=Array("SQ","DQ","ZQ","ZJ","SY")
 prefixStockNameOld=""
 c"
 contractVol=0
 
 '找到的主力合约代码放这里
 
  
 For j=0 To UBound(marketName)
  n=marketData.GetReportCount(marketName(j))
  For i=0 To n-1
   Set reportData=marketdata.GetReportDataByIndex(marketName(j),i)
   prefixStockNameCur=left(reportData.StockName,2)
   suffixStockNameCur=right(reportData.StockName,2)
   If suffixStockNameCur>="00" And suffixStockNameCur<"99" And reportData.Volume>0 Then
    If prefixStockNameCur<>prefixStockNameOld Then
     If contractLabel<>"" Then
      dominantContract.Add contractMarket & contractLabel, 0
     End If
     prefixStockNameOld=prefixStockNameCur
     contractLabel=reportData.Label
     contractMarket=marketName(j)
     contractVol=reportData.Volume
    ElseIf reportData.Volume>contractVol then
     contractLabel=reportData.Label
     contractVol=reportData.Volume
    End If
              
   End If
  Next  
 Next
 dominantContract.Add contractMarket & contractLabel,0
 
 
 labels=dominantContract.Keys
 markets=dominantContract.Keys
 
 FndCount = UBound(dominantContract.Keys)
 Application.MsgOut "共找到"&FndCount&"个合约"
 
 If FndCount > 0 Then
  '整理一下数据，将市场和代码分开
  For j=0 To FndCount
      Application.MsgOut "分析"&labels(j)
   markets(j) = left(labels(j),2)
   labels(j) = right(labels(j),len(labels(j))-2)
  Next 
  SaveBlockAndOpen labels, markets
 Else
  MsgBox "没有找到主力合约"
 End if
 
End Sub

 回到顶部
帅哥哟，离线，有人找我吗？
torymiss
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：94 积分：455 威望：0 精华：0 注册：2011/4/11 20:37:10 		  发帖心情 Post By：2014/6/23 22:33:16 [只看该作者]

楼上就是代码
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2014/6/24 23:47:04 [只看该作者]

你那个代码由于受到论坛安全限制无法显示全,去下载这个完整的吧

http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=2670&replyID=&skin=1

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.14063 秒, 5 次数据查询