CSV文件存储到另一个CSV文件

Lisphk

1. (defun c:csv-pts-2-csv-pts+hor-proj ( / f1 fn1 l lst lstpairs p1 p2 p3 lstt f2 fn2 )
   
2.   (setq f1 (getfiled "Select PTS CSV file..." "\\" "csv" 16))
   
3.   (setq fn1 (open f1 "r"))
   
4.   (while (setq l (read-line fn1))
   
5.     (setq lst (cons l lst))
   
6.   )
   
7.   (setq lst (reverse lst))
   
8.   (foreach l lst
   
9.     (setq lst (subst (list (atof (substr l 1 (vl-string-search "," l))) (atof (substr l (+ 2 (vl-string-search "," l))))) l lst))
   
10.   )
    
11.   (setq lstpairs (mapcar '(lambda ( a b ) (list a b)) lst (cdr lst)))
    
12.   (foreach pair lstpairs
    
13.     (setq p1 (car pair) p3 (cadr pair))
    
14.     (setq p2 (list (car p3) (cadr p1)))
    
15.     (setq lstt (cons p1 lstt) lstt (cons p2 lstt))
    
16.   )
    
17.   (if (not (vl-position (last lst) lstt))
    
18.     (setq lstt (cons (last lst) lstt))
    
19.   )
    
20.   (setq lstt (reverse lstt))
    
21.   (setq f2 (getfiled "Select PTS with HOR-PROJ CSV file..." "\\" "csv" 1))
    
22.   (setq fn2 (open f2 "w"))
    
23.   (foreach pt lstt
    
24.     (write-line (strcat (rtos (car pt)) "," (rtos (cadr pt))) fn2)
    
25.   )
    
26.   (close fn2)
    
27.   (startapp "EXPLORER" f2)
    
28.   (princ)
    
29. )
    

(defun c:csv-pts-2-csv-pts+hor-proj ( / f1 fn1 l lst lstpairs p1 p2 p3 lstt f2 fn2 )<br />   (setq f1 (getfiled "Select PTS CSV file..." "\\" "csv" 16))<br />   (setq fn1 (open f1 "r"))<br />   (while (setq l (read-line fn1))<br />     (setq lst (cons l lst))<br />   )<br />   (setq lst (reverse lst))<br />   (foreach l lst<br />     (setq lst (subst (list (atof (substr l 1 (vl-string-search "," l))) (atof (substr l (+ 2 (vl-string-search "," l))))) l lst))<br />   )<br />   (setq lstpairs (mapcar '(lambda ( a b ) (list a b)) lst (cdr lst)))<br />   (foreach pair lstpairs<br />     (setq p1 (car pair) p3 (cadr pair))<br />     (setq p2 (list (car p3) (cadr p1)))<br />     (setq lstt (cons p1 lstt) lstt (cons p2 lstt))<br />   )<br />   (if (not (vl-position (last lst) lstt))<br />     (setq lstt (cons (last lst) lstt))<br />   )<br />   (setq lstt (reverse lstt))<br />   (setq f2 (getfiled "Select PTS with HOR-PROJ CSV file..." "\\" "csv" 1))<br />   (setq fn2 (open f2 "w"))<br />   (foreach pt lstt<br />     (write-line (strcat (rtos (car pt)) "," (rtos (cadr pt))) fn2)<br />   )<br />   (close fn2)<br />   (startapp "EXPLORER" f2)<br />   (princ)<br /> )<br />

tzfcn

好的代码就是赏心悦目。