Okay eine Frage habe ich noch:
Delphi-Quellcode:
procedure AddNodeValue (
const Node : IHTMLDOMNode;
var S :
string);
begin
if not Assigned (Node)
then
Exception.Create ('
Fehlermeldung');
if S <> '
'
then
S := S + '
';
S := S + Node.nodeValue
end;
procedure AddFFTText (Node : IHTMLDOMNode;
var S :
string);
begin
if not (DOMNodeTagNameIs (Node, '
div')
and DOMNodeClassNameIs (Node, '
fftText'))
then
Exception.Create ('
Fehlermeldung');
Node := Node.firstChild;
if not DOMNodeTagNameIs (Node, '
pre')
then
Exception.Create ('
Fehlermeldung');
Node := Node.firstChild;
if DOMNodeIsTextNode (Node)
then
AddNodeValue (Node, S)
end;
Die obige Prozedur speichert den Text zwischen
<pre> </pre> nur bis zum 1. Vorkommen eines
<br>, der Rest wird nicht mehr mitgenommen.
Code:
<div class="fftText">
<pre>Das ist der 1. Satz<br>Und dies ist der 2. Satz. In diesem Falle mit X<br>Ich mag auch mit !</pre>
</div>
Muss ich da noch eine Schleife über die <br> Knoten hinzufügen ?