足球*指数及比分数据采集系统

前言

很多朋友喜欢足彩，面对网站每期大量对阵却苦于无法找到一种稳定下注的方法，其实开盘指数及临场前指数的变化，各种蕴藏玄机，本系统采集新浪足彩每期指数，生成各种指数数据，并形成每期报表，便于下注者投注参考。通过本系统可生成球队所有对阵比赛数据、及其赢盘指数规律数据，数据可以导出excel表格，方便使用者二次提取。

运行程序链接：https://pan.baidu.com/s/1yETSldYwSv8kf5NIqGvasA%20
提取码：ddxq

界面

 

 

功能实现

1.网页抓取

通过网页抓取，提取每期开盘及最新变动指数、赢盘指数、比分数据

主要代码：（贴代码比写文字简单，有兴趣的看注解吧）

{/**

Date:2014-3-20

Author:吴chunyuan转载请注明出处

**/}

procedure TFxlcj.Caiji_xl(OperNum:integer);   {本程序主要处理环节： 采集新浪数据 0-初始化 1-盘中  体球网采集:3-联赛球队 4-期数系列 }
var Rp_Count,Get_Web,LineCount,c,i,j,backStart,Count_ws ,Count_qx:integer;
   ThreadId1:DWORD;
   Ret_Get_bszl:TArr;
  // Fmt   :TCharFormat2;
  begin
     Get_Web:=1;
     if Eqhao.Text='' then
       begin
         if OperNum<4 then
           begin
           SendtoMain('采集窗口提示：请输入期号如130808');
            exit;
           end;
       end;

     Csh_qpfx(OperNum); {初始化期号}
     Edit2.CopyToClipboard;  //将剪切板初始化
     sleep(20);
     RichEdit1.PlainText := true;
     //WebBrowser1.SetFocus;
     
    { if WebBrowser1.ReadyState > READYSTATE_LOADING then
      begin
       WebBrowser1.stop;
       WebBrowser1.SetFocus;
      end else
       begin
       SendtoMain('取网页异常,请重来1!');
       exit;
       end;
     }
        WebBrowser1.SetFocus;

         Rp_Count:=0;    {初始化重负复制网页的次数，因为有时复制不成功 上限20次}

        Repeat   {复制网页以提取数据}

               try
                webbrowser1.ExecWB(OLECMDID_SELECTALL,0);
                webbrowser1.ExecWB(OLECMDID_COPY,0);
              // WebBrowser1.ExecWB(OLECMDID_UNDO, 0);
                Get_Web:=0;
                except
                 SendtoMain('复制网页异常,请重来!');
                 Get_Web:=1;
               end;

             if Get_Web=0 then
                begin
                richedit1.Lines.Clear;
               //richedit1.SetFocus;
               richedit1.PasteFromClipboard;
               WebBrowser1.ExecWB(OLECMDID_UNDO, OLECMDEXECOPT_DODEFAULT);    //取消全选
               c:=0;   {寻找选择区域的起点位置}
               // backStart   :=   RichEdit1.SelStart;     //备份光标位置
               RichEdit1.SelStart   :=   c;   //寻找选择区域的起点位置
               // initializeCriticalSection(CS); //没初始化会 提示访问ntdll.dll模块出错
               LineCount:=RichEdit1.Lines.Count;
               SendtoMain('采集失败，请重来!');
               end;
            Rp_Count:=Rp_Count+1;
         until ((LineCount>100) or (Rp_Count>2) );   //重复不超2次

          {

       WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT);  //全选网页
      WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT);     //复制网页
      WordDocu.Range.Paste;            //word文档粘贴
     WebBrowser1.ExecWB(OLECMDID_UNDO, OLECMDEXECOPT_DODEFAULT);    //取消全选
    }

      if Rp_Count>20 then exit;

         {采集期数序列}

         setlength(Ret_Get_bszl,18);  {初始化数组}

         if OperNum=4 then   //取期号序列
           begin
            for i:=10 to 50 do
             begin
               Ret_Get_bszl:=Get_bszl(2,i);
               if (Ret_Get_bszl[0]<>'1.0') and (length(Ret_Get_bszl[0])=6)  then
                 begin
                   Eqhao.Text:=Ret_Get_bszl[0];
                   ComboBox2.Items.Clear;
                    for j:=0 to 9 do
                    ComboBox2.Items.Add(Ret_Get_bszl[j]);
                    ComBobox2.ItemIndex:=0;
                    //Memo1.Lines.Clear;
                     SendtoMain('取期号序列成功:');
                     SendtoMain(Ret_Get_bszl[0]+' '+Ret_Get_bszl[1]+' '+Ret_Get_bszl[2]+' '+Ret_Get_bszl[3]+' '+Ret_Get_bszl[4]+' '+Ret_Get_bszl[5]+' '+Ret_Get_bszl[6]+' '+Ret_Get_bszl[7]+' '+Ret_Get_bszl[8]+' '+ Ret_Get_bszl[9]);
                    exit;
                  end;
               end;
           end;

    {开始采集数据}
    if OperNum<4 then
      begin
         if OperNum=0 then
          SendtoMain('初始化采集中....') else
          SendtoMain('盘中采集中....');
              Count_ws:=0; //未赛场数
              Count_qx:=0;
             for   i:=0   to   LineCount-1   do
              begin

               j:=Caiji_xl_cjoneline(OperNum,i);
               if j=0 then Count_ws:=Count_ws+1;
                if j=2 then Count_qx:=Count_qx+1;
               sleep(5);
               application.ProcessMessages;    //使用简单多线程

             end;
             if Count_ws>0 then
            SendtoMain('采集完毕,未赛场数：'+inttostr(Count_ws-1)+',取消场数:'+inttostr(Count_qx)) else
             SendtoMain('采集失败!');


           
     end;
     
   RichEdit1.SelStart   :=   backStart   ;   //恢复光标位置
        //webbrowser1.SetFocus;
       // WebBrowser1.ExecWB(OLECMDID_UNDO,0);  // OLECMDEXECOPT_DODEFAULT
   end;

