[原创]导出合约和数据 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

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

file.close()

print("导出金字塔合约")

end sub

主题：[原创]导出合约和数据