[原創(chuàng)]導(dǎo)出合約和數(shù)據(jù) [金字塔]
- 咨詢內(nèi)容：
sub exportsymbols()
market=array("sq","dq","zq","zj","sy")
mymarkets=array("shfe","dce","czce","cffex","shfe")
dim contractvolume
dim contractopenint
dim contractlabel
dim contractmarket
set fso = createobject("scripting.filesystemobject")
set file = fso.createtextfile("d:\\weistocksymbols.csv",true)
set block=createobject("stock.block")
for i=0 to ubound(market)
for j=0 to marketdata.getreportcount(market(i))-1
set myreport=marketdata.getreportdatabyindex(market(i),j)
suffixlabel=right(myreport.label,2)
prefixlabel=left(myreport.label,len(myreport.label)-2)
if (suffixlabel="00" or suffixlabel="01" or suffixlabel="02" or suffixlabel="03" or suffixlabel="04" or suffixlabel="05" or suffixlabel="06" or suffixlabel="07" or suffixlabel="08" or suffixlabel="09" or suffixlabel="10" or suffixlabel="11" or suffixlabel="12" or suffixlabel="13") and lcase(prefixlabel)<>"gn" then
file.writeline market(i)&"_"&myreport.label
end if
next
next
file.close()
print("導(dǎo)出金字塔合約")
end sub
- 金字塔客服： sub exportdata() markets=array("sq","dq","zq","zj","sy") set block=createobject("stock.block") set fso = createobject("scripting.filesystemobject") futureday=base&"\\futureday\\" futuremin=base&"\\futuremin\\" futuretick=base&"\\futuretick\\" createpath fso,futureday createpath fso,futuremin createpath fso,futuretick for i=0 to ubound(markets) for j=0 to marketdata.getreportcount(markets(i))-1 set myreport=marketdata.getreportdatabyindex(markets(i),j) code=myreport.label market=myreport.marketname set myhistory = marketdata.gethistorydata(code,market,0) if myhistory.count>0 then set file = fso.createtextfile(futuremin&code&"_min.csv",true) for n=0 to myhistory.count - 1 file.writeline myhistory.date(n)&","&myhistory.open(n)&","&myhistory.high(n)&","&myhistory.low(n)&","&myhistory.close(n)&","&myhistory.volume(n)&","&myhistory.openint(n) next file.close end if set myhistory = marketdata.gethistorydata(code,market,5) if myhistory.count>0 then set file = fso.createtextfile(futureday&code&"_day.csv",true) for n=0 to myhistory.count - 1 file.writeline myhistory.date(n)&","&myhistory.open(n)&","&myhistory.high(n)&","&myhistory.low(n)&","&myhistory.close(n)&","&myhistory.volume(n)&","&myhistory.openint(n) next file.close end if set minutedata = marketdata.getminutedata(code,market) if minutedata.count>0 then mydate=convertdate(minutedata.date(n)) set file = fso.createtextfile(futuretick&code&"_tick_"&mydate&".csv",true) for n=0 to minutedata.count - 1 file.writeline minutedata.date(n)&","&minutedata.newprice(n)&","&minutedata.bidprice(n)&","&minutedata.askprice(n)&","&minutedata.volume(n)&","&minutedata.bidvol(n)&","&minutedata.askvol(n)&","&minutedata.openint(n) next file.close end if next next print("導(dǎo)出數(shù)據(jù)")end sub
有思路，想編寫(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è)