SGML/HTML parsen bzw. Wörter per   zusammenkleben

[Andi1985]

Nur damit ich die Aufgabenstellung verstehe:

Du hast ein String:

Zitat:

Hallo wie geht es Dir.Ich würde mich freuen,Dich wiederzusehen!

und du willst:

Zitat:

HallowiegehtesDir.Ich

würdemichfreuen,Dich

wiederzusehen!

würd ich folegndermaßen lösen:

Zitat:

1. Sonderzeichen übersetzen (ü -> ü)
2. Jedes Zeichen durchlaufen
3. Das letzte Leerzeichen (' ') in jeder Zeile suchen (Position < 30) und ein
-> &lt;br&gt; setzen
4. Alle ' ' durch ersetzen
5. Sonderzeichen übersetzen (ü -> &nbsp)

mit dem letzten Leerzeichen in einer Zeile suchen würde ich so lösen:

Delphi-Quellcode:

function SearchLastSpace(sText : string; iOffset : integer): integer;
var
  iPosition : Integer;
  iLastPosition : Integer;
  const ZEICHEN : integer = 30;
begin
  iPosition := -1;
  iLastPosition := iOffset;

  while (iPosition < ZEICHEN+iOffset) and (iPosition <> 0) do
  begin
    iPosition := PosEx(' ', sText, iLastPosition+1);

    if (iPosition < ZEICHEN+iOffset) and (iPosition > 0) then
    begin
      iLastPosition := iPosition;
    end;
  end;

  result := iLastPosition-iOffset;
end;