1

ЗАДАНИЕ: Данный код обрабатывает только один файл. Как добавить возможность обрабатывать не один файл, а все файлы что находятся в папке и подпапках?

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;

Отличие этого вопроса от предыдущего в том что: Тут приведен другой код - именно в котором не получается добавить обработку всех файлов.

2

1 ответ 1

2
+100

Нужно получить список файлов, что можно сделать при помощи TDirectory из System.IOUtils:

var files: TStringDynArray; //тип TStringDynArray объявлен в System.Types

files := TDirectory.GetFiles(root, '*.*', TSearchOption.soAllDirectories);

где root - путь папки. Затем в цикле выполнить обработку каждого файла:

for i := 0 to Length(files) - 1 do
begin
  // здесь нужные действия для files[i]
end;

В старых версиях Delphi (например Delphi 7) придётся написать собственную подпрограмму для получения списка файлов. Например такую:

procedure GetFiles(const dir: string; list: TStrings);
var rec: TSearchRec;
begin
  if FindFirst(dir + '\*.*', faAnyFile, rec) = 0 then
  repeat
    if (rec.Name = '.') or (rec.Name = '..') then Continue;
    if (rec.Attr and faDirectory) <> 0 then GetFiles(dir + '\' + rec.Name, list)
    else list.Add(dir + '\' + rec.Name);
  until FindNext(rec) <> 0;
  FindClose(rec);
end;

Код обработки тогда будет таким:

var files: TStringList;

files := TStringList.Create;
GetFiles(root, files);
for i := 0 to files.Count - 1 do
begin
  // здесь нужные действия для files[i] 
end;
files.Free;

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.