Platzhalter in einem String...

[Markus]

Hallo,

ich weiß nicht ob es sowas schon gibt, aber ich habe eine Funktion geschrieben, die aus einer Maske einen Dateinamen generiert. Hier die Funktion:

Delphi-Quellcode:

function string2filename(maske, interpret, album, titel, track: string): string;
var 
  i, p: integer;
  platzhalter,bezeichnung: TStringList;
begin
  platzhalter := TStringList.create; //erstellen der Stringlisten
  bezeichnung := TStringList.Create;

  platzhalter.Add('%I'); //Hinzufügen der gewünschten Werte u. Bezeichnungen
  bezeichnung.Add(interpret);

  platzhalter.Add('%A');
  bezeichnung.Add(album);

  platzhalter.Add('%T');
  bezeichnung.Add(titel);

  platzhalter.Add('%E');
  bezeichnung.Add('mp3');

  platzhalter.Add('%N');
  bezeichnung.Add(track);


  for i := 0 to platzhalter.Count - 1 do  //Ersetzen der Platzhalter im Maskenstring durch die realen Werte
  begin 
    p := pos(platzhalter.Strings[i], maske);
    if p <> 0 then 
    begin
      delete(maske, p, 2);
      insert(bezeichnung.Strings[i], maske, p);
    end;
  end;

platzhalter.Free;
bezeichnung.Free;

result := maske;
end;

und hier ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(string2filename('%N.%I - %T.%E', 'Otto Mustermann', 'Mein erstes Album', 'Mein Lied', '1'));
end;

Man kann die Funktion beliebig ändern, d.h. neue Werte hinzufügen oder alte löschen.

Für Vorschläge bin ich offen :-)

[edit=Matze]Code formatiert. Mfg, Matze[/edit]

[CalganX]

Hi,
ich finde Format wesentlich einfacher:

Delphi-Quellcode:

format('%s - %s', ['Otto','Zehn kleine Ottifanten']);

Chris

[Robert_G]

Wenn du mal in der OH schmökerst findest du auch andere Formatierungen zum Bleistift für Dezimalzahlen.

p.s.: Die Funktion gibt es in ähnlicher Art auch im .Net FrameWork als statische Funktion von System.String.

Code:

String[b][color=#ff0000].[/color][color=#3600aa]Format[/color][color=#ff0000]([/color][/b][color=#ad0000]"{0} - {1}"[/color]
             [b][color=#ff0000],[/color][/b][color=#3600aa]new[/color] String[b][color=#ff0000][] {[/color][/b][color=#ad0000]"Otto"[/color][b][color=#ff0000], [/color][/b][color=#ad0000]"Zehn kleine Ottifanten"[/color][b][color=#ff0000]});[/color][/b]