Use read-line to extract comma separated values

[Tharwat]

Try this simple routine and pay your attention to the command line at the end of the program , you should see a list of the values .

 

(defun c:Test (/ o f str p lst)
 (if (and (setq o (getfiled "" (getvar 'dwgprefix) "csv" 16))
          (setq f (open o "r"))
     )
   (progn
     (while (setq str (read-line f))
       (if (setq p (vl-string-search "," str 0))
         (setq lst (cons (substr str 1 p) lst))
       )
     )
     (close f)
   )
 )
 (if lst
   (setq lst (reverse lst))
 )
)

[jmerch]

("Number" "1" "2" "3" "4" "5" "6")

 

so...for each 'lst', I need to perform my commands....am I thinking right?

[Tharwat]

("Number" "1" "2" "3" "4" "5" "6")

 

Good , is not that what you've looking for since your first question in this thread ?

 

so...for each 'lst', I need to perform my commands....am I thinking right?

 

Correct , but it also depends on what you are trying to do with the list ?

[jmerch]

Yes that is what I was looking for, my initial thought was to populate this list in order to separate it out. Then the more I got into it, I liked the idea of skipping that step and just having the LISP execute my commands 'foreach' number in the list, keeping that 'setq' definition saved so I can use it in my filter.

[Tharwat]

Then the more I got into it, I liked the idea of skipping that step and just having the LISP execute my commands 'foreach' number in the list, keeping that 'setq' definition saved so I can use it in my filter.

 

Just ask if you stuck with any of your process with LISP and not with your third party commands .