searching text files...

I need some help here... I have a text file that is like this:

1009
jobname
location
arch
contractor

1010
jobname
location
arch
contractor

etc...

I want to search this text file in lisp to create a list of the
information... is it possible...

TIA
aw

 

Try this out. Change the text file path in this code to where ever the file is located.

(defun txtlist (/ txtfile eof mytextlist line)
(setq txtfile (open "c:\\mytext.txt" "r"))
(setq eof 1
mytextlist nil)
(while (= eof 1)
(setq line (read-line txtfile))
(if line
(progn
(setq mytextlist (append (list line) mytextlist))
)
(setq eof nil)
)
)
(close txtfile)
(setq mytextlist (reverse mytextlist))
)