Title.s="Create an HTML table"
head.s=""
head.s+""+Title.s+""+chr(13)+chr(10)
tablehead.s
tablehead.s+""+chr(13)+chr(10)
tablehead.s+" | X | Y | Z |
|---|
"+chr(13)+chr(10)
index=0
tablebody.s=""
for row=1 to 4
index+1
tablebody.s+"| "+str(index)+" | "
for col=1 to 3
tablebody.s+""+str(Random(9999,1))+" | "
next
tablebody.s+"
|---|
"+chr(13)+chr(10)
next
tablefoot.s=""
tablefoot.s+"
"+chr(13)+chr(10)
foot.s=""
foot.s+""+chr(13)+chr(10)
FileName.s="Create_an_HTML_table.html"
If CreateFile(0,FileName.s)
WriteString(0,head.s)
WriteString(0,tablehead.s)
WriteString(0,tablebody.s)
WriteString(0,tablefoot.s)
WriteString(0,foot.s)
CloseFile(0)
Else
Debug "Not WriteString :"+FileName.s
EndIf
; RunProgram(FileName.s)