append read-line error

[Anonymous]

(setq FileName "login.txt") (setq FindF(findfile FileName)) (setq OpenFile(open FindF "r")) (while (setq ReadLine(read-line OpenFile)) (setq AppList(append AppList(list ReadLine))) (close OpenFile) );while 1st line to read-file OK 2nd line to read-file error i want each line of file append to list and set_tile to list_box -- ---------------------------------------- Design/Engineering Dept.

[BillZ]

It would appear that you are closing the file before you're done reading it.

(setq FileName "login.txt")
(setq FindF(findfile FileName))
(setq OpenFile(open FindF "r"))
(while
(setq ReadLine(read-line OpenFile))
(setq AppList(append AppList(list ReadLine)))
);while

(close OpenFile)

Try this way.

Bill

[hawstom]

Note that it is much more efficient to use (cons) and (reverse) than to use (append). Like this:

(setq FileName "login.txt")
(setq FindF(findfile FileName))
(setq OpenFile(open FindF "r"))
(while
(setq ReadLine(read-line OpenFile))
(setq AppList(cons ReadLine AppList))
);while
(close OpenFile)
(setq AppList (reverse Applist))

[Anonymous]

i make 1 dialog box to display all text contens from 1 file *.txt and i just create 1 button for clear the text in that file to become emty file, i no ideal how to make the code can yours tell me how to do -- ---------------------------------------- Design/Engineering Dept. hawstom wrote in message news:4438173.1077654195387.JavaMail.jive@jiveforum1.autodesk.com... > Note that it is much more efficient to use (cons) and (reverse) than to use (append). Like this: > > (setq FileName "login.txt") > (setq FindF(findfile FileName)) > (setq OpenFile(open FindF "r")) > (while > (setq ReadLine(read-line OpenFile)) > (setq AppList(cons ReadLine AppList)) > );while > (close OpenFile) > (setq AppList (reverse Applist))