Algorithmus zum ermitteln von Parametern

[Zacherl]

Hi,
kennt jemand einen Algorithmus, mitdem man z.B. diesem String in seine Parameter und den eigentlichen Befehl aufsplitten kann:

Zitat:

dosomething -a -123 -"C:\Dokumente und Einstellungen\Test"

in folgende Teile:

Delphi-Quellcode:

//Command
dosomething

//Param1
a
//Param2
123
//Param3
C:\Dokumente und Einstellungen\Test

Danke für jede Hilfe :thumb:

Florian

[mkinzler]

Mit Hilfe der trennzeichen '-' müßtest du den string doch zerlegen können.

[EDatabaseError]

explode

oder

Wenn du mit diesem Parameter dein Prog aufruft schaumal mit ParamStr und ParamCount.

Mfg
tobi

[Zacherl]

Explode ist schonmal gut. Im Zusammenhang mit den "-" Zeichen.
Was aber, wenn ein "-" im Parameter selbst auftaucht? Normalerweise sind dafür ja dann die " zuständig, in die man den Parameter einbetten muss.

Ich rufe den Parameter nicht über das Programm auf, sondern programmiere eine Art eigene Konsole.

Florian

[EDatabaseError]

achso.

dann würd ich empfehlen das - durch ein exotisches zeichen wie ein § ersetzen und dann explode drüberlaufen lassen und das - zwischen den " ignorieren.

[Zacherl]

So, hab jetzt noch was gefunden. Und zwar die DivStrList.
Klapp soweit wunderbar.

Florian

[omata]

So, hab mich auch nochmal dran versucht...

Delphi-Quellcode:

procedure ReadParams(Text:string; Params:TStrings);
var p:string;
    i:integer;
    Quot:boolean;
begin
  Quot:=false;
  p:='';
  for i:=1 to length(Text) do begin
    case Text[i] of
      '-','/': if not Quot then begin
                 if trim(p) <> '' then
                   Params.Append(trim(p));
                 p:='';
               end;
      '"':     Quot:=not Quot;
      ' ':     if not Quot then begin
                 if trim(p) <> '' then
                   Params.Append(trim(p));
                 p:='';
               end;
    end;
    p:=p + Text[i];
  end;
  if trim(p) <> '' then
    Params.Append(trim(p));
end;