请问这个TXT文件如何格式化？谢谢！！(200分)

B

bombgod

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #1

原来的文件格式是：
01 一般公共服务 1 0 0
0101 人大事务 2 0 0
现在想变成：
01,一般公共服务,1,0,0
0101,人大事务,2,0,0

请问这样的程序该怎么写？谢谢！！

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
TmpList : TStringList;
i : integer;
begin
TmpList := TStringList.Create;
TmpList.LoadFromFile('c:/test.txt');
for i := 0 to TmpList.Count -1 do
begin
StringReplace(TmpList.Strings,' ',',',[rfReplaceAll]);
end;
TmpList.SaveToFile('c:/test.txtt');
TmpList.Free;
end;

 

W

weiliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #3

var
str:string;
begin
str:='01 一般公共服务 1 0 0';
str:=StringReplace(str,' ',',',[rfReplaceAll]);
showmessage(str);
end;

 

I

icc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #4

正解

 

B

bombgod

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #5

多人接受答案了。