; ID: 2036
; Author: XtremeCoder
; Date: 2007-06-11 17:03:50
; Title: Code2HTML
; Description: Turns code into an HTML file, good for open source distributions
Function Code2HTML(file$,author$)
codefile=OpenFile(file$)
htmlfile=WriteFile(file$+".html")
WriteLine(htmlfile, "")
WriteLine(htmlfile, ""+ file$ + "")
WriteLine(htmlfile, "")
WriteLine(htmlfile, "")
WriteLine(htmlfile, ""+ file$ + "
")
WriteLine(htmlfile, "Date: "+ CurrentDate() + "
")
WriteLine(htmlfile, "Author: "+ author$ +"
")
WriteLine(htmlfile, "")
WriteLine(htmlfile, "
")
WriteLine(htmlfile, "")
WriteLine(htmlfile, "Code:
")
WriteLine(htmlfile, "")
While Not Eof(codefile)
ReadCode$ = ReadLine( codefile )
WriteLine(htmlfile, ""+ReadCode$)
Wend
WriteLine(htmlfile, "")
WriteLine(htmlfile, "")
CloseFile(htmlfile)
CloseFile(codefile)
End Function