您現在的位置:程序化交易>> 期貨公式>> 金字塔等>> 其他期貨軟件知識>>正文內容

[求助]一個奇怪的問題。BLOCK對象最后二項數據缺乏。 [金字塔]

  • 咨詢內容:

    一個VBA程序,導出板塊中的市場代碼和品種代碼到文本文件中。

    前面數據導出正常,板塊中的最后二項數據均為空白。

     

    比如一個板塊有5個品種:SH600104,SZ000758,SH600756,SZ000089,SH600108

    結果板塊文本文件中只有:

    SH600104

    SZ000758

    SH600756

    再加2行空行。

    是否GetStockMarket函數有BUG.

    另外,count到底是基于0還是基于1的

     

    TIMAX=1

     blocktype(TIMAX)="程-預警板塊-大幅上漲模式"
     blockname(TIMAX)= "當日中大幅上漲板塊"

     

     Set b = CreateObject("Stock.Block")
     
     
     
     FOR I=1 TO  TIMAX 
     
        ' init_block_data_TextBoxType.Text =blocktype(I)
      '   init_block_data_TextBoxBlock.Text = blockname(I)
         'init_block_data.show()
     
             application.MsgOut Date &" " &Time& "導出板塊數據....:"&blocktype(I)&"  名稱:"&blockname(I)

          If b.IsTypeExist(blocktype(I))=0 Then  
         
              End if    
     
          If b.IsBlockExist(blockname(I))=0  Then
             
          else
               
                call  b.open(blockname(I),1)
                tnblockcount=b.count
       
                      
                tcfiledire=Application.AppPath+"\systemblock\"
                tcfilename=blockname(I)+".txt"
                tcfilepath=tcfiledire+tcfilename
       
                 Set fs = CreateObject("Scripting.FileSystemObject")

                 Set a = fs.CreateTextFile(tcfilepath, True)
                 a.Close

                for J=0 TO tnblockcount
                       tcmarket=b.GetStockMarket(j)
                       tccode=b.GetStockCode(j)
                       tcstr=tcmarket+tccode
                       call document.debugfile(tcfilepath,tcstr,0)
                next      
               
              End if

        NEXT
     
     
         
        application.MsgOut Date &" " &Time& "導出板塊數據完成!" 

     

  • 金字塔客服:

    問題正在解決中

     

  • 用戶回復:

    count 只是代表總數,有多少個合約就會顯示多少,它不是數組變量。

    其他問題還在解決中

    [此貼子已經被作者于2011-11-8 9:33:58編輯過]

     

  • 網友回復:

    GetStockMarket 不是BUG 可以正常使用

    我貼上一個GetStockMarket的使用,并不是保存到文件里,只是打印一下板塊的合約代碼。從你上面的代碼看,你好像是少用了 OPEN 方法。

     

     Set b = CreateObject("Stock.Block")
     
    call b.open("上海A股",0)

    application.MsgOut  b.count

     
     FOR I=1 TO  b.count
       application.MsgOut b.GetStockCode(i)
     next
        
     

     

  • 網友回復: 有啊, call b.open(blockname(I),1)

【字體: 】【打印文章】【查看評論

相關文章

    沒有相關內容
主站蜘蛛池模板: 欧美熟妇另类久久久久久不卡| 人文艺术欣赏ppt404| 国产va精品免费观看| 卡一卡2卡3卡精品网站| 天天拍天天干天天操| 成年丰满熟妇午夜免费视频| 好深好爽办公室做视频| 国产精品无码永久免费888| 国产区精品在线| 国产精品21区| 日本在线观看a| 欧美成人午夜视频| 欧美黑人巨大videos极品| 男人边吃奶边激烈摸下面的视频 | 日本电影痴汉电车| 精品一区二区三区四区五区 | 一区二区三区影院| 97av麻豆蜜桃一区二区| 国产小视频91| 精品无人区一区二区三区| 欧美性受xxxx狂喷水| 打开双腿让老乞丐玩| 夜夜橹橹网站夜夜橹橹| 国产日韩欧美高清| 又黄又爽又猛大片录像| 国产一级黄色电影| 免费A级毛片AV无码| 亚洲国产欧美日韩精品一区二区三区 | 国产精品免费看香蕉| 国产馆精品推荐在线观看| 国产剧情精品在线| 亚洲综合激情六月婷婷在线观看| 久久综合九色综合网站| 久久久久亚洲av无码去区首| 久久精品视频7| 中文字幕ヘンリー冢本全集| 18禁止午夜福利体验区| 8888奇米影视笫四色88me| 521色香蕉网站在线观看| 美女羞羞喷液视频免费| 欧美老熟妇牲交|