ExtractFilePath aus einem String mit zwei Dateiangaben

[globalenemy]

Grüße,

Ich möchte gerne aus einem String den Pfad zu einer Datei holen. Das soll ja ganz einfach mit ExtractFilePath aus SysUtils gehn, allerdings enthält mein String auch die zu übergebenden Parameter.
Wie kann ich den Pfad der gewünschten Datei holen, wenn in den Parametern Dateien bzw. Pfadangaben zu finden sind?

ExtractFilePath("C:\Hello\You.exe C:\Bye\You.exe")
returns: "C:\Hello\You.exe C:\Bye\"
i want: "C:\Hello\"

ps: Es ist nicht gegeben, dass der Dateiname immer mit .exe endet.

[himitsu]

Es ist ganz "einfach" Du mußt zuerst die beiden Dateien auftrennen, also den Pfad von den Parametern trennen.

Und dann kannst du mit ExtractFilePath den Dateinamen rausholen.

Tipp:
Wenn der Pfad mit " anfängt, dann das nächste " suchen und dazwischen ist nun der Pfad.
Fängt es nicht mit " an, dann nach dem ersten Leerzeichen suchen und davor steht dann der Pfad.

[globalenemy]

hmm. Ich komm damit leider noch nicht weiter. Ich weiß nicht wie ich den Dateinamen von den Parametern trennen soll.

Der String könnte schließlich auch so aussehen:

Code:

C:\Hey.Hello There\You.exe C:\Ok.Bye Then\You.exe

Ich kann nicht auf Leerzeichen trennen. Ich kann auch nicht auf den Punkt trennen. :\

[himitsu]

Zitat von globalenemy:

Der String könnte schließlich auch so aussehen:

Code:

C:\Hey.Hello There\You.exe C:\Ok.Bye Then\You.exe

Nein, kann es nicht, bzw. sollte es nicht.

Alle ordentlichen Programme, welche Pfade via Parameter übergeben, machen die "..." drumrum, wenn sich Leerzeichen im Pfadnamen befinden.

[globalenemy]

Vielen Dank für Eure Antworten! :-*

Mit dem Post von Popov konnte ich mein Problem lösen.

Code:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  St1: String;
  Int1, Int2: Integer;
begin
  if CheckBox1.Checked = True then
    begin
      if Edit1.Text[1] <> '\' then
        begin
          Edit2.Enabled := True;
          St1 := Edit1.Text;
          Int1 := PosEx(':\', St1, 0);
          Int2 := PosEx(':\', St1, Int1 + 1);
          if Int2 > Int1 then Edit2.Text := ExtractFilePath(Copy(St1, 1, Int2 - 1))
          else Edit2.Text := ExtractFilePath(St1);
        end
      else Edit2.Text := ExtractFilePath(Edit1.Text);
      ActiveControl := Edit2;
    end
  else
    begin
      Edit2.Enabled := False;
      Edit2.Text := ' override working path...';
    end;
end;

"C:\Hey.Hello There\You.exe C:\Ok.Bye Then\You.exe"
= "C:\Hey.Hello There\"

[Popov]

Wobei es wahrscheinlicher ist, dass es so aussieht:

Code:

"C:\Hey.Hello There\You.exe" "C:\Ok.Bye Then\You.exe"

, denn welchen Sinn macht es beide Pfade einzuschließen. Es sein denn es ist ein Parameter und soll von anderen getrennt sein.

[Sir Rufo]

Es stellt sich ja nun die Frage, wie überhaupt diese Parameter in das Programm kommen.

Über ParamStr und werden zusammengesetzt?

[uligerhardt]

Woher kommt denn der String? Als Programmargument, Benutzereingabe, ...? Vielleicht kannst du ja im Vorfeld schon dafür sorgen, dass die beiden Teile getrennt bleiben.

[Popov]

Vorausgesetzt da ist kein Netzwerk-Pfad drin:

Delphi-Quellcode:

uses
  StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  s, s1, s2: String;
  p1, p2: Integer;
begin
  s := '"C:\Hello\You.exe C:\Bye\You.exe"';

  if Length(s) > 0 then  //entfent Anführungszeichen, falls vorhenden
    if s[1] = '"' then Delete(s, 1, 1);

  if Length(s) > 0 then  //entfent Anführungszeichen, falls vorhenden
    if s[Length(s)] = '"' then Delete(s, Length(s), 1);

  p1 := PosEx(':\', s, 0); //Für PosEx StrUtils in uses einfügen
  p2 := PosEx(':\', s, p1 + 1);

  if p2 > p1 then
  begin
    s1 := Copy(s, 1, p2 - 1);
    s2 := Copy(s, P2 - 1, MaxInt);
  end
  else
  begin
    s1 := s;
    s2 := '';
  end;

  ShowMessage(
    'Path1: ' + ExtractFilePath(s1) + ^j +
    'Path2: ' + ExtractFilePath(s2));
end;

[nuclearping]

Man kann auch eine TStringList mit DelimitedText und QuoteChar nehmen. Die macht den ganzen Spaß alleine.

http://www.delphibasics.co.uk/RTL.asp?Name=TStringList

3. Beispiel:

Delphi-Quellcode:

var
  cars : TStringList;            // Define our string list variable
  i    : Integer;
begin
  // Define a string list object, and point our variable at it
  cars := TStringList.Create;

  // Now add some cars to our list - using the DelimitedText property
  // with overriden control variables
  cars.Delimiter := ' ';        // Each list item will be blank separated
  cars.QuoteChar := '|';        // And each item will be quoted with |'s
  cars.DelimitedText := '|Honda Jazz| |Ford Mondeo| |Jaguar "E-type"|';

  // Now display these cars
  for i := 0 to cars.Count-1 do
    ShowMessage(cars[i]);       // cars[i] equates to cars.Strings[i]

  // Free up the list object
  cars.Free;
end;

Ausgabe:

Code:

   Honda Jazz
   Ford Mondeo
   Jaguar "E-type"