如何用DELPHI把文本a.txt转化成文本b.txt，谢谢！
a.txt内容：(注：以sulll=开始，end结束的循环体）
sulll=1111;
this is text
date1 date2 date3 date4
li12        aab
            abc
end
sulll=2222;
this is text
date1 date2 date3 date4
li13        aab
            bbc
            ccc
end
sulll=3333;
this is text
date1 date2 date3 date4
li14        bbb
            abc
end

b.txt内容：
sulll=1111,li12,aab,abc;
sulll=2222,li13,aab,bbc,ccc;
sulll=1111,li14,bbb,abc;

先检查a.txt数据是否和你期望的数据格式一致，若格式一致，则逐行读取a.txt再写入b.txt。
这个是笨方法，不知道有没有更好的方法。

关键是从a.txt到b.txt内容的格式要发生变化才行。（注：a.txt的格式是固定的）

哪位大侠，帮帮，我是新手，只会把一个文件复制到另一个文件中，不会判断、循环、改变文档结构，谢谢各位了，帮帮我！

procedure TForm1.Button1Click(Sender: TObject);
var
    myfile:Textfile;
    s:String;
begin
AssignFile(myfile,'a.txt');
Reset(myfile);
while not eof(myfile) do
begin
    Readln(myfile,s);
    Memo1.Lines.Add(s);
end;
CloseFile(myfile);
end;

procedure TForm1.Button3Click(Sender: TObject);   //写文件
var
stxt:TextFile;
begin
AssignFile(stxt,'b.txt');
Rewrite(stxt);
Writeln(stxt, Memo1.Text);
CloseFile(stxt);
end;

哪位大侠？帮帮忙吧！

这个你可以参考一下，但是没完全实现：
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
        uses StrUtils;
{$R *.dfm}

function spaceprocess(s:string):string;
var
 T : String;
begin
 T := AnsiReplaceStr(S, ' ',',');
 while T <> S do
 begin
   S := T;
   T := AnsiReplaceStr(S, ' ',',');
 end;
 Result := AnsiReplaceStr(S, ' ',',');
end;



procedure TForm1.Button1Click(Sender: TObject);
var
  myfile:textfile;
  str,str1,str2,str3,str4,str5,str6:string;
begin
  memo1.Clear;
  assignfile(myfile,'E:\AAABBBCCC\myfl.txt');
  reset(myfile);
  while not eof(myfile) do
  begin
  readln(myfile,str1);
  readln(myfile,str2);
  readln(myfile,str3);
  readln(myfile,str4);
  readln(myfile,str5);
  readln(myfile,str6);
  str:=str1+str4+str5;
  memo1.Lines.Add(spaceprocess(str));
  end;
  closefile(myfile);
end;


end.
效果图：