通达信数据导入(日线,五分钟线)函数,已经做好

Discussion in '强者博弈证券期货自动交易系统' started by yzwyq, Dec 23, 2010.

  1. yzwyq

    yzwyq

    有兴趣的,可以把数据导入的大智慧导入,改一下,把函数名中的

    "DZH"改为"TDX"即可.

    程序更新文件已经上传,感兴趣的可以下载
     
    yzwyq, Dec 23, 2010
    #1
  2. yzwyq

    yzwyq

    dobj.text="当前品种历史数据输入";
    dobj.textcolor=0xffffff;
    dobj.execstep=5000;
    //
    var m_path=GetExecPath();
    var m_target_name.strVal=ThisDocName;
    //
    //pobo程序路径:35/41
    var m_pobo_path="C:\Pobo ";
    var m_dzh_path="C:\new_tdx ";
    //
    var m_space_str=appstr_space();
    var m_tab_str=appstr_tab();
    var m_return_str=appstr_enter();
    while(TRUE)
    {
    Wait_Dblclick(20000);
    //
    dobj.text="开始当前品种历史数据输入处理......";
    //
    var m_csel_no=m_dsp_pz_sel;
    var m_pz_name="";
    m_pz_name=GetPzName(m_csel_no);
    if(m_pz_name=="") continue;
    var m_pz_type=GetPzType(m_csel_no) ;//获得品种类型
    //
    var m_file_name="";
    if(m_pz_type==64)
    {
    SetAskItem="提示:";
    SetAskText="在用POBO彭博软件补充本程序历史数据之前

    一定要在POBO彭博软件中查看相应品种的历史曲线

    (日线,三分钟线,五分钟线,和当天走势图)

    确认继续吗?";
    if(QueryMessage==1)
    {
    m_file_name=TrimRightStr(m_pobo_path);
    SetAskItem="提示:";
    SetAskText="Pobo软件路径当前设置为<<"+m_file_name+">>,

    需要重新选择吗?";
    if(QueryMessage==1)
    {
    m_file_name=SelPath;
    SetAskItem="确认:";
    SetAskText="Pobo软件路径重新设为: <<"+m_file_name+">>?";
    if(QueryMessage==1)
    {
    m_pobo_path=m_file_name;
    ChangeMpuStrData(35,m_pobo_path);
    SaveDocToFile=1;
    }
    }
    }
    }
    else
    {
    SetAskItem="提示:";
    SetAskText="在用通达信软件补充本程序历史数据之前

    一定要在通达信软件中查看相应品种的历史曲线(日线,五分钟线)

    或补全相应品种的历史数据,确认继续吗?";
    if(QueryMessage==1)
    {
    m_file_name=TrimRightStr(m_dzh_path);
    SetAskItem="提示:";
    SetAskText="通达信软件路径当前设置为<<"+m_file_name+">>,

    需要重新选择吗?";
    if(QueryMessage==1)
    {
    m_file_name=SelPath;
    SetAskItem="确认:";
    SetAskText="通达信软件路径重新设为: <<"+m_file_name+">>?";
    if(QueryMessage==1)
    {
    m_dzh_path=m_file_name;
    ChangeMpuStrData(41,m_dzh_path);
    SaveDocToFile=1;
    }
    }
    }
    }
    //
    if(m_file_name!="")
    {
    if(m_pz_type==64)
    {
    OpenLsLib(m_pz_name,m_pz_type,0,0);
    QhPoboLsDataToLSLib(m_file_name,-1,0.001,0);
    SaveDataToFile("");
    OpenLsLib(m_pz_name,m_pz_type,1,0);
    QhPoboLsDataToLSLib(m_file_name,-1,0.001,0,1333);
    SaveDataToFile("");
    OpenLsLib(m_pz_name,m_pz_type,4,0);
    QhPoboLsDataToLSLib(m_file_name,-1,0.001,0,1333);
    SaveDataToFile("");
    OpenLsLib(m_pz_name,m_pz_type,7,0);
    QhPoboLsDataToLSLib(m_file_name,-1,0.001,0,1333);
    SaveDataToFile("");
    OpenLsLib(m_pz_name,m_pz_type,9,0);
    QhPoboLsDataToLSLib(m_file_name,-1,0.001,0,1333);
    SaveDataToFile("");
    }
    else
    {
    OpenLsLib(m_pz_name,m_pz_type,1,0);
    QhTDXLsDataToLSLib(m_file_name,-1,0.001,0);
    SaveDataToFile("");
    OpenLsLib(m_pz_name,m_pz_type,4,0);
    QhTDXLsDataToLSLib(m_file_name,-1,0.001,0);
    SaveDataToFile("");
    }
    CloseLsLib();
    //
    }
    //
    dobj.text="当前品种历史数据输入";
    //
    }
     
    yzwyq, Dec 23, 2010
    #2
  3. yzwyq

    yzwyq

    dobj.text="所有品种历史数据输入";
    dobj.textcolor=0xffffff;
    dobj.execstep=5000;
    //
    var m_path=GetExecPath();
    var m_target_name.strVal=ThisDocName;
    //
    //pobo程序路径:35/41
    var m_pobo_path="C:\Pobo ";
    var m_dzh_path="c:\new_tdx ";
    //
    var m_space_str=appstr_space();
    var m_tab_str=appstr_tab();
    var m_return_str=appstr_enter();
    while(TRUE)
    {
    Wait_Dblclick(20000);
    //
    dobj.text="开始所有品种历史数据输入处理......";
    //
    var m_file_name="";
    var m_exec_sel=0;
    //
    SetAskItem="选择:";
    SetAskText="补充期货数据还是股票数据?

    按确定则进行期货数据补充,按否则反";
    if(QueryMessage==1)
    {
    m_exec_sel=1;
    SetAskItem="提示:";
    SetAskText="在用POBO彭博软件补充本程序历史数据之前

    一定要在POBO彭博软件中查看相应品种的历史曲线

    (日线,三分钟线,五分钟线,和当天走势图)

    确认继续吗?";
    if(QueryMessage==1)
    {
    m_file_name=TrimRightStr(m_pobo_path);
    SetAskItem="提示:";
    SetAskText="Pobo软件路径当前设置为<<"+m_file_name+">>,

    需要重新选择吗?";
    if(QueryMessage==1)
    {
    m_file_name=SelPath;
    SetAskItem="确认:";
    SetAskText="Pobo软件路径重新设为: <<"+m_file_name+">>?";
    if(QueryMessage==1)
    {
    m_pobo_path=m_file_name;
    ChangeMpuStrData(35,m_pobo_path);
    SaveDocToFile=1;
    }
    }
    }
    }
    else
    {
    SetAskItem="提示:";
    SetAskText="在用通达信软件补充本程序历史数据之前

    一定要在通达信软件中查看相应品种的历史曲线(日线,五分钟线)

    或补全相应品种的历史数据,确认继续吗?";
    if(QueryMessage==1)
    {
    m_file_name=TrimRightStr(m_dzh_path);
    SetAskItem="提示:";
    SetAskText="通达信软件路径当前设置为<<"+m_file_name+">>,

    需要重新选择吗?";
    if(QueryMessage==1)
    {
    m_file_name=SelPath;
    SetAskItem="确认:";
    SetAskText="通达信软件路径重新设为: <<"+m_file_name+">>?";
    if(QueryMessage==1)
    {
    m_dzh_path=m_file_name;
    ChangeMpuStrData(41,m_dzh_path);
    SaveDocToFile=1;
    }
    }
    }
    }
    //
    if(m_file_name!="")
    {
    for(var m_csel_no=0;m_csel_no<24;m_csel_no++)
    {
    var m_pz_name="";
    m_pz_name=GetPzName(m_csel_no);
    if(m_pz_name=="") continue;
    var m_pz_type=GetPzType(m_csel_no) ;//获得品种类型
    //
    if(m_exec_sel==1)
    {
    OpenLsLib(m_pz_name,m_pz_type,0,0);
    QhPoboLsDataToLSLib(m_file_name,-1,0.001,0);
    SaveDataToFile("");
    OpenLsLib(m_pz_name,m_pz_type,1,0);
    QhPoboLsDataToLSLib(m_file_name,-1,0.001,0);
    SaveDataToFile("");
    OpenLsLib(m_pz_name,m_pz_type,4,0);
    QhPoboLsDataToLSLib(m_file_name,-1,0.001,0);
    SaveDataToFile("");
    OpenLsLib(m_pz_name,m_pz_type,7,0);
    QhPoboLsDataToLSLib(m_file_name,-1,0.001,0);
    SaveDataToFile("");
    OpenLsLib(m_pz_name,m_pz_type,9,0);
    QhPoboLsDataToLSLib(m_file_name,-1,0.001,0);
    SaveDataToFile("");
    }
    else
    {
    OpenLsLib(m_pz_name,m_pz_type,1,0);
    QhTDXLsDataToLSLib(m_file_name,-1,0.001,0);
    SaveDataToFile("");
    OpenLsLib(m_pz_name,m_pz_type,4,0);
    QhTDXLsDataToLSLib(m_file_name,-1,0.001,0);
    SaveDataToFile("");
    }
    CloseLsLib();
    }
    //
    }
    //
    dobj.text="所有品种历史数据输入";
    //
    }
     
    yzwyq, Dec 23, 2010
    #3