View Single Post
  #10  
Old 07-19-2012, 12:42 PM
Shaba's Avatar
Shaba Shaba is offline
Registered User
 
Join Date: Nov 2006
Location: Italy
Posts: 215
Re: OSD => Save current WP into .mi file

I have upgrade my code
But sometimes (i think the first time) give me error and then works well

Someone can help me?
TNX

PHP Code:
(setq des 96)
(
setf filename_mi_out (format nil "~A.mi" (string-upcase (sd-inq-obj-basename (sd-inq-curr-wp)))))
(
loop while (probe-file filename_mi_out) do
   (
setq des (incf des))
   (
setf filename_mi_out (format nil "~A~A.mi" (string-upcase (sd-inq-obj-basename (sd-inq-curr-wp))) (code-char des)))

);;while
(
MI_OUT
  
:overwrite filename_mi_out
  
:select (sd-inq-curr-wp)

Reply With Quote