主要过程、函数：（贴两个好了。。）

function TFxlcj.Caiji_xl_cjoneline(OperNum:integer;Num:integer):integer;  //返回 0- 无比分 1-有比分    2-取消 3-其他
var rs,i:integer;
 Ret_Get_bszl,sparr:TArr;
   fMainMessage,s,strpk,strbf,strypoz,strypsp:string;
begin
   // EnterCriticalSection(CS);
      rs:=3;
    setlength(Ret_Get_bszl,18);
     i:=Num;
     Ret_Get_bszl:= Get_bszl(1,i);  {取每条比赛记录，返回个字段值}

          {取期号,没用到 if  ( i>=24) and (i<=24)  then
            begin
            strno:=GetFieldValue(' ',richedit1.Lines.Strings[i],1);
            end;}

      if  i>=130 then   //从网页131行开始取比赛资料 
      begin
          if length(Ret_Get_bszl[1])=1 then  {是比赛记录 将进行：取数-插入bslsz }
            begin
            g_IfInsert:=IfInsert_bslsz(Ret_Get_bszl[0],Ret_Get_bszl[3],Ret_Get_bszl[5]);
            if g_IfInsert<0 then exit;
            
            if Ret_Get_bszl[9]<>'' then  {无比分}
               begin
                rs:=0;
               //SendtoMain(strdate+','+str2+','+str3+','+str4+','+str5+','+str6+','+str7+','+str81+','+str82+','+str83+','+str10+','+str11+','+str12);
                try
                 if  g_IfInsert=0 then
                  s := Format('insert into bslsz (bsrq,xh,bssj,lsmc,zd,rangqiu,kd,sp1,sp2,sp3,xsp1,xsp2,xsp3,qhao)   values (%s,%d,%s,%s,%s,%d,%s,%f,%f,%f,%f,%f,%f,%s)',
                 ['#'+Ret_Get_bszl[0]+'#',strtoint(Ret_Get_bszl[2]),quotedstr(Ret_Get_bszl[4]),quotedStr(Ret_Get_bszl[3]),quotedStr(Ret_Get_bszl[5]),strtoint(Ret_Get_bszl[6]),quotedStr(Ret_Get_bszl[7]),strtofloat(Ret_Get_bszl[8]),strtofloat(Ret_Get_bszl[9]),strtofloat(Ret_Get_bszl[10]),strtofloat(Ret_Get_bszl[14]),strtofloat(Ret_Get_bszl[15]),strtofloat(Ret_Get_bszl[16]),Quotedstr(Eqhao.Text)]);
                 g_insertflag:=1;
                
                 except
                 //exit;
                 g_insertflag:=0;
                 SendtoMain('无SP');
                 end;

                if ( (g_IfInsert>0) and (OperNum=0)) or (OperNum=1) then  {无比分，更新最新xsp--重新初始化 }
                 Update_sp(Ret_Get_bszl[0],Ret_Get_bszl[3],Ret_Get_bszl[5],Ret_Get_bszl[8],Ret_Get_bszl[9],Ret_Get_bszl[10],Ret_Get_bszl[14],Ret_Get_bszl[15],Ret_Get_bszl[16],OperNum); {修改xsp1,xsp2,xsp3}

                 {OperNum=1  无比分，更新最新xsp--盘中 }
                 {修改xsp1,xsp2,xsp3}
              end;


           if Ret_Get_bszl[9]='' then  {有比分}
              begin
                 rs:=1;
                try
                 strpk:= Return_pank(strtoint(Ret_Get_bszl[6]),strtoint(Ret_Get_bszl[8]),strtoint(Ret_Get_bszl[10]));
                 strbf:= Return_bf(strtoint(Ret_Get_bszl[8]),strtoint(Ret_Get_bszl[10]));
                 except
                 SendtoMain('errcode:2,'+Ret_Get_bszl[5]);
                 exit;
                 end;

                 //SendtoMain(Ret_Get_bszl[0]+','+Ret_Get_bszl[2]+','+Ret_Get_bszl[3]+','+Ret_Get_bszl[4]+','+Ret_Get_bszl[5]+','+Ret_Get_bszl[6]+','+Ret_Get_bszl[7]+','+Ret_Get_bszl[8]+':'+Ret_Get_bszl[10]+','+Ret_Get_bszl[11]+','+Ret_Get_bszl[12]+','+Ret_Get_bszl[13]+','+Ret_Get_bszl[14]+','+Ret_Get_bszl[15]+','+Ret_Get_bszl[16]+strpk+','+strbf);
                 fMainMessage:=Ret_Get_bszl[2]+' '+Ret_Get_bszl[3]+' '+Ret_Get_bszl[5]+'--'+Ret_Get_bszl[7]+' '+Ret_Get_bszl[8]+':'+Ret_Get_bszl[10]+' '+strpk+','+strbf;
                 SendtoMain(fMainMessage);
                 if  g_IfInsert=0 then
                   try
                    
                    s := Format('insert into bslsz (bsrq,xh,bssj,lsmc,zd,rangqiu,kd,zdrq,kdrq,sp1,sp2,sp3,xsp1,xsp2,xsp3,pjg,bfjg,qhao)   values (%s,%d,%s,%s,%s,%d,%s,%d,%d,%f,%f,%f,%f,%f,%f,%s,%s,%s)',
                    ['#'+Ret_Get_bszl[0]+'#',strtoint(Ret_Get_bszl[2]),quotedstr(Ret_Get_bszl[4]),quotedStr(Ret_Get_bszl[3]),quotedStr(Ret_Get_bszl[5]),strtoint(Ret_Get_bszl[6]),quotedStr(Ret_Get_bszl[7]),strtoint(Ret_Get_bszl[8]),strtoint(Ret_Get_bszl[10]),strtofloat(Ret_Get_bszl[11]),strtofloat(Ret_Get_bszl[12]),strtofloat(Ret_Get_bszl[13]),strtofloat(Ret_Get_bszl[14]),strtofloat(Ret_Get_bszl[15]),strtofloat(Ret_Get_bszl[16]),quotedStr(strpk),quotedStr(strbf),Quotedstr(Eqhao.Text)]);

                    except
                    showmessage('e:'+s);
                    exit;
                   end;

                 if  g_IfInsert>0 then
                   begin
                   setlength(sparr,13);
                   sparr:=Bslsz_sp(Ret_Get_bszl[0],Ret_Get_bszl[3],Ret_Get_bszl[5]); { sp1,nsp1,sp2,nsp2,sp3,nsp3,xsp1,nxsp1,xsp2,nxsp2,xsp3,nxsp3}
                   //SendtoMain(sparr[0]);
                    if strpk='赢' then  {取最新SP 如果数据库最新 sp 或欧指为-1.0 取网页最新值 2013-7-30  }
                       begin  strypoz:=Ret_Get_bszl[11]; strypsp:=Ret_Get_bszl[14];  end;


                    if strpk='平' then
                       begin  strypoz:=Ret_Get_bszl[12]; strypsp:=Ret_Get_bszl[15]; end;

                    if strpk='负' then
                       begin  strypoz:=Ret_Get_bszl[13]; strypsp:=Ret_Get_bszl[16]; end;

                    if strpk='取消' then
                       begin  rs:=2;strypoz:='-1.0'; strypsp:='-1.0'; end; {2013-11-4增加,否则Update_bslsz 无数据，出错}


                     try
                      Update_bslsz(Ret_Get_bszl[0],Ret_Get_bszl[3],Ret_Get_bszl[5],strtoint(Ret_Get_bszl[8]),strtoint(Ret_Get_bszl[10]),strpk,strbf,strypsp,strypoz);
                       except
                      SendtoMain('errcode:update_bslsz'+strypsp+','+strypoz);
                      exit;
                      end;
                  end;
            end;

             if  g_IfInsert=0 then
             Insert_bslsz(s);
        end;{插入结束}
       // RichEdit1.SelLength   :=   0;   //恢复选择

       end;
       result:=rs;
     // LeaveCriticalSection(CS);
