Zusammenfügen von 2 RTF Texten

[arnof]

die Zwischenablage habe ich noch in der produktiv Version drin (habe gestern festgestellt). Da diverse andere Tipps die ich mir auch hier und sonstwo zusammen gesucht hatte zwar bei mir, aber bei einigen Kunden nicht gingen (RTF Texte sonst woher kopiert). Auch die Zwischenablage macht bei einigen Kunden immer wieder Probleme das sind zwar nur wenige aber, aber jeden Monat ist mind. einer dabei ....

Nun hier mal Code, der bei mir anstandslos geht:

Delphi-Quellcode:

function POSR(m,s:string):integer;
begin
 result:=POS(m,ReverseString(s));
 if result>0 then result:=length(s)-result;
end;

function RTF2RTF(rtf1,rtf2 :string):string;
begin
  if UpperCase(Copy(Rtf1, 1, 5)) = '{\RTF' then begin // RTF-Feld
   RTF1:=Copy(RTF1,1,POSR('}',RTF1));        /// letzte Klammer entfernen
   if UpperCase(Copy(Rtf2, 1, 5)) = '{\RTF' then begin // RTF-Feld
    RTF2:=Copy(RTF2,POS('{',Copy(RTF1,2,length(RTF1)))+1,length(RTF2));
   end else RTF2:=RTF2+'}';
  end else begin
   if UpperCase(Copy(Rtf2, 1, 5)) = '{\RTF' then begin // RTF-Feld
    RTF1:=Copy(RTF2,1,POS('{',RTF1)-1)+RTF1;
   end;
  end;
  result:=RTF1+RTF2;
end;

[p80286]

Mal andersherum gefragt, da RTF nicht gleich RTF ist, wo kommen Deine Texte her, bzw. ist sichergestellt, das nur wenige Parameter enthalten sind?
Wenn Word seine Finger im Spiel hat, könnte es unangenehm werden.

Gruß
k-H

[arnof]

ich teste nur mit ordentlichen texten (selbst eingegeben). Wie gesagt es gibt immer wieder Fälle wo es nicht geht, egal was und welche Lösung ich mache. Es gibt sogar fälle, dort stürzt die Windowseigene RTF Verarbeitung ab, dann haben alle Datensätze den gleichen Inhalt bzw. es geht keiner Refresh mehr, wenn er auf sowas trift.

Ich habe nun diese Version in meine Neuentwicklung gepackt und lasse es bis zum nächsten Finalrelease als BETA laufen, mal sehen was passiert. Ansonst schalte ich die Zwischenablage wieder an.

[nahpets]

Schau bitte mal, ob dieser Quelltext https://www.experts-exchange.com/vie...ippetId=405737 eventuell eine Ergänzung für Deine Problemlösung sein könnte. Das sieht zwar etwas kompliziert aus, kommt dafür aber ohne das (vermutlich fehleranfällige) Parsen von RTF aus.

Der ganze Thread zu dem Thema ist hier zu finden: https://www.experts-exchange.com/que...wer25287631-20