'=========================================================================== ' Subject: FILES TO HTML BUILDER Date: 04-18-97 (15:00) ' Author: Xtance Coders Alliance Code: QB, PDS ' Origin: harryst@castel.nl Packet: HTML.ABC '=========================================================================== ' Xtance Coders Alliance Presents DIZ2HTM By Mr. Snow '97 ' 18-04-97! ' ' Greets to all people on the world.. except lamers!!!! ' RUN with /? for info! ' ' Special greets to william yu from All Basic Code 1997 ' DECLARE SUB HelpMe () DECLARE SUB pUTaTeND () DECLARE SUB PutAtStart () DECLARE SUB READDIZ (Dz%, Diz$()) DECLARE SUB GETDIZ () DEFINT A-Z DECLARE FUNCTION DIR$ (FileSpec$) '$INCLUDE: 'QB.BI' '----- Some constants that DIR$ uses CONST DOS = &H21 CONST SetDTA = &H1A00, FindFirst = &H4E00, FindNext = &H4F00 '-------------------------------------------------------------------- SELECT CASE COMMAND$ CASE "/?", "?", "?", "H", "-H", "/H" CALL HelpMe CASE ELSE END SELECT IF LEN(DIR$("FILES.HTM")) THEN KILL "FILES.HTM" PRINT PRINT "ZIP File to HTML Converter by Mr. Snow... '97!" PRINT "----------------------------------------------" PRINT PRINT "Your files path: For exmp: "; : COLOR 7, 4: PRINT "http://www.page4life.nl/mrsnow/files/"; : COLOR 7, 0 PRINT : INPUT "Path: ", FilesPath$ PRINT "Your images path: For exmp: "; : COLOR 7, 4: PRINT "http://www.page4life.nl/mrsnow/images/"; : COLOR 7, 0 PRINT : INPUT "Path: ", ImagesPath$ PRINT "Your background file: For exmp: "; : COLOR 7, 4: PRINT "backgrou.gif"; : COLOR 7, 0 PRINT : INPUT "Image: ", background$ PRINT "Your LineBreak file: For exmp: "; : COLOR 7, 4: PRINT "bar.gif"; : COLOR 7, 0 PRINT : INPUT "Image: ", LineBreak$ CLS DIM FFile$(2000) DIM FFFile$(2000) DIM Diz$(200) FileSpec$ = "*.ZIP" OPEN "FILES.HTM" FOR OUTPUT AS #1 CALL PutAtStart CLOSE 1 Found$ = DIR$(FileSpec$) DO ff = ff + 1 FFile$(ff) = Found$ 'PRINT Found$ Found$ = DIR$("") LOOP UNTIL Found$ = "" LOCATE 1, 1: PRINT STRING$(80, 196) LOCATE 2, 30: PRINT ff; " ZIP FILES FOUND" LOCATE 3, 1: PRINT STRING$(80, 196) FOR z = 1 TO ff LOCATE 4, 1: PRINT STRING$(80, 32) LOCATE 4, 1: PRINT FFile$(z); CALL GETDIZ NEXT z OPEN "FILES.HTM" FOR APPEND AS #1 pUTaTeND CLOSE 1 END NODiZ: PRINT ERR RESUME NEXT RETURN FUNCTION DIR$ (FileSpec$) STATIC SHARED ImagesPath$, background$, LineBreak$, FilesPath$ DIM DTA AS STRING * 44, Regs AS RegTypeX Null$ = CHR$(0) '----- Set up our own DTA so we don't destroy COMMAND$ Regs.ax = SetDTA 'Set DTA function Regs.dx = VARPTR(DTA) 'DS:DX points to our DTA Regs.ds = -1 'Use current value for DS INTERRUPTX DOS, Regs, Regs 'Do the interrupt '----- Check to see if this is First or Next IF LEN(FileSpec$) THEN 'FileSpec$ isn't null, so 'FindFirst FileSpecZ$ = FileSpec$ + Null$ 'Make FileSpec$ into an ASCIIZ 'string Regs.ax = FindFirst 'Perform a FindFirst Regs.cx = 0 'Only look for normal files Regs.dx = SADD(FileSpecZ$) 'DS:DX points to ASCIIZ file Regs.ds = -1 'Use current DS ELSE 'We have a null FileSpec$, Regs.ax = FindNext 'so FindNext END IF INTERRUPTX DOS, Regs, Regs 'Do the interrupt '----- Return file name or null IF Regs.flags AND 1 THEN 'No files found DIR$ = "" 'Return null string ELSE Null = INSTR(31, DTA, Null$) 'Get the filename found DIR$ = MID$(DTA, 31, Null - 30) 'It's an ASCIIZ string starting END IF 'at offset 30 of the DTA END FUNCTION SUB GETDIZ REDIM Diz$(200)': ON ERROR GOTO NODIZ SHARED ImagesPath$, background$, LineBreak$, FilesPath$ SHARED FFile$(), z, Ch$, NODiZ.Text$ PRINT LEFT$(FFile$(z), LEN(FFile$(z)) - 1) + " FILE_ID.DIZ C:\TEMP -o >NUL" SHELL "PKUNZIP " + LEFT$(FFile$(z), LEN(FFile$(z)) - 1) + " FILE_ID.DIZ C:\TEMP -o >NUL" READDIZ Dz, Diz$() 'FOR z = 1 TO dz 'PRINT Diz$(z) 'NEXT z OPEN "FILES.HTM" FOR APPEND AS #1 Start$ = "" Start$ = LCASE$(LEFT$(FFile$(z), LEN(FFile$(z)) - 1)) + "" + STRING$(14 - LEN(FFile$(z)), 32) + " " + Diz$(1) Start$ = "
" + Start$
       
	PRINT #1, Start$