end;


 

Function TFxlcj.Get_bszl(Flag:Integer;Row:Integer):TArr; {取每行比赛资料,Flag=1比赛资料  2-取期序列}
 var
 str1,str2,str3,str4,str5,str6,str7,str8,str81,str82,str83,str9,str91,str92,str93,str10,str11,str12:string;
  pos1:integer;
 begin

      str82:='';
      RichEdit1.SelLength   :=   length(richedit1.Lines.Strings[Row]);   //获得选择当前行的长度
      str1:= GetFieldValue(' ',richedit1.Lines.Strings[Row],1);
      str2:= GetFieldValue(' ',richedit1.Lines.Strings[Row],2);
      if Flag=2 then {取期数系列}
        begin

          // SendtoMain(str1+','+str2);

           Result[0]:='1.0';
           Result[1]:='1.0';
           Result[2]:='1.0';
           Result[3]:='1.0';
           Result[4]:='1.0';
           Result[5]:='1.0';
           Result[6]:='1.0';
           Result[7]:='1.0';
           Result[8]:='1.0';
           Result[9]:='1.0';
           Result[10]:='1.0';
           Result[11]:='1.0';
           Result[12]:='1.0';
           Result[13]:='1.0';
           Result[14]:='1.0';
           Result[15]:='1.0';
           Result[16]:='1.0';
           if copy(str2,1,4)='当前' then
              begin
              Result[0]:=str1;
              Result[1]:=copy(str2,5,6);
              Result[2]:=copy(str2,11,6);
              Result[3]:=copy(str2,17,6);
              Result[4]:=copy(str2,23,6);
              Result[5]:=copy(str2,29,6);
              Result[6]:=copy(str2,35,6);
              Result[7]:=copy(str2,41,6);
              Result[8]:=copy(str2,47,6);
              Result[9]:=copy(str2,53,6);
              
             end;
         exit;
         end;
         

      str3:= GetFieldValue(' ',richedit1.Lines.Strings[Row],3);
      str4:= GetFieldValue(' ',richedit1.Lines.Strings[Row],4);
      str5:= GetFieldValue(' ',richedit1.Lines.Strings[Row],5);
      pos1:=pos('(',str5);     {去除主队(中)}
      if pos1>0 then str5:=copy(str5,1,pos1-1);
      str6:= GetFieldValue(' ',richedit1.Lines.Strings[Row],6);
      str7:= GetFieldValue(' ',richedit1.Lines.Strings[Row],7);
      str8:= GetFieldValue(' ',richedit1.Lines.Strings[Row],8);
      pos1:=pos('-',str8);

      if pos1>0 then    {未有比分,无欧指}
       begin
        str81:='-1.0';
        str82:='-1.0';
        str83:='-1.0';
        end;
 {begin 根据str8长度判断 =12  ; >12 ; <12且 <>'---' ;   }

      if length(str8)=12 then    {有大于12的情况 ：1.192.1912.19}
         begin
          str81:=copy(str8,1,4);
          str82:=copy(str8,5,4);
          str83:=copy(str8,9,4);
          end;

          if  str8='---' then
           begin
           str81:='-1.0';
           str82:='-1.0';
           str83:='-1.0';
           end;


      if (length(str8)>12) then    {有大于12的情况 ：1.19 2.19 12.19}
       begin
        if  (length(GetFieldValue('.',str8,1))=1) and  (length(GetFieldValue('.',str8,2))=3) and  (length(GetFieldValue('.',str8,3))=4) then
          begin
           str81:=copy(str8,1,4);
           str82:=copy(str8,5,4);
           str83:=copy(str8,9,5);
           end;
                               {12.11 1.23 3.23}
        if  (length(GetFieldValue('.',str8,1))=2) and  (length(GetFieldValue('.',str8,2))=3) and  (length(GetFieldValue('.',str8,3))=3) then
         begin
          str81:=copy(str8,1,5);
          str82:=copy(str8,6,4);
          str83:=copy(str8,10,4);
          end;

                                    {12.11 11.23 3.23}
        if  (length(GetFieldValue('.',str8,1))=2) and  (length(GetFieldValue('.',str8,2))=4) and  (length(GetFieldValue('.',str8,3))=3) then
         begin
          str81:=copy(str8,1,5);
          str82:=copy(str8,6,5);
          str83:=copy(str8,11,4);
          end;


                                 {1.11 21.23 3.23}
         if  (length(GetFieldValue('.',str8,1))=1) and  (length(GetFieldValue('.',str8,2))=4) and  (length(GetFieldValue('.',str8,3))=3) then
          begin
           str81:=copy(str8,1,4);
           str82:=copy(str8,5,5);
           str83:=copy(str8,10,4);
           end;

                                   {1.11 21.23 13.23}
         if  (length(GetFieldValue('.',str8,1))=1) and  (length(GetFieldValue('.',str8,2))=4) and  (length(GetFieldValue('.',str8,3))=4) then
          begin
           str81:=copy(str8,1,4);
           str82:=copy(str8,5,5);
           str83:=copy(str8,10,5);
           end;

 


      end;


      if (length(str8)<12) and (trim(str8)<>'---')   then {有比分 如果* -腰斩不取}
       begin
        str81:= GetFieldValue(':',str8,1);
        str82:=''; { str82='' 无比分的标志}
        str83:= GetFieldValue(':',str8,2);
         if trim(str8)='*' then
            begin
             str81:='-1';
             str83:='-1';
            end;

      end;

  {end 根据str8长度判断 =12  ; >12 ; <12且 <>'---' ;   }

   str9:= GetFieldValue(' ',richedit1.Lines.Strings[Row],9) ;  {SP}
   {begin 根据str9长度判断 =12  ; >12 }
      if length(str9)=12 then
       begin
        str91:=copy(str9,1,4);
        str92:=copy(str9,5,4);
        str93:=copy(str9,9,4);
        end;

       if length(str9)>12 then    {有大于12的情况 ：1.192.1912.19}
        begin
          if  (length(GetFieldValue('.',str9,1))=1) and   (length(GetFieldValue('.',str9,2))=3) and  (length(GetFieldValue('.',str9,3))=4) then
             begin
             str91:=copy(str9,1,4);
             str92:=copy(str9,5,4);
             str93:=copy(str9,9,5);
             end;
                                 {12.111.233.23}
        if  (length(GetFieldValue('.',str9,1))=2) and  (length(GetFieldValue('.',str9,2))=3) and  (length(GetFieldValue('.',str9,3))=3) then
            begin
              str91:=copy(str9,1,5);
               str92:=copy(str9,6,4);
               str93:=copy(str9,10,4);
            end;

                                  {1.1121.233.23}
           if  (length(GetFieldValue('.',str9,1))=1) and  (length(GetFieldValue('.',str9,2))=4) and  (length(GetFieldValue('.',str9,3))=3) then
              begin
              str91:=copy(str9,1,4);
              str92:=copy(str9,5,5);
              str93:=copy(str9,10,4);
              end;

     end;
   {end根据str9长度判断 =12  ; >12 }

   {begin 以下取 str10,str11,str12 ,str91,str,92,str93}
      if length(str9)>=12 then   {有比分时的nsp}
          begin
           str10:= GetFieldValue(' ',richedit1.Lines.Strings[Row],11);
           str11:= GetFieldValue(' ',richedit1.Lines.Strings[Row],12);
           str12:= GetFieldValue(' ',richedit1.Lines.Strings[Row],13);
           if length(str10)=1 then str10:='-1.0';
           if length(str11)=1 then str11:='-1.0';
           if length(str12)=1 then str12:='-1.0';
          end;


       if str9='---' then   {有比分时无oz-20130814}
         begin
          str91:='-1.0';
          str92:='-1.0';
          str93:='-1.0';
           str10:= GetFieldValue(' ',richedit1.Lines.Strings[Row],11);
           str11:= GetFieldValue(' ',richedit1.Lines.Strings[Row],12);
           str12:= GetFieldValue(' ',richedit1.Lines.Strings[Row],13);
           if length(str10)=1 then str10:='-1.0';
           if length(str11)=1 then str11:='-1.0';
           if length(str12)=1 then str12:='-1.0';
          end;

        if length(str8)>=12 then  {无比分nsp}
        begin
        str10:= GetFieldValue(' ',richedit1.Lines.Strings[Row],10);
        str11:= GetFieldValue(' ',richedit1.Lines.Strings[Row],11);
        str12:= GetFieldValue(' ',richedit1.Lines.Strings[Row],12);
        if trim(str10)='-' then str10:='-1.0' ;
        if trim(str11)='-' then str11:='-1.0' ;
        if trim(str12)='-' then str12:='-1.0' ;
        end;
  {end 取 str10,str11,str12 ,str91,str,92,str93}

   if length(str1)>4 then{取比赛日期}
   g_strdate:=str1;

   {返回各字段到TArr }
   Result[0]:=g_strdate;
   Result[1]:=str1;
   Result[2]:=str2;
   Result[3]:=str3;
   Result[4]:=str4;
   Result[5]:=str5;
   Result[6]:=str6;
   Result[7]:=str7;
   Result[8]:=str81;
   Result[9]:=str82;
   Result[10]:=str83;
   Result[11]:=str91;
   Result[12]:=str92;
   Result[13]:=str93;
   Result[14]:=str10;
   Result[15]:=str11;
   Result[16]:=str12;

   if Result[11]='' then   Result[11]:='1.0';
    if Result[12]='' then Result[12]:='1.0';
    if Result[13]='' then Result[13]:='1.0';
   if Result[14]='' then  Result[14]:='1.0';
    if Result[15]='' then Result[15]:='1.0';
    if Result[16]='' then Result[16]:='1.0';

