读取文本数据的语句

香远益清

纯文本*.txt文件数据格如下：点号,X,Y,DX,DY，即：

点号1,x1,y1,dx1,dy1
点号2,x2,y2,dx2,dy2
点号3,x3,y3,dx3,dy3

点号4,x4,y4,dx4,dy4

..............................
怎么把   点号      X      Y      DX    DY   分别读取出来并赋值，形式如下：
(setq xh     点号的值）
(setq x    X坐标值）
(setq y    Y坐标值）
(setq dx    dX坐标值）
(setq dy   dY坐标值）


看到有网友使用
(setq n  (vl-string-position (ascii ",") text0))
    (setq n1 (vl-string-position (ascii ",") text0 (+ n 2)))
    (setq n2 (vl-string-position (ascii ",") text0 (1+ n1)))
    (setq n3 (vl-string-position (ascii ",") text0 (1+ n2)))
   ................
    (setq xh (substr text0 1 n)
               x  (* (atof (substr text0 (+ n1 2) (- n2 (1+ n1))))
               y  (* (atof (substr text0 (+ n 3) (- n1 (+ n 2))))

......................
因为手上没有(vl-string-position）函数的有关资料，请老师帮忙写一段读取上述数字并赋值的语句段。谢谢。

Andyhon

先试试这个 strParse 函数
http://chenqj.blogspot.com/2007/03/autocad.html

lisperado

如果字串里符合3条件：
1只是数字
2可忽略空格，例如： “3 ,    ,40 ，  50  ,2,   4  "
3可忽略多余逗号，例如：逗号在前端或在之间 (",,3 ,,4 , , 50,2,4, ")

以下思路是可行，假设字串为 "1,100,200,3,4"

1. (progn
   
2. 
   
3. (mapcar        'set
   
4.         (setq lst '(xh x y dx dy) ) ;;变量表　　　　　　　　　
   
5.         (read (strcat "("
   
6.                       (vl-string-translate "," " " "1,100,200,3,4") ;;转换逗号为空格
   
7.                       ")"
   
8.               ) ;;将字串转换为表
   
9.         )
   
10. )
    
11. 
    
12. (terpri)
    
13. 
    
14. ;; 对照变量以确认
    
15. (foreach $ lst ;;循环变量表
    
16.   (princ (strcat "\n"
    
17.                  (vl-princ-to-string $)
    
18.                  " = "
    
19.                  (rtos (eval $) 2 3)
    
20.          )
    
21.   )
    
22. )
    
23. 
    
24. (textscr)
    
25. 
    
26. )

(progn<br /> <br /> (mapcar        'set<br />         (setq lst '(xh x y dx dy) ) ;;变量表　　　　　　　　　 <br />         (read (strcat "("<br />                       (vl-string-translate "," " " "1,100,200,3,4") ;;转换逗号为空格<br />                       ")"<br />               ) ;;将字串转换为表<br />         )<br /> )<br /> <br /> (terpri)<br /> <br /> ;; 对照变量以确认<br /> (foreach $ lst ;;循环变量表<br />   (princ (strcat "\n"<br />                  (vl-princ-to-string $)<br />                  " = "<br />                  (rtos (eval $) 2 3)<br />          )<br />   )<br /> )<br /> <br /> (textscr)<br /> <br /> )

香远益清

多谢各位啦，问题解决了，十分感谢。