Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi FindFirst, FindNext, Suchmaske *. (https://www.delphipraxis.net/80273-findfirst-findnext-suchmaske-%2A.html)

DevilsCamp 6. Nov 2006 13:33


FindFirst, FindNext, Suchmaske *.
 
Hallo,

ich bin gerade auf ein Problem bei FindFirst/FindNext gestoßen.
Unter Windows ist es ja normalerweise so, dass nach dem letzten Punkt die Erweiterung kommt. Für für die oben genannten Funktionen allerdings sieht es so aus, als ob Dateien der Form .IRGENDWAS_OHNE_WEITEREN_PUNKT normale Dateinamen währen, die keine Endung besitzen. Dem zufolge werden also beispielsweise Dateien wie .cvsignore bei einem Such string von '*.' gefunden, obwohl sie ja eigentlich Dateinamen besitzen, die nur aus einer Endung bestehen (Selbst die Windows-eigene Suchfunktion sucht da richtig).

Wie also müsste ich diese Suche anpassen, dass mir beim Suchen nach *. solche Dateien NICHT ausgegeben werden. Vorschläge wie, "Prüfe doch in der Suchfunktion danach" lasse ich nicht gelten, weil diese ja dann nicht mehr generisch wäre.

SirThornberry 6. Nov 2006 13:36

Re: FindFirst, FindNext, Suchmaske *.
 
du liegst mit deiner Annahme fast richtig. Wenn du bei FindFirst die Maske "*.*" übergibst wird der Punkt ignoriert. Du findest bei der Suche nach "*.*" also auch Dateien wo kein Punkt im Dateinamen enthalten ist. Gleiches wird bei dir der Fall sein. Ich befüchrte Windows filtert bei der Suchmaske allgemein Punkte heraus.

DevilsCamp 6. Nov 2006 13:46

Re: FindFirst, FindNext, Suchmaske *.
 
hmm in einem Punkt habe ich mich geirrt. Windows findet KEINE Dateien, wenn ich als Suchmaske '*.' angebe (auch wenn definitiv solche Dateien existieren). Auch CMD.EXE findet mit "dir *." Dateien, deren Namen den im ersten Post genannten Aufbau haben.

Was kann ich also machen um solche Suchmasken nutzen zu können ohne gleich eine komplett eigene Suchfunktion schreiben zu müssen?

himitsu 6. Nov 2006 13:56

Re: FindFirst, FindNext, Suchmaske *.
 
Da du 'ne Pro haßt: schau dir mal die Funktionen zu FindFirst/-Next an.

Du wirst bemerken, daß dort auch nochmal von Delphi gefiltert wird.


Tip: schreib dir eigene Funktionen, welche das wie gewünscht filtern und direkt auf die WinAPI zugreifen.


PS: ich filtere inzwischen sollche Sachn anders.
der Dateiname wird zerlegt

"xxx.yyy"
in "xxx" und "yyy" (der Punkt wird dabei ignoriert)

das Selbe geschieht mit der Dateimaske.

Wobei immer der letzte Punkt genommen wird und wenn keiner da ist, dann kommt alles in "xxx" rein.

und am schluß werden Dateiname und Endung getrennt verglichen und die Ergebnisse verknüpft.

".yyy" hier ist also "yyy" die Dateiendung und als Dateiname steht "".
Also ".*" findest demnach nur Dateien mit nur einem Punkt, welcher am Anfang steht.
Und "*." und "*" finden nur Dateien ohne Endung/Punkt.

SirThornberry 9. Nov 2006 06:35

Re: FindFirst, FindNext, Suchmaske *.
 
in der Delphifundgrube gibt es eine Unit mit der Funktion "like". Du kannst also einfach nach "*" suchen und dann mit "like" selbst prüfen ob der Dateiname einer maske entspricht.

Bernhard Geyer 9. Nov 2006 06:43

Re: FindFirst, FindNext, Suchmaske *.
 
Zitat:

Zitat von DevilsCamp
hmm in einem Punkt habe ich mich geirrt. Windows findet KEINE Dateien, wenn ich als Suchmaske '*.' angebe (auch wenn definitiv solche Dateien existieren). Auch CMD.EXE findet mit "dir *." Dateien, deren Namen den im ersten Post genannten Aufbau haben.

Nicht Windows findet sie nicht sondern der Explorer bzw. der Dir-Befehl kommmt damit nicht zurecht. Du kannst ja auch mit dem Explorer keine .cvsignore-Datei anlegen obwohl ein solcher Dateiname nicht verboten ist.

Zitat:

Zitat von DevilsCamp
Was kann ich also machen um solche Suchmasken nutzen zu können ohne gleich eine komplett eigene Suchfunktion schreiben zu müssen?

Wirst Du nicht darum herumkommen dir noch was eigenes zu basteln wenn du solche Spezialfälle hast die FindFirst/FindNext falsch interpretieren (AFAIK gibt da auch Probleme wenn Extensions mit mehr als 3 Zeichen vorhanden sind). Einfach mit *.* suchen und dann wie SirThornberry beschrieben eigen Filtern. Evtl. könntest Du dir ja auch mal RegEx anschauen und hättest eine sehr mächtige Lösung.

SirThornberry 9. Nov 2006 08:18

Re: FindFirst, FindNext, Suchmaske *.
 
zwar funktioniert "*.*" noch aber ich würde dann eher nach "*" suchen sonst könnte es Probleme geben wenn zukünftig bei "*.*" wirklich nur noch dateien angezeigt werden wo ein "." enthalten ist.


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:17 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz