Text aus einem Richedit kopieren

**NoGAD**

Hallo ihr Lieben!

Seid mir bitte nicht böse, aber Reguläre Ausdrücke verstehe ich einfach nicht. Das ist mir zu kompliziert, zu abstrakt.
Nebenbei: 3 verschiedene Versionen von RegExp? :

:
Außerdem ist es hier für mein aktuelles Anliegen nicht nutzbar, wie ich meine.

Zitat von KodeZwerg:

@Delphi.Narium:
Sehr gut formuliert, damit konnte ich was anfangen.
Das kam bei mir raus. Erfüllt es die Anforderungen?

Leider nicht. Es fehlt eine Abfrage, ob der String überhaupt genutzt werden soll.

Das ist ein Ausschnitt des Textes, welchen ich versuche zu parsen: (HTML-Quellcode von

https://de.wikipedia.org/w/index.php.../A&action=edit )

markieren

Code:

			<!DOCTYPE html>

<html class="client-nojs" lang="de" dir="ltr">

<head>

<meta charset="UTF-8"/>

[COLOR="Yellow"]{ Schnipp Schnapp, hier habe ich viel HTML gelöscht }[/COLOR]

id="wpScrolltop" type="hidden" name="wpScrolltop"/><input type="hidden" value="d41d8cd98f00b204e9800998ecf8427e" name="wpAutoSummary"/><input type="hidden" value="0" name="oldid"/><input type="hidden" value="210416705" name="parentRevId"/><input type="hidden" value="text/x-wiki" name="format"/><input type="hidden" value="wikitext" name="model"/><textarea aria-label="Wikitext-Editor" tabindex="1" accesskey="," id="wpTextbox1" cols="80" rows="25" style="" class="mw-editfont-monospace" lang="de" dir="ltr" name="wpTextbox1">__NOTOC__

{{SubTOC|Titel=Liste von Autoren|Index=Liste von Autoren}}

[COLOR="Red"]{ Ab hier besteht mein Interesse, alle Angaben heraus zu filtern }[/COLOR]

[COLOR="red"]{ Ich benötige dazu die Namen, Die Jahresangaben und das Land (Alle Werte, soweit verfügbar)}[/COLOR]

== Aa ==

: [[Bertus Aafjes]] (1914&#8211;1993), NL

: [[Jeppe Aakjær]] (1866&#8211;1930), DK

: [[Johannes Aal]] (um 1500&#8211;1551), CH

: [[Hans Aanrud]] (1863&#8211;1953), NO

: [[Emil Aarestrup]] (1800&#8211;1856), DK

: [[Soazig Aaron]] (* 1949), FR

: [[Ivar Aasen]] (1813&#8211;1896), NO

== Ab ==

: [[Petrus Abaelardus]] (1079&#8211;1142), FR

{[.. ff ..]}

Im Weiteren Verlauf parse ich dann diesen Text, um ein Array zu bilden, um dann dies zu bekommen:

zusammenfalten · markieren

Delphi-Quellcode:

			  Authors_German: array [1 .. 3711, 1 .. 3] of string = (

    (('Bertus Aafjes'), ('1914–1993'), ('NL')),

    (('Jeppe Aakjær'), ('1866–1930'), ('DK')),

    (('Johannes Aal'), ('um 1500–1551'), ('CH')),

    (('Hans Aanrud'), ('1863–1953'), ('NO')),

    (('Emil Aarestrup'), ('1800–1856'), ('DK')),

    (('Soazig Aaron'), ('1949'), ('FR')),

    (('Ivar Aasen'), ('1813–1896'), ('NO')),

    (('Petrus Abaelardus'), ('1079–1142'), ('FR')),

[COLOR="Yellow"]{ Schnipp Schnapp }[/COLOR]

Und nochmal der Hinweis: Es funktioniert ja inzwischen, Dank der Hilfe von Delphi.Narium.

Der Code für das Kopieren der Namen ist folgende funtion:

zusammenfalten · markieren

Delphi-Quellcode:

			function TForm6.SearchForText(sText: String; SearchTextA, SearchTextB: string; var Dummy_StringList: TStringList): boolean;

var

  sName: String;

  iPos1: Integer;

  iPos2: Integer;

  iPos3: Integer;

begin

  { -- THX@Delphi.Narium und KodeZwerg https://www.delphipraxis.net/1486806-post5.html -- }

  if (Pos(SearchTextA, sText) = 0) or (Pos(SearchTextB, sText) = 0) then

    exit;

  sText := sText + SearchTextB;

  Dummy_StringList.Clear;

  try

    while (sText.Length > 0) and (sText <> SearchTextB) do

    begin

      iPos1 := Pos(SearchTextA, sText);

      iPos2 := Pos(SearchTextB, sText, iPos1 + Length(SearchTextA));

      sName := Trim(Copy(sText, iPos1, iPos2 - 1));

      iPos3 := Pos(slinebreak, sName);

      if iPos3 > 0 then

        sName := Trim(Copy(sName, 1, iPos3 - 1));

      if (sName.Length > 0) and (sName <> SearchTextA) and (sName <> SearchTextB) then

        Dummy_StringList.Add(sName);

      sText := Copy(sText, iPos2, Length(sText));

    end;

  finally

    result := true;

  end;

end;

// Aufruf der Function:

var

  Dummy_StringList: TStringList;

  Dummy_String: String;

begin

  RichEdit2.Clear;

  Dummy_StringList := TStringList.Create;

  Dummy_String := RichEdit1.Text;

  if SearchForText(Dummy_String, Author_From, Author_From, Dummy_StringList) then

    RichEdit2.Lines.AddStrings(Dummy_StringList);

  Dummy_StringList.Free;

end;

LG Mathias

**KodeZwerg**

Zitat von NoGAD:

Zitat von KodeZwerg:

@Delphi.Narium:
Sehr gut formuliert, damit konnte ich was anfangen.
Das kam bei mir raus. Erfüllt es die Anforderungen?

1. Leider nicht. Es fehlt eine Abfrage, ob der String überhaupt genutzt werden soll.
2. Und nochmal der Hinweis: Es funktioniert ja inzwischen, Dank der Hilfe von Delphi.Narium.

1. ich habe etwas erstellt was Delphi.Narium als aufgabe formulierte da ich mit deinem text nicht klar kam.
2. das klingt super, dann ist das thema ja durch und man braucht sich keine weiteren gedanken mehr machen

Text aus einem Richedit kopieren

AW: Text aus einem Richedit kopieren

AW: Text aus einem Richedit kopieren

Forumregeln