L lay123 Unregistered / Unconfirmed GUEST, unregistred user! 2007-07-25 #1 编写程序，把文本文件中所有GOOD改为BAD。假设有一个文本文件名为“Spider.txt”，其中是一段英文字母的文章，含有若干个字符串“GOOD”，要求将这些字符串改为字符串“BAD”，并保存为文件名为“Spider2.txt”。（不区分大小写）
编写程序，把文本文件中所有GOOD改为BAD。假设有一个文本文件名为“Spider.txt”，其中是一段英文字母的文章，含有若干个字符串“GOOD”，要求将这些字符串改为字符串“BAD”，并保存为文件名为“Spider2.txt”。（不区分大小写）
M Miros Unregistered / Unconfirmed GUEST, unregistred user! 2007-07-25 #2 100分！i like it! procedure TForm1.Button1Click(Sender: TObject); begin with TStringList.Create() do begin LoadFromFile('Spider.txt'); Text := StringReplace(Text, 'GOOD', 'BAD', [rfReplaceAll, rfIgnoreCase]); SaveToFile('Spider2.txt'); Free; end; end;
100分！i like it! procedure TForm1.Button1Click(Sender: TObject); begin with TStringList.Create() do begin LoadFromFile('Spider.txt'); Text := StringReplace(Text, 'GOOD', 'BAD', [rfReplaceAll, rfIgnoreCase]); SaveToFile('Spider2.txt'); Free; end; end;
李 李翔鹏 Unregistered / Unconfirmed GUEST, unregistred user! 2007-07-25 #4 不用写程序，用ULTRAEDIT就可以阿。SERCH菜单，SERCH IN FILE就可以了。
