gurkenhobel
Goto Top

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

Content-Key: 245329

Url: https://administrator.de/contentid/245329

Ausgedruckt am: 29.03.2024 um 12:03 Uhr

Mitglied: Frank
Frank 01.08.2014 um 17:39:25 Uhr
Goto Top
Hi,

und was für ein Basic genau ist das? Welche Plattform?

Gruß
Frank
Mitglied: Gurkenhobel
Gurkenhobel 01.08.2014 um 19:34:49 Uhr
Goto Top
Oh Sorry,

Das ist VBS - Vsual Basic Script

Gruß GH
Mitglied: vossbaer
vossbaer 18.08.2014 um 10:49:01 Uhr
Goto Top
Danke läuft gut!