Обрабатывать каждый файл в папке Delphi XE

[kladsss]

Как, в данный кусок кода, добавить возможность: обрабатывать не один файл, а все файлы что находятся в папке и подпапках. Сейчас обрабатывает только один файл. Друзья - Помогите решить задачу!

var
    SynArr: Array of Array of String;
      VocFile,SrcFile,DstFile: TextFile;
      TxtLine: String;
      SynList: TStringList;
    begin
     AssignFile(VocFile, OpenDialog2.FileName);
     Reset(VocFile);
     SetLength(SynArr, 0);
     SynList := TStringList.Create;
     while not Eof(VocFile)
     do begin
        ReadLn(VocFile, TxtLine);
        SynList.Text := StringReplace(WrapText(TxtLine,#13#10,['|'],1),'|','',[rfReplaceAll]);
        SetLength(SynArr, Length(SynArr)+1);
        SetLength(SynArr[High(SynArr)],SynList.Count);
        for i := 0 to SynList.Count - 1
        do SynArr[High(SynArr),i] := SynList.Strings[i];
        end;
     SynList.Free;
     CloseFile(VocFile);
 
     AssignFile(SrcFile, OpenDialog3.FileName);
     Reset(SrcFile);
 
     AssignFile(DstFile, OpenDialog4.FileName);
     Rewrite(DstFile);
     while not Eof(SrcFile)
     do begin
        ReadLn(SrcFile, TxtLine);
        for i := 0 to High(SynArr)
        do for j := 0 to High(SynArr[i])
           do TxtLine := StringReplace(TxtLine,SynArr[i,j],SynArr[i,Random(High(SynArr[i]))+1],[]);
        WriteLn(DstFile, TxtLine);
        end;
     CloseFile(DstFile);
     CloseFile(Srcfile);
    end;

[Sciv]

FindFirst, FindNext и рекурсия

Или может тип TDirectory, только я не помню, с какой версии он появился

[kladsss]

Сообщение от Sciv

FindFirst, FindNext и рекурсия

Или может тип TDirectory, только я не помню, с какой версии он появился

Как это реализовать - опыта у меня точно не хватит. Если возможно то подскажите ? Буду благодарен за любую помощь.

[NetSpace]

вот тут у Кропоткиной Алисы http://www.programmersforum.ru/showt...E0%E9%EB%EE%E2
как раз есть в коде пример работы с файлами, используя нужные вам функции и процедуры

[Aliens_wolfs]

Примерно так

uses
ShlObj;

{$R *.dfm}

//Функция диалога выбора директории
function GetDirectory(Handle: HWND; TitleName: string): string;
var
  lpItemID: PItemIDList;
  BrowseInfo: TBrowseInfo;
  DisplayName: array[0..MAX_PATH] of char;
  TempPath: array[0..MAX_PATH] of char;
begin
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  BrowseInfo.hwndOwner :=Handle;
  BrowseInfo.pszDisplayName := @DisplayName;
  BrowseInfo.lpszTitle := PChar(TitleName);
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then
  begin
    SHGetPathFromIDList(lpItemID, TempPath);
    GlobalFreePtr(lpItemID);
    result:=TempPath;
    result:=result;
  end;
end;


//Ваша функция пока не пойму что она делает с SrcFileDlg и DstFileDlg
procedure FilesResultEdit(FileName, SrcFileDlg, DstFileDlg: string);
var
    SynArr: Array of Array of String;
    VocFile,SrcFile,DstFile: TextFile;
    TxtLine: String;
    SynList: TStringList;
    i, j: integer;
begin
     AssignFile(VocFile, FileName);
     Reset(VocFile);
     SetLength(SynArr, 0);
     SynList := TStringList.Create;
     while not Eof(VocFile) do
   begin
        ReadLn(VocFile, TxtLine);
        SynList.Text := StringReplace(WrapText(TxtLine, #13#10, ['|'], 1), '|', '', [rfReplaceAll]);
        SetLength(SynArr, Length(SynArr) + 1);
        SetLength(SynArr[High(SynArr)], SynList.Count);
        for i := 0 to SynList.Count - 1 do
        SynArr[High(SynArr),i] := SynList.Strings[i];
        end;
     SynList.Free;
     CloseFile(VocFile);

     AssignFile(SrcFile, SrcFileDlg);
     Reset(SrcFile);

     AssignFile(DstFile, DstFileDlg);
     Rewrite(DstFile);
     while not Eof(SrcFile) do
     begin
        ReadLn(SrcFile, TxtLine);
        for i := 0 to High(SynArr) do
        for j := 0 to High(SynArr[i]) do
        TxtLine := StringReplace(TxtLine, SynArr[i, j], SynArr[i, Random(High(SynArr[i])) + 1], []);
        WriteLn(DstFile, TxtLine);
        end;
     CloseFile(DstFile);
 CloseFile(Srcfile);
end;

procedure FindFiles(StartDir, SrcFile, DstFile: string; FilesList: TStrings);
var
  SR: TSearchRec;
  DirList: TStringList;
  IsFound: Boolean;
  i: integer;
begin
  if StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';

  IsFound :=
  FindFirst(StartDir + '*.*', faAnyFile-faDirectory, SR) = 0;
  while IsFound do
  begin
  //Необходимо для закрытия формы
  Application.ProcessMessages;
  if Application.Terminated then
   exit;
    FilesList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;

    FilesResultEdit(StartDir + SR.Name, SrcFile, DstFile);
  end;
  FindClose(SR);

  DirList := TStringList.Create;
  try
  IsFound := FindFirst(StartDir + '*.*', faAnyFile, SR) = 0;
  while IsFound do begin
    if ((SR.Attr and faDirectory) <> 0) and
         (SR.Name[1] <> '.') then
      DirList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);

  for i := 0 to DirList.Count - 1 do
  begin
     //Необходимо для закрытия формы
  Application.ProcessMessages;
  if Application.Terminated then
   exit;
   FindFiles(DirList[i], SrcFile, DstFile, FilesList);
  end;

  finally
   DirList.Free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
Dirs,
SrcFile,
DstFile: AnsiString;
DirFilesList: TStringList;
begin
Dirs:= GetDirectory(handle, '');
if Dirs = '' then
exit;
if not OpenDialog1.Execute then
exit;
SrcFile:= OpenDialog1.FileName;
if not OpenDialog1.Execute then
exit;
DstFile:= OpenDialog1.FileName;
DirFilesList:= TStringList.Create;
FindFiles(Dirs, SrcFile, DstFile, DirFilesList);
DirFilesList.Free;
end;

[Sciv]

Сообщение от Aliens_wolfs

and
         (SR.Name[1] <> '.')

Вроде бы тут ещё нужно проверку:

and (SR.Name[1] <> '..')

[Serge_Bliznykov]

Сообщение от Aliens_wolfs

Примерно так

ага.
просто автор уже использует аналогичный код.
см. ScanDir() в его теме-продолжении - http://www.programmersforum.ru/showthread.php?t=320350

[Aliens_wolfs]

Вроде бы тут ещё нужно проверку:

Я в листе смотрел все нормально отображает папки + файлы, поэтому проверку не делал

ага.
просто автор уже использует аналогичный код.

Понятно.
Я просто дополнил его код, чтобы автор если что под себя допилил