現在只能搜索到上期夜市的主力品種。

作者：金字塔來源：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