Как обрабатывать несколько форматов сразу - в данном коде (К примеру .txt и .php):
procedure ScanDir(path: string);
var
sr: TSearchRec;
FileAttrs: Integer;
s: tstringlist;
begin
path := IncludeTrailingPathDelimiter(path);
if FindFirst(path + '*.txt*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Name <> '.') and (sr.Name <> '..') then
if (sr.Attr and faDirectory) = faDirectory then
begin
Form1.Memo1.Lines.Add('Путь к обработанному файлу: ' + path +
sr.Name);
ScanDir(path + sr.Name);
end
else
begin
s := tstringlist.create;
s.LoadFromFile(path + sr.Name);
s.text := StringReplace(s.text, Form1.Memo2.Lines[0],
Form1.Memo3.Lines[0], [rfreplaceall]);
s.text := StringReplace(s.text, Form1.Memo2.Lines[1],
Form1.Memo3.Lines[1], [rfreplaceall]);
s.SaveToFile(path + Form1.Edit2.text + sr.Name);
FreeAndNil(s);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ScanDir(Edit1.text + '\');
end;
Я делала вот так: повторяла цикл if FindFirst(path + '.txt', faAnyFile, sr) - несколько раз, но это не профессионально.
//////////////////////////////
if FindFirst(path + '*.txt*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Name <> '.') and (sr.Name <> '..') then
if (sr.Attr and faDirectory) = faDirectory then
begin
Form1.Memo1.Lines.Add('Путь к обработанному файлу: ' + path +
sr.Name);
ScanDir(path + sr.Name);
end
else
begin
s := tstringlist.create;
s.LoadFromFile(path + sr.Name);
s.text := StringReplace(s.text, Form1.Memo2.Lines[0],
Form1.Memo3.Lines[0], [rfreplaceall]);
s.text := StringReplace(s.text, Form1.Memo2.Lines[1],
Form1.Memo3.Lines[1], [rfreplaceall]);
s.SaveToFile(path + Form1.Edit2.text + sr.Name);
FreeAndNil(s);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
/////////////////////////////
if FindFirst(path + '*.php*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Name <> '.') and (sr.Name <> '..') then
if (sr.Attr and faDirectory) = faDirectory then
begin
Form1.Memo1.Lines.Add('Путь к обработанному файлу: ' + path +
sr.Name);
ScanDir(path + sr.Name);
end
else
begin
s := tstringlist.create;
s.LoadFromFile(path + sr.Name);
s.text := StringReplace(s.text, Form1.Memo2.Lines[0],
Form1.Memo3.Lines[0], [rfreplaceall]);
s.text := StringReplace(s.text, Form1.Memo2.Lines[1],
Form1.Memo3.Lines[1], [rfreplaceall]);
s.SaveToFile(path + Form1.Edit2.text + sr.Name);
FreeAndNil(s);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;