如何替换文本文件里面的某一个字符串？谢谢！

HOH 2001-06-21 10:01:00

...全文

185 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

InsideDelphi 2001-06-21

打赏
举报

对了，你可以使用chiro的方法，写文件可以考虑我的方法。
////////////////以下有错，对不起/////////////////
mFS.Write(PChar(Result)^,Length(Result));//保存文件
改为
mFS.Write(PChar(RS)^,Length(RS));
///////////////////////////////////////
Really Sorry!

angshuangxi 2001-06-21

打赏
举报

呵呵，自己编程序吧，使用RichEdit控件，
i:=Richedit1.FindText(文本,起始位置,长度,[stMatchCase]);
i返回结果就是该字符串的起始位置，然后你在编程替换，用copy,如果要考虑所有情况，还是比较复杂的

chiro 2001-06-21

打赏
举报

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

HOH 2001-06-21

打赏
举报

谢谢你

InsideDelphi 2001-06-21

打赏
举报

用Pos和Copy配合使用。
eg:
function ReplaceWordFromFile(....):String;
var
mFs:TFileStream;
mOldWord:String;
mNewWord:String;
S，RS:String;
Begin
mFS:=TFileStream.Create(YourFileName,fmOpenRead);//Open the File
SetLength(S,mFS.Size);//Important
mFS.Read(PChar(S)^,mFS.Size);//Type Cast and Read the Content
RS:=Copy(S,1,Pos(mOldWord,S)-1);
RS:=RS+mNewWord;
RS:=RS+Copy(S,Pos(mOldWord,S)+Length(mOldWord),Length(S)-Pos(mOldWord,S)+Length(mOldWord)+1);
mFs.Free;
mFS:=TFileStream.Create(YourFileName,fmCreate);
mFS.Write(PChar(Result)^,Length(Result));//保存文件
mFS.Free;
end;

HOH 2001-06-21