[原創]導出合約和數據 [金字塔]
- 咨詢內容：
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("導出金字塔合約")
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("導出數據")end sub
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