Quelltext laden und durchsuchen

[marabu]

Hi,

vielleicht hilft dir die Funktion Between(): klick

Grüße vom marabu

[bonanza]

was muss ich denn der funktion übergeben ?

wofür steht die constante "s" und die variablen "sleft" und "sright" und welchen text durchsucht er ?

[Interceptor]

Evtl. noch RegularExpressions
wäre wohl mit die sauberste Lösung

[marabu]

Hi,

Zitat von bonanza:

was muss ich denn der funktion übergeben ?

wofür steht die constante "s" und die variablen "sleft" und "sright" und welchen text durchsucht er ?

das und anderes steht in Beitrag #11 des verlinkten threads.

Zitat von bonanza:

kann man auch irgendwie eine suche so programmieren , dass die alles das wegschneidet, was nicht zwischen 2 gesuchten wörtern liegt ?

Delphi-Quellcode:

const
  S_TEXT
    = 'Ich geh und kaufe Farbe und Pinsel im Nu' + sLineBreak
    + 'eine Rolle Tapete und Nägel dazu.' + sLineBreak
    + 'Der Verkäufer fragt in leutseligem Ton:' + sLineBreak
    + '"Ist das Alles?" Ich sag: "Ja, ''n Hammer hab ich schon!"'
    ;
  S_LEFT = 'eine';
  S_RIGHT = 'dazu';
begin
  ShowMessage(S_LEFT + Between(S_TEXT, S_LEFT, S_RIGHT) + S_RIGHT);
end;

Freundliche Grüße

[bonanza]

kann man das auch irgendwie so anpassen, dass nicht nur nach einem paar sucht ? sondern wenn man z.b. einen text nac mehreren solcher dinge durchsuchen will, dass alle angezeigt werden ?

[marabu]

Deine Frage ist mir zu unspezifisch.
Kannst du etwas mehr ins Detail gehen?
Eventuell mit einem Beispiel?

[bonanza]

wenn ich jetzt z.b. folgendenden Text habe:

Peter spielt mit Christopf Fußball
Heinz spielt mit Holger Fußball
Jürgen spielt mit Udo Fußball


dann soll das programm z.b. alles was von MIT und FUßBALL eingeschlossen ist z.b. in einen anderen string kopieren.

[marabu]

Hi,

wenn du deinen Text in einem Memo stehen hast und die Namen der Mitspieler in einer ListBox sehen möchtest, dann könntest du so vorgehen:

Delphi-Quellcode:

procedure ExtractNames(slIn, slOut: TStrings);
var
  i: Integer;
begin
  slOut.BeginUpdate;
  try
    slOut.Clear;
    for i := 0 to Pred(slIn.Count) do
      slOut.Add(Between(slIn[i], 'mit ', ' Fußball'));
  finally
    slOut.EndUpdate;
  end;
end;

// Testen mit: ExtractNames(Memo.Lines, ListBox.Items);

Freundliche Grüße