現(xiàn)在只能搜索到上期夜市的主力品種。 [金字塔]
- 咨詢內(nèi)容：
請(qǐng)教：我是用程序交易，需要自動(dòng)搜索板塊的品種，以前各個(gè)交易所的都能搜到，現(xiàn)在只能找到上期夜市的品種了。
就是用金字塔哦論壇上的SearchCode代碼搜索主力品種，現(xiàn)在只能搜索到上期夜市的主力品種了
- 金字塔客服：
是pel語(yǔ)言的嗎？相關(guān)代碼最好發(fā)下。
- 用戶回復(fù)：
Sub SearchStart()
application.MsgOut Date &" " &Time& "檢索主力合約"
Dim marketName
Set dominantContract=CreateObject("Scripting.Dictionary") '創(chuàng)建一個(gè)字典
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&"個(gè)合約"
If FndCount > 0 Then
'整理一下數(shù)據(jù)，將市場(chǎng)和代碼分開(kāi)
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 "沒(méi)有找到主力合約"
End if
End Sub
- 網(wǎng)友回復(fù)：
樓上就是代碼
- 網(wǎng)友回復(fù)：
你那個(gè)代碼由于受到論壇安全限制無(wú)法顯示全,去下載這個(gè)完整的吧
http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=2670&replyID=&skin=1
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)