'       );        writeln('Adding '+what+' '+ds+' '+d);        end;       end;              begin        writeln('MakeHTML 1.0/Win32 Copyright (c) by Nick J. Andre, Ltd.');        writeln;        if (paramstr(1)>'') and (paramstr(2)>'') and (paramstr(3)>'') then        begin        p:=paramstr(2);if p[length(p)]<>'\' then p:=p+'\';        assign(h,paramstr(1));        (*$I-*) rewrite(h);        writeln(h,'');        assign(t2,'makehtml.---');        (*$I-*) reset(t2);        if ioresult=0 then        begin        while not eof(t2) do        begin        readln(t2,w);        findfirst(p+w,archive,dirinfo);        if DOSerror=0 then make_html(dirinfo.name,dirinfo.time);        findclose(dirinfo);        end;        close(t2);        end        else        begin        findfirst(p+'*.*',archive,dirinfo);        if DOSerror=0 then make_html(dirinfo.name,dirinfo.time);        while (DOSerror=0) do        begin        findnext(dirinfo);        make_html(dirinfo.name,dirinfo.time);        end;        findclose(dirinfo);        end;        writeln(h,'

Message 537 of 592
ATREYU to All
MakeHTML
MSGID: 1:229/426 51A4E66A       I had a need to do a quick-n-dirty export of a directory of files into a raw        HTML table output.              The idea is that you have a header file and a footer. You run this to create        the body, then bring it all together via COPY HEADER.HTM + MAKEHTML.HTM +        FOOTER.HTM SOMESITE.HTM              If Files.bbs exists in the directory, it will read it for one-liner        descriptions.              If the file MAKEHTML.--- exists, it will instead read the contents of this        file for generating the table. This is so you can sort the results, ie. DIR        /B /O:-D DB\FILEECHO\NODEDIFF > MAKEHTML.---              The results can be seen at https://fido-z1.darkrealms.ca              Enjoy...              program makehtml;       uses sysutils,dos;              var p,w : string;       dirinfo : SearchRec;       ft : tdatetime;       h,t,t2 : text;       const df = 'mm"/"dd"/"yyyy';              procedure make_html(what : string ; ts : longint);       var d,ds : string;       begin        d:='';        assign(t,p+'files.bbs');        (*$I-*) reset(t);        if ioresult=0 then        begin        while not eof(t) and (d='') do        begin        readln(t,w);        if (pos(uppercase(what),w)>0) then d:=copy(w,length(what)+2,length(w));        end;        close(t);        end;        if (uppercase(paramstr(4))<>'N') and (uppercase(what)<>'FILES.BBS') then        begin        ft:=FileDateToDateTime(ts);ds:=FormatDateTime(df,ft);        writeln(h,'
'+what+'	'+ds+'	'+d+'
File	Date	Description

');close(h);        end        else        begin        writeln('Usage: MAKEHTML [Html table file] [Path] [Base] [BBS]');writeln;        writeln('MAKEHTML creates an HTML table from files in Path using Base.');        writeln('Optional BBS means include listing files.bbs, [Y]es or [N]o.');        end;       end.              Nick              --- Renegade vY2Ka2        * Origin: Joey, do you like movies about gladiators? (1:229/426)