请教文件中字符串替换的问题 已知strFileName是一个文本文件的全路径名。strOld是文本文件中要被替换的字符串。strNew是文本文件中要替换成的字符串。请教一下,如何替换?谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; StringToConvert:=StringReplace(strFileName,'strOld','strNew',[rfReplaceAll]); procedure TForm1.Button1Click(Sender: TObject);const strFileName = 'c:\a.txt';var ts: TStringList;begin if FileExists(strFileName) then begin ts := TStringList.Create; try ts.LoadFromFile(strFileName); ts.Text := StringReplace(ts.Text, 'strOld','strNew',[rfReplaceAll]); ts.SaveToFile(strFileName); finally ts.Free; end; end;end; 蓝天,你的程序好像没有改动文件。///////////////////////////////////////// try ts.LoadFromFile(strFileName); ts.Text := StringReplace(ts.Text, 'strOld','strNew',[rfReplaceAll]); ts.SaveToFile(strFileName); finally ts.Free; end;这个是在干什么??? procedure TForm1.Button1Click(Sender: TObject);const strFileName = 'c:\a.txt';var ts: TStringList;begin if FileExists(strFileName) then //文件存在则执行 begin ts := TStringList.Create; try ts.LoadFromFile(strFileName); //加载文件内容到ts中 ts.Text := StringReplace(ts.Text, 'strOld','strNew',[rfReplaceAll]); //替换文件内容,注意:我用的两个字符是常量,你可以自己更改. ts.SaveToFile(strFileName); //保存到原文件中. finally ts.Free; end; end;end; 'strOld'、'strNew' 这些是常量,不会没有看出来吧,稍微修改一下就可以了. sql在delphi中执行结果不同 CXGRID动态显示隐藏列 请教一个算法,请各位指点。 請lihuasoft(学习低调做人)幫忙再回答我一個問題。thx! 我想在 Memo控件上 截获快捷键 然后自己进行处理 treeview的展开问题 三层中的adodataset,bde的query的检索速度及二者的区别? 神龙DVD卡问题 谁知道哪里有business object下载,跪求!!! 如何解决程序堆栈溢出?? 请教:关于FastReport与Tadoquery联接动态打印报表的几个问题,adoquery需要查询不同的表. 巨菜问题
const
strFileName = 'c:\a.txt';
var
ts: TStringList;
begin
if FileExists(strFileName) then
begin
ts := TStringList.Create;
try
ts.LoadFromFile(strFileName);
ts.Text := StringReplace(ts.Text, 'strOld','strNew',[rfReplaceAll]);
ts.SaveToFile(strFileName);
finally
ts.Free;
end;
end;
end;
/////////////////////////////////////////
try
ts.LoadFromFile(strFileName);
ts.Text := StringReplace(ts.Text, 'strOld','strNew',[rfReplaceAll]);
ts.SaveToFile(strFileName);
finally
ts.Free;
end;
这个是在干什么???
const
strFileName = 'c:\a.txt';
var
ts: TStringList;
begin
if FileExists(strFileName) then //文件存在则执行
begin
ts := TStringList.Create;
try
ts.LoadFromFile(strFileName); //加载文件内容到ts中
ts.Text := StringReplace(ts.Text, 'strOld','strNew',[rfReplaceAll]); //替换文件内容,注意:我用的两个字符是常量,你可以自己更改.
ts.SaveToFile(strFileName); //保存到原文件中.
finally
ts.Free;
end;
end;
end;