FOR Dz = 2 TO Dz
	PRINT #1, STRING$(30, 32) + Diz$(Dz)
NEXT Dz

	PRINT #1, "
" PRINT #1, "

" PRINT #1, "" CLOSE 1 IF INKEY$ <> "" THEN END END SUB SUB HelpMe FOR z = 25 TO 1 STEP -1 LOCATE z, 1: PRINT STRING$(80, 32); FOR q = 1 TO 32000: NEXT q NEXT z: LOCATE 1, 23: PRINT "Mr. Snow's SnowWare Productions 1997" LOCATE 2, 23: PRINT "------------------------------------" LOCATE 4, 1: PRINT "þ The FILE_ID.DIZ 2 FILES.HTM converter" LOCATE 5, 1: PRINT "þ for internet use.. (like ftp/ect)" LOCATE 6, 1: PRINT "þ and like always.. source included.!" LOCATE 8, 1: PRINT "þ Why?" LOCATE 9, 1: PRINT "þ Becouse i wanned to convert a list" LOCATE 10, 1: PRINT "þ to an internet html file.. so I " LOCATE 11, 1: PRINT "þ started to program.. QuickBASIC!RULEZ!!" LOCATE 12, 1: PRINT "þ and in 3 hourz this was the result.." LOCATE 14, 1: PRINT "þ If you have to no what you can do with it.. read on." PRINT "Your files path: For exmp: "; : COLOR 7, 4: PRINT "http://www.page4life.nl/mrsnow/files/"; : COLOR 7, 0 PRINT : COLOR 14, 1: PRINT " þ Path: {http://www.page4life.nl/mrsnow/files/ <<--- SLASH!}": COLOR 7, 0 PRINT "Your images path: For exmp: "; : COLOR 7, 4: PRINT "http://www.page4life.nl/mrsnow/images/"; : COLOR 7, 0 PRINT : COLOR 14, 1: PRINT " þ Path: {http://www.page4life.nl/mrsnow/images/ <<--- SLASH!}": COLOR 7, 0 PRINT "Your background file: For exmp: "; : COLOR 7, 4: PRINT "backgrou.gif"; : COLOR 7, 0 PRINT : COLOR 14, 1: PRINT " þ Image: backgrou.gif {Same as on your ftp (ucase/lcase)}": COLOR 7, 0 PRINT "Your LineBreak file: For exmp: "; : COLOR 7, 4: PRINT "bar.gif"; : COLOR 7, 0 PRINT : COLOR 14, 1: PRINT " þ Image: break.gif {Same as on your ftp (ucase/lcase)}": COLOR 7, 0 LOCATE 24, 24: PRINT "Press enter to continue.."; DO LOOP UNTIL INKEY$ = CHR$(13) FOR z = 1 TO 25 LOCATE z, 1: PRINT STRING$(80, 32); FOR q = 1 TO 32000: NEXT q NEXT z: LOCATE 1, 1: LOCATE 1, 23: PRINT "Mr. Snow's SnowWare Productions 1997" LOCATE 2, 23: PRINT "------------------------------------" LOCATE 4, 1: PRINT "þ The FILE_ID.DIZ 2 FILES.HTM converter" LOCATE 5, 1: PRINT "þ for internet use.. (like ftp/ect)" LOCATE 6, 1: PRINT "þ and like always.. source included.!" LOCATE 8, 10: PRINT "See this as a example that you see in your files.htm!" PRINT "" PRINT "" PRINT "" PRINT "The FILES.HTM Html by DIZ2HTM V1.0" PRINT "" PRINT "" PRINT "" PRINT PRINT "
" PRINT "

Mr. Snow's DIZ2HTM v1.0 in QuickBASIC 4.5!

" PRINT "

