clear the file contens

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

 

;written by Mark Propst 2-24-04
;for nalsur8
;use with caution!!!
(defun cleartextfile(filename / wfh)
(if(setq filename(findfile filename))
(progn
(setq wfh(open filename "w"));open for write overwrites contents
(if wfh (close wfh));don't write anything, just close- that saves
file and is now blank
(setq wfh nil)
)
)
)

 

file is empty but the list_box still have text
when i click the button Clear
when i run again for 2nd time the list_box is empty

 

nalsur8 ,
To clear a list in a dialog box using a button.
You need to put an action_tile in the lisp:
(action_tile "button_key" "(mysubr)")

Then, in the file before the lisp, define the function:
(defun mysubr () ;clears dialog box.
(start_list "list_1")
(end_list)
)
Start_list will by default create a new list which will be blank if you don't add anything to it.

HTH

Bill


Message was edited by: BillZ

 

ok i get it thank you

 

You're welcome.

Glad I could help.


Bill