Stelle aus Text herauskopieren?

[Larsi]

Hi,

vorab: Ich weiß, dass das Ganze wahrscheinlich mit Pos oder PosEx zu machen ist doch irgendwie klappt das Ganze bei meinen Versuchen nicht.

Also ich folgenden String:

Variabler Inhalt - Variabler Inhalt (Variabler Inhalt)

Jetzt möchte ich den rot makierten Teil gerne herauskopieren damit ich mit dem weiter arbeiten kann...

MFG Lars Wiltfang

[DeddyH]

Der Bindestrich steht aber immer da? Dann würde ich den als Anhaltspunkt nehmen.

[Larsi]

Ja und die Klammer auch. Welcher Befehl ist denn richtig? Pos oder PosEx oder doch was anderes?

Ich weiß halt nicht wie ich wenn ich per Pos den String hinter dem - habe wie ich dann alles in den Klammern rauskriege?

[DeddyH]

Wenn im ersten variablen Inhalt kein Bindestrich und keine Klammer vorkommen kann, reicht Pos aus. Damit ermittelst Du dann die Position des Bindestrichs und die der Klammer, kopierst alles dazwischen raus und trimmst das ggf.

[Fussball-Robby]

Mit Pos ermittelst du die Stellen des Bindestrichs "-" und der Klammer "(". Mittels Copy und den vorher ermittelten Werten kannst du dann kopieren.

[Fridolin Walther]

So sähe das dann aus:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function GetRandomString : string;
var
  i : Integer;
begin
  for i := 0 to 20 - 1 do
    Result := Result + Chr(Random(26) + Ord('A'));
end;

var
  RandomString : string;
  PartitialString : string;
begin
  Randomize;
  RandomString := Format('%s - %s (%s)', [GetRandomString, GetRandomString, GetRandomString]);
  writeln(RandomString);
  PartitialString := Trim(Copy(RandomString, Pos('-', RandomString) + 1, Pos('(', RandomString) - Pos('-', RandomString) - 1));
  writeln(PartitialString);
  readln;
end.

[DeddyH]

Das hätte ich ihn aber selbst austüfteln lassen, sonst kommt er ja nie von der "C&P-Programmierung" weg :zwinker:

[Fridolin Walther]

C&P Programmierung ist ein Oxymoron ...

[DeddyH]

Deshalb ja die Anführungsstriche :mrgreen:

[Aphton]

Zitat:

Zitat von DeddyH

Das hätte ich ihn aber selbst austüfteln lassen, sonst kommt er ja nie von der "C&P-Programmierung" weg :zwinker:

[OT]
Ich lach mir grad den A*** ab ... xD
So was von wahr ...
Aber den Höhepunkt - wie negiert man eine Zahl kann keiner überbieten ...
[/OT]