bestimmte Wörter im Memo suchen

[marabu]

Zu meinem Code aus Beitrag #7 ein paar Erklärungen:

Mit der Funktion After() extrahierst du den Teil eines Strings, der einem bestimmten Teilstring folgt. After('ABCDE', 'C') liefert dir als Ergebnis 'DE', After('ABCDE', 'F') liefert einen leeren String.

Die Funktion Between() liefert den String zwischen zwei bestimmten Teilstrings. Between('ABCDE', 'A', 'E') liefert das Ergebnis 'BCD'.

Die Prozedur CustomExtract() ist die abstrakte Implementierung deiner Anforderung, zumindest in der Form wie ich sie verstanden habe. Die Prozedur untersucht die StringListe sIn zeilenweise nach geklammerten Substrings und wenn es solche entdeckt, dann wird der Rest der betreffenden Zeile noch nach einem Schlüsselwort abgesucht. Die beiden Teilstrings werden bei Bedarf verkettet und in der StringListe sOut eingetragen.

Der Code ist nicht besonders anspruchsvoll, der Kniff bei der Sache ist die Abstraktion. Unabhängig davon solltest du so schnell wie möglich lernen fremden Code unter Zuhilfenahme der Delphi Online-Hilfe zu analysieren. Bei Dreizeilern solltest du es auch dann schon können, wenn du noch keine Programmiererfahrung hast. Ohne diese Schlüsselfertigkeit hat deine Lernkurve einen extrem ungünstigen Verlauf.

Freundliche Grüße

marabu

[delphiUser88]

Delphi-Quellcode:

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
sZB                    : String;




function Between(const s, sLeft, sRight: String): String;
var
  iLeft, iRight: Integer;
begin

  iLeft := Pos(sLeft, s);
  if iLeft > 0 then
  begin
    Inc(iLeft, Length(sLeft));
    iRight := PosEx(sRight, s, iLeft);
    if iRight > 0
      then sZB := Copy(s, iLeft, iRight - iLeft)
      else sZB := ''
  end else sZB := '';
end;


procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
slDat: TStringList;
begin

slDat := TStringList.Create;
slDat.Clear;

for i := 0 to RichEdit1.Lines.Count -1 do
begin

Between(RichEdit1.Lines.Strings[i], '(', ')');
slDat.Add(sZB);
sZB := '';

end;//schleife


end;

Ich schaue so langsam durch :-D

[delphiUser88]

Funktion CustomExtract kapier ich immer noch nicht ! Erst wird wenn ich das richtig verstanden habe in "sIn" nach den Klammern gesucht dazu also der Aufruf der Funktion (Between)

"s := Between(sIn[i], '(', ')');"

Wenn also das der Fall ist dann wird geschaut was alles hinter der Klammer ")" ist und dann nach dem Keyword gesucht
und zwar mit dem Aufruf

"if AnsiContainsText(After(sIn[i], ')'), keyword)"


Dann wird der Variable "s" das Wort zwischen den Klammern + das Schlüsselwort übergeben und zwar damit

"s := s + ' ' + keyword;"


Anschließend wird "sOut" "s" übergeben Jetzt frag ich mich nur wie sIn zu inhalten kommt ? denn sIn ist ja in der Funktion absolut leer Ich vermute mal das beim Aufruf der Funktion

"CustomExtract(Memo.Lines, ListBox.Items, 'Konto');"

Memo für das füttern von "sIn" sorgt und ListBox für die Ausgabe von "sOut" und "Konto" der Rückgabewerd ist also das Schlüsselwort jedenfalls wird in LisBox nichts ausgegeben wenn dies überhaupt so sein sollte ?

MEIN KOPF RAUCHT :mrgreen:

[marabu]

Hallo.

Du hast alles richtig verstanden, denke ich. Die zu untersuchenden Daten wolltest du in deinem Eröffnungsbeitrag in einem Memo bereit stellen, deshalb habe ich dazu keinen Code gezeigt. Wenn es dir gefällt, dann kannst du die Daten auch in RichEdit.Lines bereit stellen oder in ListBox.Items - die Prozedur CustomExtract() will ja nichts über die visuelle Komponente wissen, sie braucht nur einen Griff an die StringListe.

marabu

[delphiUser88]

Hallo Marabu funktioniert trotzdem nicht wenn ich die Daten zB in "sIn" bereitstelle also

sIn.Strings[0] := '(Deutsche Bank) das ist das Schlüsselwort Konto';

dann müsste er mir doch im ersten Schleifendurchgang wenn i noch 0 ist mir in "sOut" das ausgeben

"Deutsche Bank" + Leerzeichen + "Konto"

funktioniert aber leider nicht :(


MFG: DelphiUser