把一个.txt文件里的字符串替换成另一个字符串,效率最好高一点。急!!!分不够可以加...在线等待!
解决方案 »
- 重载 message WM_MOUSEWHEEL 窗口改变大小后,消息只在屏幕左上角的区域内响应
- listview的滚动条问题
- 欢迎C/S模型的DELPHI+SQL的朋友加入我刚建的QQ群讨论问题QQ群号:14539240
- 关于 WebBrowse 控件的 问题
- 关于dbgrid现实的问题
- 请问团队开发是什么?
- 怎样把一个打开的主窗体最小化?
- 关于向HTTPS(SSL)网站POST数据问题
- 我用DELPHI打开一个ACCESS的表,我用QUERY1查询表中的日期型字段可是什么也查不着!程序在下面!
- 关于DBgrid显示部分字段的问题
- 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');
这种方式,文件大了就困难了