end;

function TFxlcj.Caiji_xl_cjoneline(OperNum:integer;Num:integer):integer;  //返回 0- 无比分 1-有比分    2-取消 3-其他
var rs,i:integer;
 Ret_Get_bszl,sparr:TArr;
   fMainMessage,s,strpk,strbf,strypoz,strypsp:string;
begin
   // EnterCriticalSection(CS);
      rs:=3;
    setlength(Ret_Get_bszl,18);
     i:=Num;
     Ret_Get_bszl:= Get_bszl(1,i);  {取每条比赛记录，返回个字段值}

          {取期号,没用到 if  ( i>=24) and (i<=24)  then
            begin
            strno:=GetFieldValue(' ',richedit1.Lines.Strings[i],1);
            end;}

      if  i>=130 then   //从网页131行开始取比赛资料 
      begin
          if length(Ret_Get_bszl[1])=1 then  {是比赛记录 将进行：取数-插入bslsz }
            begin
            g_IfInsert:=IfInsert_bslsz(Ret_Get_bszl[0],Ret_Get_bszl[3],Ret_Get_bszl[5]);
            if g_IfInsert<0 then exit;
            
            if Ret_Get_bszl[9]<>'' then  {无比分}
               begin
                rs:=0;
               //SendtoMain(strdate+','+str2+','+str3+','+str4+','+str5+','+str6+','+str7+','+str81+','+str82+','+str83+','+str10+','+str11+','+str12);
                try
                 if  g_IfInsert=0 then
                  s := Format('insert into bslsz (bsrq,xh,bssj,lsmc,zd,rangqiu,kd,sp1,sp2,sp3,xsp1,xsp2,xsp3,qhao)   values (%s,%d,%s,%s,%s,%d,%s,%f,%f,%f,%f,%f,%f,%s)',
                 ['#'+Ret_Get_bszl[0]+'#',strtoint(Ret_Get_bszl[2]),quotedstr(Ret_Get_bszl[4]),quotedStr(Ret_Get_bszl[3]),quotedStr(Ret_Get_bszl[5]),strtoint(Ret_Get_bszl[6]),quotedStr(Ret_Get_bszl[7]),strtofloat(Ret_Get_bszl[8]),strtofloat(Ret_Get_bszl[9]),strtofloat(Ret_Get_bszl[10]),strtofloat(Ret_Get_bszl[14]),strtofloat(Ret_Get_bszl[15]),strtofloat(Ret_Get_bszl[16]),Quotedstr(Eqhao.Text)]);
                 g_insertflag:=1;
                
                 except
                 //exit;
                 g_insertflag:=0;
                 SendtoMain('无SP');
                 end;

                if ( (g_IfInsert>0) and (OperNum=0)) or (OperNum=1) then  {无比分，更新最新xsp--重新初始化 }
                 Update_sp(Ret_Get_bszl[0],Ret_Get_bszl[3],Ret_Get_bszl[5],Ret_Get_bszl[8],Ret_Get_bszl[9],Ret_Get_bszl[10],Ret_Get_bszl[14],Ret_Get_bszl[15],Ret_Get_bszl[16],OperNum); {修改xsp1,xsp2,xsp3}

                 {OperNum=1  无比分，更新最新xsp--盘中 }
                 {修改xsp1,xsp2,xsp3}
              end;


           if Ret_Get_bszl[9]='' then  {有比分}
              begin
                 rs:=1;
                try
                 strpk:= Return_pank(strtoint(Ret_Get_bszl[6]),strtoint(Ret_Get_bszl[8]),strtoint(Ret_Get_bszl[10]));
                 strbf:= Return_bf(strtoint(Ret_Get_bszl[8]),strtoint(Ret_Get_bszl[10]));
                 except
                 SendtoMain('errcode:2,'+Ret_Get_bszl[5]);
                 exit;
                 end;

                 //SendtoMain(Ret_Get_bszl[0]+','+Ret_Get_bszl[2]+','+Ret_Get_bszl[3]+','+Ret_Get_bszl[4]+','+Ret_Get_bszl[5]+','+Ret_Get_bszl[6]+','+Ret_Get_bszl[7]+','+Ret_Get_bszl[8]+':'+Ret_Get_bszl[10]+','+Ret_Get_bszl[11]+','+Ret_Get_bszl[12]+','+Ret_Get_bszl[13]+','+Ret_Get_bszl[14]+','+Ret_Get_bszl[15]+','+Ret_Get_bszl[16]+strpk+','+strbf);
                 fMainMessage:=Ret_Get_bszl[2]+' '+Ret_Get_bszl[3]+' '+Ret_Get_bszl[5]+'--'+Ret_Get_bszl[7]+' '+Ret_Get_bszl[8]+':'+Ret_Get_bszl[10]+' '+strpk+','+strbf;
                 SendtoMain(fMainMessage);
                 if  g_IfInsert=0 then
                   try
                    
                    s := Format('insert into bslsz (bsrq,xh,bssj,lsmc,zd,rangqiu,kd,zdrq,kdrq,sp1,sp2,sp3,xsp1,xsp2,xsp3,pjg,bfjg,qhao)   values (%s,%d,%s,%s,%s,%d,%s,%d,%d,%f,%f,%f,%f,%f,%f,%s,%s,%s)',
                    ['#'+Ret_Get_bszl[0]+'#',strtoint(Ret_Get_bszl[2]),quotedstr(Ret_Get_bszl[4]),quotedStr(Ret_Get_bszl[3]),quotedStr(Ret_Get_bszl[5]),strtoint(Ret_Get_bszl[6]),quotedStr(Ret_Get_bszl[7]),strtoint(Ret_Get_bszl[8]),strtoint(Ret_Get_bszl[10]),strtofloat(Ret_Get_bszl[11]),strtofloat(Ret_Get_bszl[12]),strtofloat(Ret_Get_bszl[13]),strtofloat(Ret_Get_bszl[14]),strtofloat(Ret_Get_bszl[15]),strtofloat(Ret_Get_bszl[16]),quotedStr(strpk),quotedStr(strbf),Quotedstr(Eqhao.Text)]);

                    except
                    showmessage('e:'+s);
                    exit;
                   end;

                 if  g_IfInsert>0 then
                   begin
                   setlength(sparr,13);
                   sparr:=Bslsz_sp(Ret_Get_bszl[0],Ret_Get_bszl[3],Ret_Get_bszl[5]); { sp1,nsp1,sp2,nsp2,sp3,nsp3,xsp1,nxsp1,xsp2,nxsp2,xsp3,nxsp3}
                   //SendtoMain(sparr[0]);
                    if strpk='赢' then  {取最新SP 如果数据库最新 sp 或欧指为-1.0 取网页最新值 2013-7-30  }
                       begin  strypoz:=Ret_Get_bszl[11]; strypsp:=Ret_Get_bszl[14];  end;


                    if strpk='平' then
                       begin  strypoz:=Ret_Get_bszl[12]; strypsp:=Ret_Get_bszl[15]; end;

                    if strpk='负' then
                       begin  strypoz:=Ret_Get_bszl[13]; strypsp:=Ret_Get_bszl[16]; end;

                    if strpk='取消' then
                       begin  rs:=2;strypoz:='-1.0'; strypsp:='-1.0'; end; {2013-11-4增加,否则Update_bslsz 无数据，出错}


                     try
                      Update_bslsz(Ret_Get_bszl[0],Ret_Get_bszl[3],Ret_Get_bszl[5],strtoint(Ret_Get_bszl[8]),strtoint(Ret_Get_bszl[10]),strpk,strbf,strypsp,strypoz);
                       except
                      SendtoMain('errcode:update_bslsz'+strypsp+','+strypoz);
                      exit;
                      end;
                  end;
            end;

             if  g_IfInsert=0 then
             Insert_bslsz(s);
        end;{插入结束}
       // RichEdit1.SelLength   :=   0;   //恢复选择

       end;
       result:=rs;
     // LeaveCriticalSection(CS);
end;

2.数据分析

比赛结束，根据采集到的数据生成分析数据，包括：每期胜、负、平的场数，计算赢盘平均指数，数据展示每项指标提供排序，可以得出每期赢盘规律性结果。