'=========================================================================== ' Subject: SMALL HTML GENERATOR Date: 11-03-96 (14:51) ' Author: Edward Blake Code: QB, QBasic, PDS ' Origin: blakee@rcsn.nb.ca Packet: HTML.ABC '=========================================================================== DECLARE SUB WIN (X1!, Y1!, X2!, Y2!, A$) ' Fast HTML Maker, This doesnt worth much to make a HomePage (really) ' Anyway, this ask for: ' a) a Title ' b) a BackGround image ' c) a COLOR 15, 3 WIN 5, 2, 75, 23, "Small HTML Generator" DO LOCATE 3, 6 PRINT "Note: Include the File Extension: .htm at end" LOCATE 4, 6 INPUT "It's future filename? (should not exist!) ", filenm$ IF filenm$ = "" THEN LOCATE 3, 6 PRINT "No Filename??? wazat? you want to cancel making a Html file?" LOCATE 6, 7 INPUT "Quit? [y,n]", ANSW$ IF LCASE$(RTRIM$(LTRIM$(ANSW$))) = "y" THEN COLOR 7, 0 CLS PRINT "Bye!" SYSTEM ELSE END IF ELSE EXIT DO END IF LOOP WIN 5, 2, 75, 23, "Small HTML Generator" LOCATE 3, 6 PRINT filenm$; INPUT "'S Title? ", Title$ IF Title$ = "" THEN PRINT "-no Title? ok." WIN 5, 2, 75, 23, "Small HTML Generator" LOCATE 3, 6 PRINT filenm$; INPUT "'S BackGround Graphic? (a .gif or .jpg file) ", BG$ IF BG$ = "" THEN PRINT "-no Background Graphic? ok." WIN 5, 2, 75, 23, "Small HTML Generator" LOCATE 3, 6 INPUT "A Picture? (a .gif or .jpg file) ", IMA$ DO WIN 5, 2, 75, 23, "Small HTML Generator" LOCATE 3, 6 PRINT "BackGround Color?" LOCATE 5, 6 PRINT " (in #RRGGBB (hex format), # is already added)" LOCATE 6, 6 PRINT " type '?' for see some combinations... " LOCATE 7, 6 INPUT " #", BGC$ IF BGC$ = "" THEN PRINT "-no Background COLOR? ok." EXIT DO ELSEIF BGC$ = "?" THEN WIN 5, 2, 75, 23, "Some Color Combinations" LOCATE 3, 9: PRINT "#FFFFFF - White Color" LOCATE 4, 9: PRINT "#FF0000 - Red Color" LOCATE 5, 9: PRINT "#00FF00 - Green Color" LOCATE 6, 9: PRINT "#0000FF - Blue Color" LOCATE 7, 9: PRINT "#000000 - Black" LOCATE 8, 9: PRINT "#FFFF00 - Yellow Color" LOCATE 9, 9: PRINT "#00FFFF - Cyan Color" LOCATE 10, 9: PRINT "#FF00FF - Purple Color" LOCATE 11, 9: PRINT "#CCCCFF - Light Blue" LOCATE 12, 9: PRINT "#FFFFCC - Light Yellow" LOCATE 13, 9: PRINT "#FFCCCC - Light Red" LOCATE 14, 9: PRINT "#FFCCFF - Light Purple" COLOR 7, 1 LOCATE 22, 6: PRINT "Press Any button to Return back to Background Color" DO: LOOP UNTIL INKEY$ <> "" COLOR 15, 3 ELSE EXIT DO END IF LOOP WIN 5, 2, 75, 23, "Small HTML Generator" LOCATE 3, 6 PRINT "Text File nput" LOCATE 5, 6 PRINT "This Program uses a TXT that was created in notepad or something " LOCATE 6, 6 PRINT "Like that. At each End-of-line (pressing Enter after a line)" LOCATE 7, 6 PRINT "Creates a paragraph seperation in this program." LOCATE 9, 6 DO INPUT "The TXT file to translate?", file$ IF file$ = "" THEN LOCATE 12, 6 INPUT "Abort Creation? [y,n]", ANSW$ IF LCASE$(RTRIM$(LTRIM$(ANSW$))) = "y" THEN COLOR 7, 0 CLS PRINT "Bye!" SYSTEM ELSE LOCATE 12, 6 PRINT " " END IF ELSE EXIT DO END IF LOOP WIN 5, 2, 75, 23, "Small HTML Generator" LOCATE 3, 6: PRINT "Generating HTML File!" LOCATE 4, 6: PRINT "Reading TXT file..." LOCATE 4, 6: PRINT "... And writting to HTML File" OPEN filenm$ FOR OUTPUT AS #2 PRINT #2, "" PRINT #2, Title$ IF BG$ = "" THEN ELSE G$ = G$ + " BACKGROUND=" + CHR$(34) + BG$ + CHR$(34) END IF IF BGC$ = "" THEN ELSE G$ = G$ + " BGCOLOR=" + CHR$(34) + BGC$ + CHR$(34) END IF G$ = G$ + ">" PRINT #2, "

" + Title$ + "

" IF IMA$ <> "" THEN PRINT #2, "" END IF OPEN file$ FOR INPUT AS #1 DO UNTIL EOF(1) INPUT #1, F$ F$ = F$ + "

" PRINT #2, F$ LOOP CLOSE #1 CLOSE #2 SUB WIN (X1, Y1, X2, Y2, A$) FOR I = Y1 TO Y2 LOCATE I, X1: PRINT STRING$(X2 - X1, 32); NEXT I LOCATE Y1, X1 + 1: PRINT STRING$(X2 - X1 - 1, 196); LOCATE Y2, X1 + 1: PRINT STRING$(X2 - X1 - 1, 196); FOR I = Y1 + 1 TO Y2 - 1 LOCATE I, X1: PRINT CHR$(179); LOCATE I, X2: PRINT CHR$(179); NEXT I LOCATE Y1, X1: PRINT CHR$(218); LOCATE Y1, X2: PRINT CHR$(191); LOCATE Y2, X1: PRINT CHR$(192); LOCATE Y2, X2: PRINT CHR$(217); IF A$ <> "" THEN LOCATE Y1, ((X2 + X1) / 2) - ((LEN(A$) + 2) / 2): PRINT " " + A$ + " " END IF END SUB