如何实现“批量替换” (100分)

  • 主题发起人 主题发起人 gblinux
  • 开始时间 开始时间
G

gblinux

Unregistered / Unconfirmed
GUEST, unregistred user!
假设在某目录下的很多文件中含有一个字符串:“美国”,现欲将此字符串全部

替换为:“中国”,请问如何用最简单的方法来实现?
请告诉我详细步骤!
 
while 该目下还有文件 do
begin
打开这个文件,
查找“美国”,
找到,替换称“中国”
关闭该文件
搜索下一文件。
end.

来自:cAkk 时间:1999-9-24 1:15:22 ID:137052
一个函数,结果用参数foundresult返回:
function SearchFile(mainpath:string;filename:string; var foundresult:TStrings):Boolean;
var
i:integer;
Found:Boolean;
subdir1:TStrings;
searchRec:TsearchRec;
begin
if right(mainpath,1)<>'/' then mainpath:=mainpath+'/';
found:=false;
if Trim(filename)<>'' then
begin
subdir1:=TStringList.Create;
if (FindFirst(mainpath+'*.*', faDirectory,SearchRec)=0) then
begin
if IsValidDir(SearchRec) then subdir1.Add(SearchRec.Name);
while (FindNext(SearchRec) = 0) do
begin
if IsValidDir(SearchRec) then subdir1.Add(SearchRec.Name);
end;
end;
FindClose(SearchRec);
//查找当前目录。
if (FindFirst(mainpath+'*.*', faAnyFile-faDirectory, SearchRec)=0) then
begin
foundresult.Add(mainpath+SearchRec.Name);
while (FindNext(SearchRec) = 0) do
begin
foundresult.Add(mainpath+SearchRec.Name);
end;
end;
FindClose(SearchRec);
for i:=0 to subdir1.Count-1 do
found:=Searchfile(mainpath+subdir1.Strings+
'/',Filename,foundresult)or found;
subdir1.Free;
end;
result:=found;
end;


 
奔办法
stringlist.loadformfile();
for i:=0 to stringlist.lines do
pos
delete
insert
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
913
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部