求助：读取文件并按列将文件转换为表;

77077

有一个txt文本，格式如下：
;序号                        X                          Y                          Z
A0001                   566786.336      3378751.937            5.014
B0002                   566786.982      3378747.011            4.700
C0003                   566787.331      3378747.086            4.822
D0004                   566787.454      3378746.524            4.620
……
我想将每一列数据分别读取到不同的表中,以";"开头的不读取该行,希望得到结果如下:
lst1中就是(A001 B002 C003 D004……)
lst2中就是(566786.336 566786.982 566787.331566787.454……)
lst3......
lst4......


查找了写论坛代码,可能是没找仔细,暂时还没找到读取文本文件列到表的,希望高手们帮下忙.

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
3. (defun c:tt ()
   
4.   (setq lst  (xyp-txt2list "d:\\临时.txt")
   
5.         lst  (vl-remove-if '(lambda (x) (= (substr x 1 1) ";")) lst)
   
6.         lst  (mapcar 'xyp-Get-Str2Lst lst)
   
7.         lst1 (mapcar 'car lst)
   
8.         lst2 (mapcar 'cadr lst)
   
9.         lst3 (mapcar 'caddr lst)
   
10.         lst4 (mapcar 'caddr lst)
    
11.   )
    
12.   (princ)
    
13. )

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> (defun c:tt ()<br />   (setq lst  (xyp-txt2list "d:\\临时.txt")<br />         lst  (vl-remove-if '(lambda (x) (= (substr x 1 1) ";")) lst)<br />         lst  (mapcar 'xyp-Get-Str2Lst lst)<br />         lst1 (mapcar 'car lst)<br />         lst2 (mapcar 'cadr lst)<br />         lst3 (mapcar 'caddr lst)<br />         lst4 (mapcar 'caddr lst)<br />   )<br />   (princ)<br /> )

77077

院长果然厉害!
求编成函数代码"txt列到list"!

xyp1964

77077 发表于 2014-2-13 12:40
院长果然厉害!
求编成函数代码"txt列到list"!

2. ;; (abc "d:\\临时.txt")
   
3. (defun abc (file-txt / lst)
   
4.   (setq lst (xyp-txt2list file-txt)
   
5.         lst (vl-remove-if '(lambda (x) (= (substr x 1 1) ";")) lst)
   
6.         lst (mapcar 'xyp-Get-Str2Lst lst)
   
7.   )
   
8.   (list (mapcar 'car lst)
   
9.         (mapcar 'cadr lst)
   
10.         (mapcar 'caddr lst)
    
11.         (mapcar 'caddr lst)
    
12.   )  
    
13. )

;; (abc "d:\\临时.txt")<br /> (defun abc (file-txt / lst)<br />   (setq lst (xyp-txt2list file-txt)<br />         lst (vl-remove-if '(lambda (x) (= (substr x 1 1) ";")) lst)<br />         lst (mapcar 'xyp-Get-Str2Lst lst)<br />   )<br />   (list (mapcar 'car lst)<br />         (mapcar 'cadr lst)<br />         (mapcar 'caddr lst)<br />         (mapcar 'caddr lst)<br />   )  <br /> )

77077

文本数据格式如下
$       lst1       lst2   lst3    lst4    lst5    lst6
ID      A          01     A1      B1      C1      D1
ID      B          02     A2      B2      C2      D1
ID      C          03     A3      B3      C3      D1
ID      D          04     A4      B4      C4      D1

lst代码如下,不过只能获取到lst4

2. (defun c:test (/ fp str lst )
   
3.    (setq fp (open "D:\\MyTools\\lisp-txt.txt" "r"))    ; 文件
   
4.    (while (and (setq str (read-line fp)) (not (wcmatch str "ID*"))))
   
5.    (while (not (wcmatch str "$$$$$$$$$$$$$$$$*"))
   
6.      (setq lst (cons (read (strcat "(" (substr str 3) ")")) lst)
   
7.            str (read-line fp)
   
8.    ) )
   
9.    (close fp)
   
10.    (reverse lst)
    
11.   (setq lst1 (mapcar 'car lst)
    
12.         lst2 (mapcar 'cadr lst)
    
13.         lst3 (mapcar 'caddr lst)
    
14.         lst4 (mapcar 'cadddr lst))
    
15. )

(defun c:test (/ fp str lst )<br />    (setq fp (open "D:\\MyTools\\lisp-txt.txt" "r"))    ; 文件<br />    (while (and (setq str (read-line fp)) (not (wcmatch str "ID*"))))<br />    (while (not (wcmatch str "$$$$$$$$$$$$$$$$*"))<br />      (setq lst (cons (read (strcat "(" (substr str 3) ")")) lst)<br />            str (read-line fp)<br />    ) )<br />    (close fp)<br />    (reverse lst)<br />   (setq lst1 (mapcar 'car lst)<br />         lst2 (mapcar 'cadr lst)<br />         lst3 (mapcar 'caddr lst)<br />         lst4 (mapcar 'cadddr lst))<br /> )

有人说用nth,试着写了一下,都失败了!
  (setq lst1 (nth 0 lst)
        lst2 (nth 1 lst)
        lst3 (nth 2 lst)
        lst4 (nth 3 lst)
        lst5 (nth 4 lst)
        lst6 (nth 5 lst))

77077

用nth修改后运行结果
得到的数据不是按列,而是按行了!

77077

  (setq lst1 (mapcar '(lambda (x) (nth 0 x)) lst)
        lst2 (mapcar '(lambda (x) (nth 1 x)) lst)
        lst3 (mapcar '(lambda (x) (nth 2 x)) lst)
        lst4 (mapcar '(lambda (x) (nth 3 x)) lst)
        lst5 (mapcar '(lambda (x) (nth 4 x)) lst))

xyp1964

77077 发表于 2014-2-13 18:21
(setq lst1 (mapcar '(lambda (x) (nth 0 x)) lst)
        lst2 (mapcar '(lambda (x) (nth 1 x)) lst) ...

2. ;; (abcd "d:\\临时.txt")
   
3. (defun abcd (file-txt / lst n lst1 i)
   
4.   (setq lst  (xyp-txt2list file-txt)
   
5.         lst  (vl-remove-if '(lambda (x) (= (substr x 1 1) ";")) lst)
   
6.         lst  (mapcar 'xyp-Get-Str2Lst lst)
   
7.         lst1 '()
   
8.         i 0
   
9.   )
   
10.   (repeat (length (car lst))
    
11.     (setq a (mapcar '(lambda (x) (nth i x)) lst)
    
12.           i (1+ i)
    
13.           lst1 (cons a lst1)
    
14.     )
    
15.   )
    
16.   (reverse lst1)
    
17. )

;; (abcd "d:\\临时.txt")<br /> (defun abcd (file-txt / lst n lst1 i)<br />   (setq lst  (xyp-txt2list file-txt)<br />         lst  (vl-remove-if '(lambda (x) (= (substr x 1 1) ";")) lst)<br />         lst  (mapcar 'xyp-Get-Str2Lst lst)<br />         lst1 '()<br />         i 0<br />   )<br />   (repeat (length (car lst))<br />     (setq a (mapcar '(lambda (x) (nth i x)) lst)<br />           i (1+ i)<br />           lst1 (cons a lst1)<br />     )<br />   )<br />   (reverse lst1)<br /> )