Also du müsstest dir doch erstmal überlegen was du machen möchtest
Nagut "Kommentare raussuchen" könnte man sagen. Aber das ist ja etwas zu "unspezifisch". Stattdessen suchst du nach einem Kommentaranfang () und willst das dazwischen herausholen.
Wenn wir jetzt unser
html-Dokument in einem string speichern (meinetwegen auch in einer TStringList. Aber so richtig was "bringen" tut es dir nichts).
Delphi-Quellcode:
var
htmlcontent :
string;
begin
htmlcontent := '
<html><head><titel>Willkommen!</title>' + #13#10
{ein Zeilenumbruch ;) } + '
</head><body>' + #13#10 + '
Hallo Welt</body></html>';
Du kannst das wie gesagt auch in einer TStringList speichern. Als nächstes suchen wir dann nach einem Kommentaranfang mithilfe von
Pos, bzw.
PosEx. Was diese Funktionen machen steht in der Hilfe. Und je nachdem wie du es letzendlich einbaust brauchst du PosEx oder kannst bei Pos bleiben.
Dann speicherst du dir wo das Kommentar beginnt (in diesem Fall das 13. Zeichen). Dann suchst du nach dem Ende des Kommentars. Das sollte dann das 45. Zeichen angeben. Jetzt musst du nur den Inhalt mithilfe von
Copy heraus kopieren.
Nachdem du das erste Kommentar jetzt gefunden hast bieten sich zwei Möglichkeiten an. Entweder du entfernst jetzt aus deinem String alles bis zum Kommentarende und suchst dann vom neuen. Oder du lässt erst nach dem Kommentarende anfangen zu suchen. Bei erstem brauchst du
Delete und beim letzeren Fall musst du dann auf
PosEx zurückgreifen. Ich würde zweiteres nehmen, da ich damit den String nicht verändern muss.
Auf jedenfall kannst du das dann solange machen bis Pos kein Kommentaranfang mehr findet.
MfG
xZise