DIV classes mit getElementByID auslesen

[Ajintaro]

Hallo Volker !

Ich habe mich gerade mit deinem Code beschäftigt und etwas damit experimentiert. Abgesehen von einer klitzekleinen Änderung (siehe unten) funktioniert der Code bis an folgender Stelle AddFFTText (n.nextSibling, s); sehr gut ! Da gibt es eine Access violation welche ich derzeit näher auf den Grund gehe. Aber vielen Dank schon mal für deine Hilfe, ich werde mich weiter mit diesem Thema beschäftigen !

Zitat von Volker Z.:

Hallo,


Das könnst z. B. Du so machen (das Exception Handling musst Du halt noch sauber programmieren):
[DELPHI]
uses
MSHTML;

function DOMNodeClassNameIs (const Node : IHTMLDOMNode; const Name : string) : Boolean;
var
e : IHTMLElement;
begin
e := Node as IHTMLElement;
if not Assigned (e) then
Exception.Create ('Fehlermeldung');

Result := e.className = Name //richtig ist: e._className
end;

[Ajintaro]

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 ?