现在只能搜索到上期夜市的主力品种。 [金字塔]
- 咨询内容：
请教：我是用程序交易，需要自动搜索板块的品种，以前各个交易所的都能搜到，现在只能找到上期夜市的品种了。
就是用金字塔哦论坛上的SearchCode代码搜索主力品种，现在只能搜索到上期夜市的主力品种了
- 金字塔客服：
是pel语言的吗？相关代码最好发下。
- 用户回复：
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
- 网友回复：
楼上就是代码
- 网友回复：
你那个代码由于受到论坛安全限制无法显示全,去下载这个完整的吧
http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=2670&replyID=&skin=1
有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友
可联系技术人员 QQ: 1145508240 进行 有偿 编写！（不贵！点击查看价格！）
相关文章
-
没有相关内容
会员登录/注册