Hallo,

ich suche eine Funktion, um 2 RTF Texte zu einem zusammen zu fassen;

Also einmal z.B.:

{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl {\f0\fnil\fcharset0 Arial;}}
{\colortbl ;\red0\green64\blue128;}
\viewkind4\uc1\pard\cf1\fs20 test 9\par
}

und

{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl {\f0\fnil Arial;}{\f1\fnil\fcharset0 Arial;}}\viewkind4\uc1\pard\f0\fs18 Ein Testtext\par \f0\par }

soll ein Text werden.

Bisher habe ich das via Zwischenablage gemacht, das ist aber suboptimal

Mein erstmal naiver Versuch wäre:

Beim ersten Text die letzte } entfernen und beim zweiten Text am Anfang {\rtf1\ansi\ansicpg1252\deff0\deflang1031, also alles vor der zweiten {, entfernen und dann die Texte aneinanderhängen.

Falls der erste Text nicht mit \par endet, das noch als Zeilenumbruch dazwischenpacken.

Meine Suche in Delphipraxis hat ergeben, dass das schon gibt.

Zitat von Slipstream:

Meine Suche in Delphipraxis hat ergeben, dass das schon gibt.

das von perlsau angegebene habe ich schon implementiert, aber das geht in einigen Fällen einfach nicht und macht mir immer wieder Ärger. Deshalb suche ich eine alternative.

@nahpets: die native Funktion gefällt mir, werde ich morgen mal testen

In vielen Fällen wird das funktionieren, aber z.B. die Redefinition von Fonts kann böse Irritationen erzeugen.
Kann, weil nicht jeder RTF-Interpreter alle Funktionalitäten implementieren muß.
Meiner Meinung nach, ist die Nutzung der Zwischenablage der effizenteste Weg um mit RTF umzugehen, da RTF das interne Format der Zwischenablage ist.

Gruß
K-H

Falls sich jemand fü die Definition interessiert:https://www.microsoft.com/en-us/down....aspx?id=10725

Ja, das mit den Problemen stimmt schon. Man muss schon sehr auf korrekte Syntax achten, wenn da was nicht stimmt, geht das genauso schief, wie das Kompilieren eines Programmens mit 'nem kleinen Syntaxfehler. Es geht nicht, aber bei RTF bekommt man keine Fehlermeldung und hat keine IDE, die den Cursor an der Fehlerstelle positioniert.

Allerdings hab' ich auf diese Weise früher mal die RTF-Dateien für die Erstellung der kontextsensitiven Hilfe unter Windows 95 erstellt und dann den damaligen Hilfekompiler damit gefüttert.

Es geht aber halt nur mit sehr einfachen RTF-Dateien. Man müsste hier bei den RTF-Dateien mal konkret schauen, wieviel man am Anfang abschneiden muss, um trotzdem noch gültige Fragmente zusammenfügen zu können.

Aber eigentlich müsste der Weg über die Zwischenablage auch automatisierbar sein.

Ungefähr sowas:

zusammenfalten · markieren

Delphi-Quellcode:

var
         sl : TStringList;
         i : Integer;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('Eine DateiDieAlleRTFDateienEnthaelt.txt');
  for i := 0 to sl.Count - 1 do begin
    Fragment.Lines.LoadFromFile(sl[i]);
    Fragment.SelectAll;
    Fragment.CopyToClipboard;
    GesamtRTF.SelStart := Length(GesamtRTF.Lines.Text);
    GesamtRTF.SelLength := 0;
    GesamtRFT.PasteFromClipboard;
    // Eventuell noch 'nen Zeilenumbruch einfügen
    GesamtRTF.Lines.Add('');
  end;
  sl.Free;
end;

Zitat von p80286:

In vielen Fällen wird das funktionieren, aber z.B. die Redefinition von Fonts kann böse Irritationen erzeugen.
Kann, weil nicht jeder RTF-Interpreter alle Funktionalitäten implementieren muß.
Meiner Meinung nach, ist die Nutzung der Zwischenablage der effizenteste Weg um mit RTF umzugehen, da RTF das interne Format der Zwischenablage ist.

Gruß
K-H

Falls sich jemand fü die Definition interessiert:https://www.microsoft.com/en-us/down....aspx?id=10725

Zwischenablage ist suboptimal, das habe ich über 15 Jahre so mal gemacht. Es kommen aber immer wieder Kunden, wo die Zwischenablage nicht funktioniert, warum auch immer. Genau die machen dann einen Aufstand, ist ja klar ....

Deshalb suche ich hier eine ohne "Krücken" funktionierende Lösung, mein Hintermann, der auch hier fleißig im Forum schreibt, würde zu sowas wie Zwischenablage sagen: "alles Fusch"