[原創(chuàng)]篩選主力合約的宏 [金字塔]
- 咨詢內(nèi)容：
以下內(nèi)容為程序代碼:
[此貼子已經(jīng)被作者于2011-1-22 19:47:43編輯過]
1 sub getmydominantcontract()
2 dim marketname
3 dim sblock
4 dim contractvol
5
6 marketname = array("SQ","DQ","ZQ","ZJ")
7 set sblock = createobject("stock.block")
8
9 for i=0 to ubound(marketname)
10 n=marketdata.GetReportCount(marketname(i))
11 for j=0 to n-1
12 set myreport = marketdata.GetReportDataByIndex(marketname(i),j)
13 suffixlabel = right(myreport.label,2)
14 if suffixlabel＞="01" and suffixlabel＜="12" then
15 if myreport.volume＞contractvol then
16 contractvol=myreport.volume
17 contractlabel=myreport.label
18 end if
19 end if
20 if suffixlabel = "20" then
21 sblock.addstock marketname(i),contractlabel
22 contractvol=0
23 c自選","自設(shè)股"
28 end sub
29 - 金字塔客服：
以下內(nèi)容為程序代碼:
1 sub getdominantcontract()
2 dim block
3 dim market
4
5 set block=createobject("stock.block")
6
7 block.open "自設(shè)股",1
8
9 for i=0 to block.count-1
10 block.removeat(0)
11 next
12
13 market=array("SQ","DQ","ZQ","ZJ")
14 c"
16 contractvolume=0
17
18 for i=0 to ubound(market)
19 n=marketdata.GetReportCount(market(i))
20 for j=0 to n-1
21 set report1=marketdata.GetReportDataByIndex(market(i),j)
22 suffixlabel=right(report1.label,2)
23
24 if suffixlabel="00" then
25 block.addstock contractmarket,contractlabel
26 c"
28 contractvolume=0
29 end if
30
31 if suffixlabel＞="01" and suffixlabel＜="12" then
32 if report1.volume＞contractvolume then
33 contractlabel=report1.label
34 contractmarket=market(i)
35 contractvolume=report1.volume
36 end if
37 end if
38 next
39 next
40
41 block.addstock contractmarket,contractlabel
42 block.tosave "自選","自設(shè)股"
43 msgbox "完成篩選主力合約"
44 end sub - 用戶回復(fù)：
謝謝！分享！
- 網(wǎng)友回復(fù)：
這個(gè)該怎么用？
還真不會(huì)，指點(diǎn)指點(diǎn)？
- 網(wǎng)友回復(fù)： 具體如何建立一個(gè)宏呢？能用一個(gè)視頻具體說明一下嗎？或者有什么具體的教程沒有？
如果以上指標(biāo)公式不適用于您常用的行情軟件
或者您想改編成選股公式，以便快速選出某種形態(tài)個(gè)股的話，
可以聯(lián)系我們相關(guān)技術(shù)人員 QQ: 262069696 進(jìn)行 有償 改編！
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)