文件里的字符串替换 把一个.txt文件里的字符串替换成另一个字符串,效率最好高一点。急!!!分不够可以加...在线等待! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 除了ansiReplaceStr,我想不到别的方法帮你 memo1.Lines.LoadFromFile('c:\c.txt') ;memo1.Text := StringReplace(memo1.Text , 'a','A',[rfReplaceAll]);memo1.Lines.SaveToFile('c:\c.txt');测试通过 memo1.Lines.LoadFromFile('c:\c.txt') ;memo1.Text := StringReplace(memo1.Text , 'a','A',[rfReplaceAll]);memo1.Lines.SaveToFile('c:\c.txt');测试通过自己改改 var lst: TStrings; lsFile: String;begin lst := TStringList.Create; lst.LoadFromFile(lsFile); lst.Text := StringReplace(lst.Text,'oldStr','newStr',[rtReplaceAll]); lst.Free;end;稍加改造! memo1.Lines.LoadFromFile('c:\c.txt') ;memo1.Text := StringReplace(memo1.Text , 'a','A',[rfReplaceAll]);memo1.Lines.SaveToFile('c:\c.txt');这种方式,文件大了就困难了 百度COM域名被黑,CN域名仍可访问 DEV Express控件的升级 ReportBuilder中怎么实现金额大写 怎么改变窗体边框的颜色? 如何将TDBGrid当前指示的一条记录赋值给TEdit控件??急... 收罗程序员测试软件的心得和各种测试软件以及测试软件的用法 如何捕获其它程序控件上的值 showmodal问题,我都快疯了 Query can run error ,why? 请问当我用ShellExec打开一个文件时,我怎样得到打开文件程序的句柄 Access中的"备注"型字段,最多可容纳多少字符啊? 文件里的字符串替换
memo1.Lines.LoadFromFile('c:\c.txt') ;
memo1.Text := StringReplace(memo1.Text , 'a','A',[rfReplaceAll]);
memo1.Lines.SaveToFile('c:\c.txt');测试通过
memo1.Text := StringReplace(memo1.Text , 'a','A',[rfReplaceAll]);
memo1.Lines.SaveToFile('c:\c.txt');测试通过
自己改改
lst: TStrings;
lsFile: String;
begin
lst := TStringList.Create;
lst.LoadFromFile(lsFile);
lst.Text := StringReplace(lst.Text,'oldStr','newStr',[rtReplaceAll]);
lst.Free;
end;稍加改造!
memo1.Text := StringReplace(memo1.Text , 'a','A',[rfReplaceAll]);
memo1.Lines.SaveToFile('c:\c.txt');
这种方式,文件大了就困难了