Verzeichnis aus Dateinamen extrahieren

[HeikoAdams]

Um den Namen des Verzeichnisses (ohne den restlichen Pfad), in dem eine Datei gespeichert ist, zu extrahieren, ist folgende Funktion nutzbar:

Delphi-Quellcode:

function GetFileDir(const aBasepath, aFilename: string): string;
begin
   Result := Copy(aFilename, Length(aBasepath) +1,
      PosEx('\', aFilename, Length(aBasepath) + 1) - Length(aBasepath));
end;

[hoika]

Hallo,

oder ExtractFilePath benutzen.


Heiko

[HeikoAdams]

Zitat:

Zitat von hoika

oder ExtractFilePath benutzen

Eben nicht. ExtractFilePath liefert - wie der Name schon sagt, den kompletten Pfad. Meine Funktion liefer nur den Namen des Verzeichnisses.

[DeddyH]

Aber

Delphi-Quellcode:

ExtractFilename(ExcludeTrailingPathDelimiter(ExtractFilePath(aFilename)));

sollte gehen. Besonders dolle ist das allerdings nicht, geb ich zu.

[Satty67]

Man muss folgendes übergeben:

C:\meineApplikation\
C:\meineApplikation\meineDaten\meineDatei.txt

um dann meineDaten zu bekommen?

Mein Vorschlag, da ich kein PosEx habe:

Delphi-Quellcode:

function GetFileDir(const aBasepath, aFilename: string): string;
begin
  Result := ExtractFilePath(aFileName);
  Delete(Result, 1, Length(aBasePath));
end;

ExcludeTrailingBackslash, falls man D5 hat und den Backslash nicht will

@:DeddyH
Wenn mehr als ein Ordner-Zweig zw. aBasepath und aFilename liegt, wird das nix.

[DevilsCamp]

Zitat:

Zitat von Satty67

Man muss folgendes übergeben:

C:\meineApplikation\
C:\meineApplikation\meineDaten\meineDatei.txt

um dann meineDaten zu bekommen?

Mein Vorschlag, da ich kein PosEx habe:

Delphi-Quellcode:

function GetFileDir(const aBasepath, aFilename: string): string;
begin
  Result := ExtractFilePath(aFileName);
  Delete(Result, 1, Length(aBasePath));
end;

ExcludeTrailingBackslash, falls man D5 hat und den Backslash nicht will

Und wie berechnest du
C:\meineApplikation\
wenn der Pfad der Datei in einem Edit-Feld angegeben wird? :gruebel:

[Satty67]

Zitat:

Zitat von DevilsCamp

Und wie berechnest du

Alles vor "Mein Vorschlag" war nur eine Feststellung, was der Code des Ausgangsposters meiner Meinung nach macht. Der erwartet scheinbar einen bereits bekannten BasePath.

Ginge es nur um den direkt übergeordneten Ordner der Datei, könnte man sich die Übergabe von aBasePath ja gleich sparen.

[DevilsCamp]

Zitat:

Zitat von Satty67

Zitat:

Zitat von DevilsCamp

Und wie berechnest du

Alles vor "Mein Vorschlag" war nur eine Feststellung, was der Code des Ausgangsposters meiner Meinung nach macht. Der erwartet scheinbar einen bereits bekannten BasePath.

Ginge es nur um den direkt übergeordneten Ordner der Datei, könnte man sich die Übergabe von aBasePath ja gleich sparen.

Sorry, ich war irgendwie der Meinung, dass ich den Thread-Ersteller zitiere :)

Aber zurück zum OT:
Der Thread-Ersteller möchte den Verzeichnisnamen des Verzeichnisses bekommen, in dem die Datei liegt. Daher müsste gelten:

Delphi-Quellcode:

aBasepath := ExtractFilePath(aFilename)

Das liefert allerdings immer einen leeren string, weil das dritte Argument von Copy eine negative Zahl ist (weil PosEx in dem Fall immer 0 zurück gibt). Und in dem Fall wäre der Vorschlag von DeddyH vielleicht nicht die schönste, aber eine schnelle Lösung.

Man könnte z.B. auch aFilename an den '\' splitten und in ein Array speichern und anschliessend

Delphi-Quellcode:

ArrayVar[High(ArrayVar) - 1]

zurück geben (ArrayVar[High(ArrayVar)] ist ja dann der Dateiname selber) :)

[mdittrich]

Für alle die das noch mal aufrufen

sVerzeichnis:= 'c:/Verzeichnis/Unterverzeichnis/Datei.txt';

sVerzeichnis:= ExtractFileDir(sVerzeichnis);

= c:/Verzeichnis/Unterverzeichnis

[himitsu]

Besser ExtractFilePath verwenden, denn ExtractFileDir hat einen Bug und Embarcadero hat nicht vor Diesen zu reparieren.

Bei X:\Datei.txt (z.B. USB-Stick, Netzlaufwerk oder CD) liefert es X: aber beim "Pfad" muß ort unbedingt der \ enthalten sein,
da X: relativ zum aktuellen Arbeitsverzeichnis dieses Laufwerks ist, während X:\ wirklich "immer" das Rootverzeichnis.