给我个好的算法提取文本数据--导入

Question

模板
CELL     CHGR     SAS       ODPDCHLIMIT                                 
GAAXYJB    0      QUALITY    35                                         
           1      QUALITY   100                                         
DAAHSC4    0      QUALITY    35                                         
           1      QUALITY   100                                         
GAAXCX4    0      QUALITY    35                                         
           1      QUALITY   100                                         
GAAXZL3    0      QUALITY    35                                         
           1      QUALITY   100                                         
GAAXZL2    0      QUALITY    10                                         
           1      QUALITY   100                                         
           2      QUALITY    50                                         
DAAFLL3    0      QUALITY    50                                         
           1      QUALITY   100                                         
DAAFLL2    0      QUALITY    50                                         
           1      QUALITY   100                                         
GAAPASN    0      QUALITY    50                                         
           1      QUALITY   100                                         
GAAXYJA    0      QUALITY    35                                         
           1      QUALITY   100                                         
GAAJKSM    0      QUALITY   100 
左边空的是一样的数据。数据来源文本文件，现在要截取数据到数据库文件里面，大家给个好的流程吧。谢谢诶

Answer 1

直接复制到Excel里面，然后从Excel导到数据库里面就好了。
不会很复杂的哈：）

Answer 2

不行啦。里面的文件不全是上面那样。CELL     CGI                  BSIC  BCCHNO  AGBLK  MFRMS  IRC           
GAAJKSM  460-00-10014-10005   27      80    1      2      ON            
                                                                        
TYPE     BCCHTYPE             FNOFFSET      XRANGE  CSYSTYPE            
INT      NCOMB                   0          NO      GSM900              
                                                                        
CELLIND  RAC  RIMNACC  GAN                                              
H'061                                                                   
                                                                        
CELL     CGI                  BSIC  BCCHNO  AGBLK  MFRMS  IRC           
DAAJKSM  460-00-10014-10002   21     540    1      5      ON            
                                                                        
TYPE     BCCHTYPE             FNOFFSET      XRANGE  CSYSTYPE            
INT      NCOMB                   0          NO      GSM1800             
                                                                        
CELLIND  RAC  RIMNACC  GAN                                              
H'060                                                                   
                                                                        
CELL     CGI                  BSIC  BCCHNO  AGBLK  MFRMS  IRC           
GAALAX3  460-00-10014-20619   40      68    1      2      ON            
                                                                        
TYPE     BCCHTYPE             FNOFFSET      XRANGE  CSYSTYPE            
INT      NCOMB                   0          NO      GSM900              
                                                                        
CELLIND  RAC  RIMNACC  GAN                                              
H'05F                                                                   
                                                                        
CELL     CGI                  BSIC  BCCHNO  AGBLK  MFRMS  IRC           
GAALAX2  460-00-10014-20618   11      71    1      2      ON            
                                                                        
TYPE     BCCHTYPE             FNOFFSET      XRANGE  CSYSTYPE            
INT      NCOMB                   0          NO      GSM900              
                                                                        
CELLIND  RAC  RIMNACC  GAN                                              
H'05E    

Answer 3

MARK你用16位的编辑器看看空格位置有可能是个分隔符吧

Answer 4

把多个空格替换成一个。用stringlist切。

Answer 5

道理就是那么个道理,把每一行读到list中(你甚至可以只用memo组件),然后对每一行进行分割,可以根据空格分割,也可以吧空格替换成一个特殊字符,然后继续用list将该行数据分成多个item,剩下的就是写数据库了

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
  strlist,strlistp: TStringList;
  vOpenDialog: TOpenDialog;
begin
  strlist := TStringList.Create;
  vOpenDialog := TOpenDialog.Create(nil);
  try
    if vOpenDialog.Execute then
    begin
      strList.LoadFromFile(vOpenDialog.FileName);
      for i:=1 to strList.Count-1 do
      begin
        strlistp := TStringList.Create;
        try
          strlistp.Delimiter := ',';
          strListp.DelimitedText := StringReplace(TrimRight(strList[i]),'    ',',',[rfReplaceAll]);
          for j:=0 to strListp.Count-1 do
          begin
            Memo1.Lines.Add(strListp[j]);
          end;
        finally
          strlistp.Free;
        end;
      end;
    end;
  finally
    vOpenDialog.Free;
    strList.Free;
  end;
end;再改改吧，每条记录存到数据库中

Answer 7

起码你的字符串是规律起头的是 TYPE 或 CELL 或 CELLING 读头部判断处理