Visual Basic Script (VBS): HTML-Tabelle generieren

Für all jene, die schnell mal eine simple HTML-Tabelle benötigen, ist das folgende Skript gedacht. Der Name der fertigen Tabelle sowie die Anzahl der Spalten und Zeilen wird beim Start abgefragt. Jede Zelle wird fortlaufend um den Wert 1 hochgezählt. Im Skript lassen sich noch andere Tags (width, color, align usw.) anbringen. Die mühsame Eingabe von Hand wird ohne HTML-Editor automatisiert und ist in jedem gängigem Browser anzeigbar.

Dim objAusgabe, Ausgabedatei, Spaltenzahl, Zeilenzahl, Zellenzahl, i, j, z
Set fso = CreateObject("Scripting.FileSystemObject")  
Ausgabedatei=Inputbox("Name der Datei",,"Tabelle.html")  
' Ausgabedatei="test.html"  
Spaltenzahl=Inputbox("Aus wieviel Spalten soll die Tabelle bestehen?","Anzahl der Spalten",5)  
Zeilenzahl=Inputbox("Aus wieviel Zeilen soll die Tabelle bestehen?","Anzahl der Zeilen",3)  
Zellenzahl = Spaltenzahl * Zeilenzahl
Set objAusgabe = fso.OpenTextFile(Ausgabedatei, 2, True)

objAusgabe.WriteLine "<HTML><HEAD><TITLE>Tabelle</TITLE></HEAD>" & vbcrlf  
objAusgabe.WriteLine "<BODY>" & vcrlf & "<TABLE Border=1>"  

for z=1 to Zellenzahl
 for i=1 to Zeilenzahl
  objAusgabe.WriteLine "<TR>"  
  for j=1 to Spaltenzahl
   objAusgabe.WriteLine "<TD>&nbsp;"& z &"&nbsp;</TD>"  
   z = z + 1
  next
  objAusgabe.WriteLine "</TR>"  
 next
 objAusgabe.writeline "</TABLE></BODY></HTML>"  
next
objAusgabe.close