第一行是文件头;我需输入第一个卡号和最后一个卡号后,自动将a.text分割成b.text后保存,请问如何实现???原文件a.text:
05031230100062057 05031230100062074 2007-06-30 50
05031230100062057 405757018509636621
05031230100062058 400100424751688294
05031230100062059 400167109113759136
05031230100062060 405609461110912942
05031230100062061 405132037466392258
05031230100062062 405330701829114476
05031230100062063 405494441730329572
05031230100062064 405967799114365404
05031230100062065 405045755703775872
05031230100062066 405259267774234674
05031230100062067 405928088018827981
05031230100062068 405733864242576657
05031230100062069 405493299478123605
05031230100062070 405762853107003383
05031230100062071 405408917343377348
05031230100062072 405618422352710006
05031230100062073 405261222482420728
05031230100062074 405497980857549466分割后的文件b.text:
05031230100062060 05031230100062069 2007-06-30 50
05031230100062060 405609461110912942
05031230100062061 405132037466392258
05031230100062062 405330701829114476
05031230100062063 405494441730329572
05031230100062064 405967799114365404
05031230100062065 405045755703775872
05031230100062066 405259267774234674
05031230100062067 405928088018827981
05031230100062068 405733864242576657
05031230100062069 405493299478123605

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      a,b: TStringList;
      I,J,K: integer;
      s: string;
    begin
      a:= TStringList.Create;
      b:= TStringList.Create;
      a.LoadFromFile('d:\a.txt');
      b.Add(edit1.Text+' '+edit2.Text+' '+datetostr(date));
      for I:= 1 to a.Count-1 do
      begin
        s:= trim(copy(a[I],0,pos(' ',a[I])));
        if s = edit1.Text then J:= I;
        if s = edit2.Text then K:= I;
      end;
      for I:= J to K do
      b.Add(a[I]);
      b.SaveToFile('d:\b.txt');
      a.Free;
      b.Free;
    end;
      

  2.   

    晕,opendialog和savedialog控件具体用法我觉得楼主是不是应该自己去试试呢?
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      a,b: TStringList;
      I,J,K: integer;
      s: string;
    begin
      a:= TStringList.Create;
      b:= TStringList.Create;
      a.LoadFromFile('d:\a.txt');
      b.Add(edit1.Text+' '+edit2.Text+' '+datetostr(date));
      for I:= 1 to a.Count-1 do
      begin
        s:= trim(copy(a[I],0,pos(' ',a[I])));
        if s = edit1.Text then J:= I;
        if s = edit2.Text then K:= I;
      end;
      for I:= J to K do
      b.Add(a[I]);
      b.SaveToFile('d:\b.txt');
      a.Free;
      b.Free;
    end;
    呵,噌分噌分
      

  4.   

    再帮我完善一下,请见:http://community.csdn.net/Expert/topic/4252/4252452.xml?temp=.1850397