Trim empty lines inside paragraph and validation of solution

I get XML-data in which I need to replace <Bold> elements with the corresponding attribute for bold and such. For this I do this:

const  BOLD_ON_Token = '<Bold>';  ...  procedure ReplaceAttribute(aRichText: TWPRichText; aStartToken, aEndToken: string; aElement: TOneWrtStyle);  var    StartID, EndID: Integer;  begin    aRichText.Finder.ToStart;    while true do    begin      if not aRichText.Finder.Next(aStartToken) then        break;      StartID := aRichText.Finder.DropMarkerAtFoundPosition(1);      if not aRichText.Finder.Next(aEndToken) then        break;      EndID := aRichText.Finder.DropMarkerAtFoundPosition(0);      if (StartID <> 0) and (EndID <> 0) then      begin        aRichText.TextCursor.SelectMarker(StartID, EndID);        try          aRichText.TextCursor.SelectedTextAttr.IncludeStyle(aElement);        finally          aRichText.TextCursor.CollectAllMarker;        end;      end;    end;  end;

Is this a correct procedure?

Later I remove the elements, using this (don't use wildcards);

rtMessage.Finder.ToStart;
    rtMessage.Finder.ReplaceAll(ITALIC_ON_Token,'');
    rtMessage.Finder.ToStart;
    rtMessage.Finder.ReplaceAll(ITALIC_OFF_Token,'');
    rtMessage.Finder.ToStart;
    rtMessage.Finder.ReplaceAll(BOLD_ON_Token,'');
    rtMessage.Finder.ToStart;
    rtMessage.Finder.ReplaceAll(BOLD_OFF_Token,'');
    rtMessage.Finder.ToStart;
    ...

When I preview the text, things look fine, but when I save to file and open in Word, the elements are still here. Wrong procedure?

In the XML I would like to trim multiple newlines inside the text (in RTF they appear /line/lineCrLf/line/line/line.., where Cr = ascii 13 and Lf = ascii 10) and leave just one or two. Can anyone help me with a solution?

Thanks in advance.[/code]

Hi,

to be able to tell here more it would be necessary to see the text before the replacement and after.

Do not forget the ReformatAll after all the replacements.

Julian

The XML I'm converting looks like this:

- <Text01>  Best regards   <Break />   <bold>Dr. Suess</bold>   <Break />   15.01.2004.   <Break />   <Break />   <Break />   <Break />   <Break />   <Break />   </Text01>

In RTF this ends up looking like this:

Best regards
\line <bold>Dr. Suess</bold>
\line 15.01.2004.
\line\line 
\line\line 
\line\line 
\line\line 
\line\line

To many /line/line's. I would like to reduce that to just two newlines.

The added spaces in the end of each line is something I also would like to remove. Adding (yet another) ReplaceAll with #32#13#10 replaced with #13#10 is fruitless, nothing happens.