delphi对文本txt编辑

来源：百度知道 编辑：UC知道 时间：2024/05/27 13:58:29
我要对一个txt文档进行修改，想用delphi来修改，问题是：
1：怎么提取文档中的行（行的第一个字是“baby”），然后写入到另一个txt文档中
2：对文档中的含有“baby”的行和含有“girl”的行进行互换，然后写入到另一个txt文档中。
3：删除文档中某行的某些字，然后将这些字换为其他的字

解决了我这个问题的话，还可以加100分，谢谢了，要是不明白可以留下联系方式，我来和你QQ。希望会的能够帮个忙，先100分谢谢了，答对了再100分

用个memo或者其他的方式.很简单的.
有空去我博客.
h.oosmile.cn看看吧.

第一个是：
var
i:integer;
begin

listbox1.Items.LoadFromFile('1.txt');

for i:=0 to listbox1.Count-1 do
begin
if pos('baby',listbox1.Items [listbox1.Tag+i])<>0 then

listbox2.Items.Add(listbox1.Items [listbox1.Tag+i]);
end;

end;

第二个是：
var
i:integer;
st:string;
begin

listbox1.Items.LoadFromFile('1.txt');

for i:=0 to listbox1.Count-1 do
begin
st:= listbox1.Items [listbox1.Tag+i];
st:=stringreplace(st,'baby','girl',[rfignorecase]);
listbox2.Items.Add(st);
end;

第三：
stringreplace(st,'某些字','换为其他的字',[rfignorecase]);

暂时没空... MARK~~~