;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 05-25-2001
;;;
(defun C:table_cnt ()
  (setq it (open "C:/~coopfra/~pfrancis/Lisp/lisp_lst.htm" "r"));(getfiled "Get HTML file" "C:/~coopfra/~pfrancis/Lisp/" "htm" 4)
  (setq ot (open "C:/~coopfra/~pfrancis/Lisp/lisplst.htm" "w"))
  (setq counter 0)
  (while (setq itt (read-line it))
    (if (wcmatch itt "*<table*")
      (setq counter (1+ counter))
    )
    (if (wcmatch itt "*<a href=*")
      (write-line (strcase itt T) ot)
      (write-line itt ot)
    )
  )
  (close it)
  (close ot)
  (princ counter)
  (princ)
)