Der Finder: Tool zum Durchsuchen bestimmter Verzeichnisse

[Andreas H.]

Hallo DPler,

jetzt ist es soweit. Ich möchte Euch meinen Finder (nicht 'Fainder' gesprochen) vorstellen. Er dient zum Finden von Dateien und Verzeichnissen in bestimmten Verzeichnissen. Das Suchergebnis wird übersichtlich in einer Baumansicht dargestellt.

In der angehängten ZIP-Datei sind die Quellen, eine ReadMe-Datei und die ausführbare EXE-Datei enthalten. Eine Installation ist nicht erforderlich.

Der Finder wurde mit Borland BDS2006prof. in Delphi erstellt, er sollte aber auch mit früheren Delphi-Versionen übersetzbar sein.
Fremdkomponenden wurden verwendet (nicht mitgeliefert): TRegExpr class library / Andrey V. Sorokin http://RegExpStudio.com

Die Veröffentlichung erfolgt unter GPL.

Die ReadMe-Datei enthält weitere Infos.
Fragen, Anregungen, Kritik und Fehlerberichte sind herzlich willkommen.

Gruß Andreas

Edit 9.5.2006: neues ZIP-Archiv Finder104.ZIP
Edit 11.5.2006: neues ZIP-Archiv Finder110.ZIP
- Es werden jetzt reguläre Ausdrücke unterstützt

[sECuRE]

Hi,

bei dem Namen würde ich aufpassen. Schließlich heißt Apples Explorer-pendant auch Finder...

cu

[NormanNG]

Hi,

beim Drag&Drop wird statt dem Dateinamen nur Müll angezeigt. Wenn ich den Source richtig verstehe, reservierst du zwar den Speicher für den Dateinamen, schreibst aber dann nichts hinein, oder?

Delphi-Quellcode:

procedure TFinderForm.WMDropFiles(var aMsg: tMessage);
var
  Idx,
    Size,
    FileCount: Integer;
  Filename: pChar;
begin
  inherited;
  FileCount := DragQueryFile(aMsg.WParam, $FFFFFFFF, nil, 255);
  for Idx := 0 to FileCount - 1 do
  begin
    Size := DragQueryFile(aMsg.WParam, Idx, nil, 0) + 1;
    Filename := StrAlloc(Size);   // <- fehlt hier nicht noch was?
    // Zur TreeView hinzufügen
    with TreeView.Items.Add(nil, FileName + '\') do
    begin
      ImageIndex := 2;
      SelectedIndex := 2;
    end;
    StrDispose(Filename);
  end;
  DragFinish(aMsg.WParam);
  TreeView.AlphaSort(false);
  geaendert := true;
end;

Ansonsten ganz nett ;-)

[Andreas H.]

Hi,

schon behoben!

Die fehlende Zeile ist Aufräumarbeiten zum Opfer gefallen und bei der Qualitätssicherung nicht aufgefallen :oops:

Gruß Andreas

[Luckie]

Und was habe ich davon? Mit der Suche vom Explorer kann es ja nicht gerade konkurieren.

[s-off]

Hallo.

Zitat:

Und was habe ich davon? Mit der Suche vom Explorer kann es ja nicht gerade konkurieren.

Meinst Du nicht, dass etwas mehr Sensibilität angebracht wäre?
Auch wenn das Tool nicht Deinen Vorstellungen entspricht und zweifelsohne auch nicht mit kommerziellen oder auch einigen kostenlos erhältlichen Programmen mithalten kann, so wäre es doch nett, konstruktive Kritik zu äußern, und den Autor nicht mit einem so sinnfreien Kommentar zu verunsichern.

Es kann nicht jeder auf so viel Erfahrung zurückgreifen, wie Du es kannst - jeder fängt einmal ganz unten an.
Und wenn jemand seine ersten Ergebnisse dann einem breiten Publikum zur Verfügung stellt, und auf sachliche Antworten diesbezüglich hofft, dann finde ich es vollkommen in Ordnung.

Kann jetzt nur für mich sprechen, aber wenn ich so abserviert werden würde, hätte ich mit Sicherheit keine Lust mehr, nocheinmal etwas hier vorzustellen. Und das sollte gerade an Dir als Moderator dieser Community nicht spurlos vorüberziehen.

[Andreas H.]

Hallo,

Zitat:

Zitat von Luckie

Und was habe ich davon? Mit der Suche vom Explorer kann es ja nicht gerade konkurieren.

Die Explorer-Suche durchsucht rekursiv alle Verzeichnis-Ebenen. Der Vorteil des Finders ist eben, dass nicht rekursiv durchsucht wird und die zu durchsuchenden Verzeichnisse können auf verschiedene Laufwerke verteilt sein. Außerdem habe ich das Ergebnis vorliegen, bevor ich die Maus/Enter-Taste losgelossen habe.
...

Ich nutze den Finder im Büro und finde meine Projektverzeichnisse ruckzuck.

