• Главная
  • Исходники Delphi
  • Справочники Delphi
  • Книги Delphi
  • Основы Delphi
  • библиотека Delphi исходников
  • Форум
  • Блоги

Последние записи

  • Прозрачность тайлсета в TPNGImage
  • Как сделать VBA макрос в excel
  • Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
  • Простановка единиц в ячейки под объектами (Microsoft Office Excel)
  • Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
  • Мигающий экран на Assembler
  • VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
  • Копирование только нужного диапазона в Microsoft Office Excel
  • Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
  • Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука

made in programmersforum 6

programmersforum6

  • .NET
  • ASP.NET
  • assembler
  • Basic
  • c/c++
  • CMS
  • Delphi
  • HTML
  • iPhone
  • Java
  • JavaScript
  • Linux
  • Pascal
  • Perl
  • Photoshop
  • php
  • Python
  • Ruby
  • SEO
  • sql
  • VBA
  • Win Api
  • Windows
  • XML и XSLT
  • Администрирование ОС
  • Апгрейды
  • Архив
  • Безопасность
  • Блоги
  • Веб-аналитика
  • Железо
  • Журнал
  • Заметки
  • Имейдж
  • Интервью
  • Исходники
  • Новости
  • Общалка
  • Операционные системы
  • Пост-обзор
  • Профлитература
  • Рассылка
  • Реклама
  • си шарп
  • Советы
  • Софт
  • Статьи
  • Топик-обзор
  • Файлы








6th
Ноя

Поиск и замена файлов в заданных каталогах

Posted by Chas under Пост-обзор

Например так :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  ListBox1: TListBox;
  procedure FormCreate(Sender: TObject);
  private
   { Private declarations }
  public
   { Public declarations }
  end;
  function findA(p:string; var slist:TStringList):variant;
 
var i:integer;
    Form1: TForm1;

implementation

{$R *.dfm}
 
//********** FUNCTION **********
function findA;
var s:TSearchRec; lp,ep,ss:string;k:integer;
begin
  ep:=ExtractFilePath(p)+‘*.*’;
  if FindFirst(ep,faAnyFile, s)=0 then begin
    repeat
      if (s.Name <>‘.’)and(s.Name <>‘..’) then
      begin
        lp:=»;k:=0;
        while k<=i*4 do
        begin
          lp:=lp+‘ ‘;inc(k);
        end;

        if s.Attr=faDirectory then slist.Append(lp+‘[‘+s.Name+‘]’)
        else
        if s.Name=‘Doc1.doc’ then <ЗАМЕНА, хотя я не понимаю что значит "замена">
        slist.Append(lp+s.Name);
        if s.Attr=faDirectory then begin
          inc(i);
          findA(ExtractFilePath(p)+s.Name+‘\’ +ExtractFileName(p), slist);
          dec(i);
        end;
      end;
    until FindNext(s)<>0
  end;
end;

//********** END FUNCTION ****** {}
procedure TForm1.FormCreate(Sender: TObject);
var ts:TStringList;
begin
  ts:=TStringList.Create;
  finda(‘c:\temp\*.*’,ts);
  ListBox1.Items:=ts;
end;

end.

Тема на форуме

Похожие статьи

  • Поиск файла на диске
  • Поиск нескольких слов в Memo
  • Реализовать копирование, удаление, поиск в делфи не использую стандартные фунции
  • Простенький парсер псевдо-HTML на Delphi
  • Дерево жесткого диска в StringList
  • Вывод стилем Xor
  • Программы для самых маленьких
  • Скрытное копирование каталога
  • Как в указанной папке и её подпапках найти все файлы определённого типа?
  • Вывод содержимого папки
Теги: Delphi | папка | поиск | программы








© Copyright "Клуб программистов" – материалы по Delphi и С++. Создание и продвижние сайта - Веб-сателлит.