Try my new website:
www.urcho.com
- the new SIMPLE social network
Sign up
|
287
members |
114
snippets
Search for:
ALL
POPULAR
File Controls
Multiplayer Code
2D Effects
3D Effects
Oldskool demos
Basic Functions
Maths/Physics
Sound
Tutorials
Misc
Username:
Password:
Sign up
Code2HTML by XtremeCoder
[
back
]
Author:
Archive
| Viewed:
687
times | Language:
BlitzBasic 3D
| Category:
File Controls
Function Code2HTML(file$,author$) codefile=OpenFile(file$) htmlfile=WriteFile(file$+".html") WriteLine(htmlfile, "<html>") WriteLine(htmlfile, "<head><title>"+ file$ + "</title></head>") WriteLine(htmlfile, "<body bgcolor=000000 Text=66CCFF >") WriteLine(htmlfile, "<center>") WriteLine(htmlfile, "<h1>"+ file$ + "</h1>") WriteLine(htmlfile, "<p><h3>Date: "+ CurrentDate() + "</h3>") WriteLine(htmlfile, "<h3>Author: "+ author$ +"</h3>") WriteLine(htmlfile, "</center>") WriteLine(htmlfile, "<hr>") WriteLine(htmlfile, "<center>") WriteLine(htmlfile, "<h2>Code:</h2>") WriteLine(htmlfile, "</center>") While Not Eof(codefile) ReadCode$ = ReadLine( codefile ) WriteLine(htmlfile, "<p>"+ReadCode$) Wend WriteLine(htmlfile, "</body>") WriteLine(htmlfile, "</html>") CloseFile(htmlfile) CloseFile(codefile) End Function
Author Comments:
Turns code into an HTML file, good for open source distributions... Sometimes/rarely the code will come out formatted and centered for whatever reason... depending on your code that may or may not happen...
Login or
create an account
to comment on this snippet