" PRINT "" LOCATE 24, 24: PRINT "Press enter to continue.."; DO LOOP UNTIL INKEY$ = CHR$(13) FOR z = 1 TO 25 LOCATE z, 1: PRINT STRING$(80, 32); FOR q = 1 TO 32000: NEXT q NEXT z: LOCATE 1, 1: PRINT "
walk^xca.zip                  Ú ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ¿"
PRINT "                              ³ sS$$$   $$$$$$$S  $  '97  ³"
PRINT "                              ³    $$$ $$$      $$ $$     ³"
PRINT "                              ³     $SSS$      $$   $$    ³"
PRINT "                              ³      SSS      $$     $$   ³"
PRINT "                              ³      SsS     $$       $$  ³"
PRINT "                              ³      SsS     SSSSs.sSSSS  ³"
PRINT "                              ³     $SSS$    $  s      $  ³"
PRINT "                              ³    $$$ $$$   S  S      S  ³"
PRINT "                              ³ sS$$$   $$$$$$$S       s  ³"
PRINT "                              ³                           ³"
PRINT "                              ³  Xtance Coders Alliance!  ³"
PRINT "                              ³.ú.   .ú.   .ú.   .ú.   .ú.³"
PRINT "                              ³   'ú`   'ú`   'ú`   'ú`   ³"
PRINT "                              ³ Coder; Mr. Snow           ³"
PRINT "                              ³ Date ; 04-17-1997         ³"
PRINT "                              ³ Rate ; [þþþþþþþþþþ]       ³"
PRINT "                              ³ Type ; DIZ 2 HTML Convert.³"
PRINT "                              ³                           ³"
PRINT "                              ³ a powerfull file_id.diz to³"
PRINT

LOCATE 24, 24: PRINT "Press enter to continue..";
DO
LOOP UNTIL INKEY$ = CHR$(13)

FOR z = 1 TO 25
	LOCATE z, 1: PRINT STRING$(80, 32);
	FOR q = 1 TO 32000: NEXT q
NEXT z:
LOCATE 1, 1:

PRINT "                              ³ Files.HTM builder. /QBSRC ³"
PRINT "                              ³ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ³"
PRINT "                              À´ Mr. Snow^XCa 1997! Pack ÃÙ"
PRINT "                                ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"


PRINT "
" PRINT "

" PRINT : PRINT "Thanxs for looking at my program... if you like to see more from my work" PRINT PRINT "GroNET Graphics! #0 þ http://www.page4life.nl/gronet" PRINT "GroNET Graphics! #1 þ http://www.page4life.nl/Imms" PRINT "GroNET Graphics! #2 þ http://users.castel.nl/~harryst" PRINT PRINT "Mr. Snow Page!. þ http://www.page4life.nl/mrsnow/index.htm" PRINT "Xtance Coders Alliance!. þ http://www.page4life.nl/xca-djt/index.htm" PRINT "DeeJee'z Team!. þ http://www.page4life.nl/xca-djt/index.htm" PRINT PRINT "or just e-mail to me:" PRINT PRINT "Mr. Snow at Freemail: þ mrsnow@freemail.nl" PRINT "Mr. Snow at Castel: þ harryst@castel.nl" PRINT "XCA & DJT Mail: þ djt@freemail.nl" END END SUB SUB pUTaTeND SHARED ImagesPath$, background$, LineBreak$, FilesPath$ PRINT #1, "" PRINT #1, "" END SUB SUB PutAtStart SHARED ImagesPath$, background$, LineBreak$, FilesPath$ PRINT #1, "" PRINT #1, "" PRINT #1, "" PRINT #1, "The FILES.HTM Html by DIZ2HTM V1.0" PRINT #1, "" PRINT #1, "" PRINT #1, "" PRINT #1, "" PRINT #1, "
" PRINT #1, "

Mr. Snow's DIZ2HTM v1.0 in QuickBASIC 4.5!

" PRINT #1, "

" PRINT #1, "" END SUB SUB READDIZ (Dz, Diz$()) STATIC SHARED FFile$(), z, Ch$, NODiZ.Text$ SHARED ImagesPath$, background$, LineBreak$, FilesPath$ OPEN "C:\TEMP\FILE_ID.DIZ" FOR BINARY AS #1 q$ = "" IF LOF(1) > 0 THEN COLOR 3, 0: PRINT CHR$(34) + "FILE_ID.DIZ" + CHR$(34); : COLOR 7, 0 ELSE Dz = 1: Diz$(1) = NODiZ.Text$ CLOSE 1 KILL "C:\TEMP\FILE_ID.DIZ" EXIT SUB END IF FOR PSeek = 1 TO LOF(1) A$ = " " GET #1, PSeek, A$ SELECT CASE A$ CASE CHR$(13) Dz = Dz + 1 IF Dz > 1 THEN IF LEN(q$) > 0 THEN Diz$(Dz) = RIGHT$(q$, LEN(q$) - 1) q$ = "" END IF ELSE Diz$(Dz) = q$ A$ = "" q$ = "" END IF CASE CHR$(9) q$ = q$ + " " CASE ELSE q$ = q$ + A$ END SELECT NEXT PSeek CLOSE 1 PRINT Dz; " Regels." KILL "C:\TEMP\FILE_ID.DIZ" EXIT SUB END SUB