Gruß Andreas

[kalmi01]

Zitat:

Zitat von Luckie

Und was habe ich davon?

Diesbezüglich schliesse ich mich s-off an.

Zitat:

Zitat von Luckie

Mit der Suche vom Explorer kann es ja nicht gerade konkurieren.

Ich weiss nicht, welches BS Du auf dem PC hast ?
Bei mir unter XP findet der Explorer teilweise nochnichteinmal Dateien die ihm direkt vor der Nase liegen.
Der Windows-Explorer ist seit XP extrem unzuverlässig, deshalb verwende ich Agent-Ransack.

[Daniel G]

Zitat:

Und was habe ich davon? Mit der Suche vom Explorer kann es ja nicht gerade konkurieren.

Schließe mich da s-off und kalmi01 ausnahmslos an. Es verlangt ja keiner von dir, dass du augenblicklich den Explorer einstampfst. :roll:

-----

Eventuell wäre es noch gut, wenn du die rekursive Dateisuche doch noch integrieren könntest. Mir gefällt nämlich die Baumansicht besser als die Standardansicht im Explorersuchdialog.

[SubData]

Ich hab mir das Programm (noch) nicht angesehen, aber ich gehe mal davon aus, dass es noch keine Reguläre Ausdrücke kann, oder ?!
Das wäre doch etwas, womit man dann dem Explorer locker Konkurenz machen kann -WinkMitDemZaun- ^^

Die Komponente(n) dafür gibs hier: http://www.regexpstudio.com

[RavenIV]

was auch noch schön wäre:
beliebigen text innerhalb von dateien suchen.
das kann der Explorer nämlich auch nicht zuverlässig.

[Andreas H.]

Hallo,

vielen Dank für die Beiträge.

Folgende Anmerkungen:

Zitat:

Zitat von SubData

Ich hab mir das Programm (noch) nicht angesehen, aber ich gehe mal davon aus, dass es noch keine Reguläre Ausdrücke kann, oder ?!
Das wäre doch etwas, womit man dann dem Explorer locker Konkurenz machen kann -WinkMitDemZaun- ^^.

Reguläre Ausdrücke wären eine Überlegung wert. Leider beherrsche ich die nicht. Deshalb habe ich das auch nicht in Betracht gezogen. Aber wenn dadurch meine Fan-Gemeide derart anwächst... :wink:

Zitat:

Zitat von RavenIV

was auch noch schön wäre:
beliebigen text innerhalb von dateien suchen.
das kann der Explorer nämlich auch nicht zuverlässig.

Das habe ich eigentlich nicht vor. Da gibt es gute Tools (z.B. Agent Ransack).

Gruß Andreas

[Andreas H.]

So,

die neue Version steht zum Download bereit.

Es werden jetzt reguläre Ausdrücke unterstützt. Danke, Ronny.

Außerdem können die Einstellungen per Menü gesichert und wiederhergestellt werden.

Noch ne Bitte: Da ich reguläre Ausdrücke nicht beherrsche, könnte die Funktion jemand für mich testen?

Und noch ne Frage: Sollte ich die Fremdkomponenten mitliefern? Für die TRegExpr habe ich in den Lizenzbedingungen keine Massgabe gefunden.

Gruß Andreas

[semo]

habe da mal nen freewaretool erstellt:
zu finden ist dies hier

[GetUserName]

Jeder kann doch mit FindFirst...FindNext...FindClose Dateien finden oder?
Ich seh auch keine Möglichkeit was damit zu machen, da ich nur Eigene Dateien durchsuchen kann...?

Gruss GetUserName();

[Pump3r]

du kannst andere hinzufügen, sowie ich das gesehen hab :)

[semo]

@GetUserName: jeder sollte das hinbekommen.

Zitat:

Jeder kann doch mit FindFirst...FindNext...FindClose Dateien finden oder?

in meinem tool "wer suchet der findet" habe ich das bisher auch genutzt.
im hinterkopf hatte ich aber immer noch die TWin32FindData Struktur.
in der sysutils wird da denke auch nur darauf aufgebaut bzw. zumgesetzt, ergo wird die suche langsamer als wenn man die suche mit der struktur direkt nutzt.

überzeugen kann man sich davon wenn man mal luckies "MpuDriveTools" anschaut. mir sind fast die augen ausgefallen, als ich da mal die aktualisierung des richtexteditors herausgenommen habe, da ging das teil ab wie schmitz's katze :-D . werde jetzt mein tool auch schleunigst anpassen und ich bin mal auf das ergebnis gespannt.

vielen dank an luckie auf diesem wege.
werde mich demnächst auch direkt an windowsfunktionen halten wo es nur geht.
:thumb: :thumb: :thumb:

[semo]

also: ich kann nur jedem empfehlen auf twin32finddata umzusteigen,
was für ne perfomrance gegenüber vorher....