[AllenWallker]

Ребят кто нить подскажите как подсчитать кол-во текстовых файлов в папке и в следующих под папках. И как открыть их все для чтения?
Заранее благодарен!

[lmikle]

FindFirst/FindNext/FindClose.
Ну а открывать, зная имя, можно разными способами. Смотря для чего тебе.

[AllenWallker]

открывать чтоб найти определенные слова.FindFirst/FindNext/FindClose -есть ли примеры их использования?

[ryderx34]

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

открывать чтоб найти определенные слова.FindFirst/FindNext/FindClose -есть ли примеры их использования?

Код:

var
 SearchRec:TSearchRec;
begin
  if FindFirst('C:\'+'*.jpg', faAnyFile, SearchRec)=0 then
    repeat
      ListBox1.Items.Add(SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

[AllenWallker]

а как все эти файлы открыть для чтения и сделать один большой массив или для каждого найденного собственный?

[AllenWallker]

помогите пожалуйста очень нужно!!

[Страдалецъ]

На кой вам их все одновременно держать открытыми? А если их будет 1000 штук? Вы бы объяснили сверхзадачу, может все намного проще надо делать.

[AllenWallker]

нужно сделать анализатор языка Python надо проследить какая функция используется или нет, какие переменные используются ,какой модуль был подключен и используется ли он...
вот в общем задача.
как я понял мне надо найти все файлы с расширение *.py открыть их скинуть содержимое их куда нить и начать находить переменные модули и функции.
Если ошибаюсь подправьте и подскажите!
Заранее Спасибо!

[Страдалецъ]

Можно клнечно действительно сделать один громадный текстовик содержащий весь программный код, в плане скорости доступа, выигрыш будет, но удобно ли это будет использовать - большой вопрос.
Но хозяин барин. Вот код который загоняет все содержимое встречающихся файлов с расширение *.py в TStringList:

Код:

unit Unit44;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm44 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    Listing: TStringList;
    procedure FolderScan(Folder: String);
  end;

var
  Form44: TForm44;

implementation

{$R *.dfm}

procedure TForm44.FolderScan(Folder: String);
Var FileInfo: TSearchRec;
    S: TStringList;
begin
 if FindFirst(Folder + '*.*', faAnyFile, FileInfo) = 0
 then try
       repeat
        if (FileInfo.Name = '.') or (FileInfo.Name = '..') then Continue;
        if (FileInfo.Attr and faDirectory <> 0)
        then begin
             FolderScan(Folder+FileInfo.Name+'\');
             Continue;
             end;
        if ExtractFileExt(FileInfo.Name) = '.py'
        then begin
             S := TStringList.Create;
             S.LoadFromFile(Folder+FileInfo.Name);
             Listing.AddStrings(S);
             S.Free;
             end;
       until FindNext(FileInfo) <> 0;
      finally
       SysUtils.FindClose(FileInfo);
      end;
end;

procedure TForm44.FormCreate(Sender: TObject);
begin
 Listing := TStringList.Create;
 FolderScan('E:\DBase\MARAFON\');
end;

end.

[lmikle]

По моему, надо подходить к этому вопросу с другой стороны. Тебе нужен парсер питона, который будет строить соотв. дерево синтаксического разбора.

[AllenWallker]

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

По моему, надо подходить к этому вопросу с другой стороны. Тебе нужен парсер питона, который будет строить соотв. дерево синтаксического разбора.

а поточнее можно ли обьяснить как это будет происходить?

[AllenWallker]

Сообщение от Страдалецъ

Можно клнечно действительно сделать один громадный текстовик содержащий весь программный код, в плане скорости доступа, выигрыш будет, но удобно ли это будет использовать - большой вопрос.
Но хозяин барин. Вот код который загоняет все содержимое встречающихся файлов с расширение *.py в TStringList:

Код:

unit Unit44;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm44 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    Listing: TStringList;
    procedure FolderScan(Folder: String);
  end;

var
  Form44: TForm44;

implementation

{$R *.dfm}

procedure TForm44.FolderScan(Folder: String);
Var FileInfo: TSearchRec;
    S: TStringList;
begin
 if FindFirst(Folder + '*.*', faAnyFile, FileInfo) = 0
 then try
       repeat
        if (FileInfo.Name = '.') or (FileInfo.Name = '..') then Continue;
        if (FileInfo.Attr and faDirectory <> 0)
        then begin
             FolderScan(Folder+FileInfo.Name+'\');
             Continue;
             end;
        if ExtractFileExt(FileInfo.Name) = '.py'
        then begin
             S := TStringList.Create;
             S.LoadFromFile(Folder+FileInfo.Name);
             Listing.AddStrings(S);
             S.Free;
             end;
       until FindNext(FileInfo) <> 0;
      finally
       SysUtils.FindClose(FileInfo);
      end;
end;

procedure TForm44.FormCreate(Sender: TObject);
begin
 Listing := TStringList.Create;
 FolderScan('E:\DBase\MARAFON\');
end;

end.

спасибо большое)

[AllenWallker]

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

По моему, надо подходить к этому вопросу с другой стороны. Тебе нужен парсер питона, который будет строить соотв. дерево синтаксического разбора.

может поможешь мне очень надо!