Creating a txt file Problem

[mostafa badran]

Hi all ,

I am having a problem when I try to create txt file like attachment

can anyone help.

thanks.

 

 

(defun c:test(/ )
 (vl-load-com)
 (initget 1 "txt csv")
 (setq filtyp (getkword "\nExport Type? (txt or csv)"))
 (setq top-str "" fname (getfiled "Specify File Name" "C:\\polyline size" filtyp 1))
 (setq getarea (command "AREA" "o" pause ))
 (setq area (getvar "area"))
 (setq string (rtos area))
 (setq sttxt(strcat "Area=" string))
 (open fname "w")
[color=red] (write-line sttxt fname)
[/color]   (close fname)
 )

[cwake]

From memory, (on the phone), the file argument for both write-line and close is not the string of the file name and path, but rather the return from the open function. You need to capture the (open fname "w") into a variable and use that instead of fname.

[MSasu]

To put in code Clint's observation:

[color=red](setq fileStream [/color](open fname "w")[color=red])[/color]
(write-line sttxt [color=#ff0000]fileStream[/color])
(close [color=#ff0000]fileStream[/color])

[mostafa badran]

From memory, (on the phone), the file argument for both write-line and close is not the string of the file name and path, but rather the return from the open function. You need to capture the (open fname "w") into a variable and use that instead of fname.

 

To put in code Clint's observation:

[color=red](setq fileStream [/color](open fname "w")[color=red])[/color]
(write-line sttxt [color=#ff0000]fileStream[/color])
(close [color=#ff0000]fileStream[/color])

Thanks guys it work perfectly now.

Thanks a lot.

[cwake]

Thanks for the code Mircea. :-) I was struggling with the phone.

[mostafa badran]

From memory, (on the phone), the file argument for both write-line and close is not the string of the file name and path, but rather the return from the open function. You need to capture the (open fname "w") into a variable and use that instead of fname.

 

To put in code Clint's observation:

[color=red](setq fileStream [/color](open fname "w")[color=red])[/color]
(write-line sttxt [color=#ff0000]fileStream[/color])
(close [color=#ff0000]fileStream[/color])

 

Thanks for the code Mircea. :-) I was struggling with the phone.

All roads lead to the Room..