<code>Dim F As Integer
Dim sHTML As String
 
<font color=green>' gesamten Inhalt in String-Variable einlesen</font>
F = FreeFile
Open "DeineHTMLVorlagenDatei.html" For Binary As #F
sHTML = Space$(Lof(F))
Get #F, , sHTML
Close #F
 
<font color=green>' Platzhalter ersetzen</font>
sHTML = Replace(sHTML, "#PARAM1#", DeinParameter1)
sHTML = Replace(sHTML, "#PARAM2#", DeinParameter2)
usw.
 
<font color=green>' HTML-Vorlage als neue HTML-Datei abspeichern</font>
F = FreeFile
Open "NeueHTMLDatei.html" For Output As #F
Print #F, sText;
Close #F</code>