現在只能搜索到上期夜市的主力品種。
作者：金字塔 來源：cxh99.com 發布時間：2014年09月11日
- 咨詢內容：
請教：我是用程序交易，需要自動搜索板塊的品種，以前各個交易所的都能搜到，現在只能找到上期夜市的品種了。
就是用金字塔哦論壇上的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
打印本文
關閉窗口