(defun c:editdates ()
  (setq fileslst nil)
  (setq logfilename (open "L:\\00000\\ATL\\Charlotte\\Complog\\francishcwinnt.rpg" "r"))
  (while (setq newrdln (read-line logfilename))
    (IF (AND (>(STRLEN newrdln)0)
	     (/=(substr newrdln 1 1)" ")
	)
      (progn
        (IF (NOT (assoc (STRCASE newrdln) fileslst))
	  (progn
;;;	    (princ "\n")
;;;	    (princ newrdln)
            (setq fileslst (append fileslst (list (cons (STRCASE newrdln)"X"))))
	  )
        )
	(while (AND (setq nextrdln (read-line logfilename)) (= (strlen nextrdln) 47))
;;;	  (princ "\n")
;;;	  (princ nextrdln)
;;;	  (princ " ")
;;;	  (princ (strlen nextrdln))
	  (IF (wcmatch nextrdln "*Saved*")
	    (cond
	      ((EQ(length(member(assoc (STRCASE newrdln) fileslst)fileslst))(length fileslst))
	         (setq fileslst (append (list (cons (STRCASE newrdln) nextrdln))(cdr(member(assoc(strcase newrdln)fileslst)fileslst))))
	       )
	      ((EQ(length(member(assoc (STRCASE newrdln) fileslst)(reverse fileslst)))(length fileslst))
	         (setq fileslst (append (reverse(cdr(member(assoc(strcase newrdln)fileslst)(reverse fileslst))))(list (cons (STRCASE newrdln) nextrdln))))
	       )
	      (T
	         (setq fileslst (append (reverse(cdr(member(assoc(strcase newrdln)fileslst)(reverse fileslst))))
					(list (cons (STRCASE newrdln) nextrdln))
					(cdr(member(assoc(strcase newrdln)fileslst)fileslst))
				)
		 )
;;;	         (princ "\n")
;;;	         (princ (cons (STRCASE newrdln) nextrdln))
	       )
;;;		   (subst
;;;		     (cons (strcase newrdln) nextrdln)
;;;		     (assoc (strcase newrdln) fileslst)
;;;		     fileslst
;;;		   )
            )
	  )
	)
      )
    )
  )
  (close logfilename)
  (setq exporttxt (open "c:\\editdates.txt" "w"))
  (foreach n fileslst
    (write-line (strcat (car n)(cdr n)) exporttxt)
  )
  (close exporttxt)
  (princ)
)