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]

Delphi-Quellcode:

  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:

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