title image


Smiley Geschafft: Neues HTML File anlegen + Tags einfügen!
Hallo!



Mit ein bisschen Spielerei habe ich es geschafft, siehe folgender Code:



Dein Hinweis hat aber auf jeden Fall den Einstieg ins DHTML Programmieren erleichert, nochmals Danke!





  Dim oHTML As HTMLDocument

  Dim fso As New FileSystemObject

  Dim f As TextStream

  

  Dim oHTMLNew As HTMLDocument

  Dim oElem As IHTMLElement

  Dim oElemNew As IHTMLElement

  Dim oDocColl As IHTMLElementCollection

  Dim oDocElem As IHTMLElement

  

  Dim oBody As HTMLBody

  Dim oNode As IHTMLDOMNode

  Dim oDoc As Object

  

  ' HTML Grundgerüst erzeugen

  Set oHTML = New HTMLDocument

  

  ' HTML Body Element ermitteln

  Set oDocColl = oHTML.All

  For Each oDocElem In oDocColl

    If TypeName(oDocElem) = "HTMLBody" Then

      Set oBody = oDocElem

      Exit For

    End If

  Next

  

  ' Neues Element hinzufügen

  Set oElemNew = oHTML.createElement("B")

  oElemNew.innerText = "Hallo"

  oBody.insertAdjacentElement "afterBegin", oElemNew

  

  ' Ergebnis ausgeben

  Debug.Print oElemNew.outerHTML

  Debug.Print oHTML.documentElement.outerHTML

  

  ' Ergebnis in File ausgeben

  Set f = fso.CreateTextFile("C:\TestHallo.html", True)

  f.write oHTML.documentElement.outerHTML

  

  f.Close

  Set f = Nothing

  Set fso = Nothing

  

  oHTML.Close

  Set oHTML = Nothing

  Set oElemNew = Nothing







Danke und LG,

Georg!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: