Leerzeichen/Zeilenumbrüche bis unbekannten Text löschen

[Firewing]

Ahoi Matrosen, wie im anderen Thread auch schon in der Art gefragt:

Wie bekomme ich es realisiert, dass er meine Zeichenkette löscht (HTML Quelltext), bis der erste unbekannte Buchstabe auftritt?

Die Zeichenkette sieht etwa so aus: [Zeilenumbruch][Zeilenumbruch][Leerzeichen][Leerzeichen][Leerzeichen]xy Peter Pan ist ein toller...

(Die Zeilenumbruch/Leerzeichenanzahl wechselt und der Text (xy Peter Pan ist ein toller...) auch...)

Habe den Ansatz verfolgt alle Zeilenumbrüche/Leerzeichen mit Replace '' zu ersetzen - bei Zeilenumbrüchen OK, aber bei Leerzeichen nicht (Sätze usw haben ja auch Leerzeichen )

(Info: Die Leerzeichen sind nicht als &bnsp; im Quelltext angezeigt, der Quelltext ist nur "übersichtlich" dargestellt, deswegen die vielen "überflüssigen Leerzeichen".)

Hat da jemand ne gute Idee? Danke schön, schon im Vorraus

[dominikkv]

  Delete(MeineHTMLSeite, 1, Pos(MeineHTMLSeite, 'Der Text ab dem nicht mehr gelöscht werden soll')); oder (wenn der Anfangstext nicht bekannt ist)

Delphi-Quellcode:

  while (length(MeineHTMLSeite) > 0) and not (MeineHTMLSeite[1] in ['A'..'Z', 'a'..'z', '0'..'9']) do
    Delete(MeineHTMLSeite, 1, 1);

[marabu]

Moin,

Zitat von Firewing:

... Wie bekomme ich es realisiert, dass er meine Zeichenkette löscht ..., bis der erste unbekannte Buchstabe auftritt? ...

bei einfachem Text könnte ich mir das so vorstellen:

Delphi-Quellcode:

function SkipChars(sz: PChar; chars: TSysCharSet): PChar;
begin
  while Assigned(sz)
  and (sz^ in chars) do
    Inc(sz);
  Result := sz;
end;

// ZeichenKette := SkipChars(ZeichenKette, [#10,#13,#32]);

Wobei speziell whitespace auch mit Trim() entfernt werden kann.

Grüße vom marabu