%!ps

% Demo a file read    tab;e_builder1
% =======
% Author and date
% Function
% Details
% ======



% Postscript demo to generate css compatible menu tables.
% Intended primarily for study as this was an internal workfile.

% Requires gonzo, gonzotut, and several older files relocated.
% Requires //acrodist /F from command line.
% Cut and paste .txt generated code from chrome, not wordpad.



% =======

% Uncomment and modify to use disk based Gonzo. ( or other disk access )
(C:/Users/Don/Desktop/Ghost/gonzo.psl) run % use internal 

/guru { gonzo begin
ps.util.1 begin printerror nuisance begin} def   

 guru                                           % activate gonzo utilities

% ==============================

/text1 (<a id=") store

/text2 ("></a>
<table class="daily1"><tr><td class="left">) store

/text3 (</td>
    <td class="right"><a href="http://www.tinaja.com/whtnu16.shtml#) store   % UPDATE!

/text4 (">deeplink</a> &nbsp;&nbsp;<a href="#top">top</a> &nbsp;&nbsp;<a href="#bot">bot</a> &nbsp;&nbsp;<a href="mailto:don@tinaja.com">respond</a></td>
  </tr>
</table>) store







/processgotline {  woof

gotline (name=")  search glotz



} store 



/fileprefix (C:/Users/don/Desktop/Web/fix_404/shtml_stash1/) store       % the file prefix

/fileprefix (C:/Users/don/Desktop/Web/whtnu_rework/) store       % the file prefix




/curfilename (whtnu16.shtml) store
/curdestfilename (whtnu16x.txt) store

/grabvalues {/restofline exch store



restofline 0 9 getinterval /dseries exch store

% dseries ==



restofline   (a>) search  {  pop pop  shorten   }{ } ifelse



} store


/shorten { (<) search {exch pop exch pop /fulldate exch store}{ } ifelse

makenew

} store



/makenew { dseries ==  fulldate ==

nowfiledest (\n\n) writestring

nowfiledest text1 writestring
nowfiledest dseries writestring
nowfiledest text2 writestring
nowfiledest fulldate writestring
nowfiledest text3 writestring
nowfiledest dseries writestring
nowfiledest text4 writestring


} store




/processgot {

    gotone (name=")  search {pop pop grabvalues} if
       } store


fileprefix curfilename mergestr (r) file /nowfile exch store 


fileprefix curdestfilename mergestr (w) file /nowfiledest exch store 


20000  {           nowfile 10000 string readline {/gotone exch store processgot}{exit} ifelse

          }repeat



nowfiledest flushfile


%EOF