[求助]：vl-string-subst的使用？

yytt

(setq dat "WF2               496.96                 497.90         0.94")；空档为空格和制表符的混合
(setq well (vl-princ-to-string (read dat)))
(setq dat (vl-string-subst " " well dat 0))
(setq p-al (vl-princ-to-string (read dat)))(setq p-al-real (atof p-al))
(setq dat (vl-string-subst " " p-al dat 0))
(setq g-al (vl-princ-to-string (read dat)))(setq g-al-real (atof g-al))
(setq dat (vl-string-subst " " g-al dat 0))
(setq cover (vl-princ-to-string (read dat)))
cover应为0.94,但实际运行却为0，即在(setq dat (vl-string-subst " " g-al dat 0))中0.94前生出错误的0
请高手指教，多谢！

snsj

READ对小数点后末尾的0忽略不计，所以到497.90时返回的数据为497.9则只是替换掉了497.9所以剩下最后的0，这就是出现0的原因

yytt

多谢斑竹，我已找到解决办法，用
(setq well(vl-princ-to-string (read dat)))
(setq dat (substr dat (+ 1 (strlen well) (vl-string-search well dat))))
(while (= (substr dat 1 1) "0")
(setq dat (substr dat 2))
)

jianqiang21c

终于熬到放假了，高兴！
YYNT朋友，你的方法无法解决0被消掉的问题哦，为了保持数据的原样是不是可以这样哦：

2. [font=courier new]
   
3. (setq dat "WF2 496.96 497.90 0.94"
   
4.        qing_aa (substr dat (+ 2 (vl-string-search " " dat)))
   
5.        well (vl-string-right-trim qing_aa dat)
   
6.        qing_aa1 (substr qing_aa (+ 2 (vl-string-search " " qing_aa)))
   
7.        p-al (vl-string-right-trim qing_aa1 aa)
   
8.        cover (substr qing_aa1 (+ 2 (vl-string-search " " qing_aa1)))
   
9.        g-al (vl-string-right-trim cover qing_aa1)
   
10.       )
    
11. [/font]

[font=courier new]<br /> (setq dat "WF2 496.96 497.90 0.94"<br />        qing_aa (substr dat (+ 2 (vl-string-search " " dat)))<br />        well (vl-string-right-trim qing_aa dat)<br />        qing_aa1 (substr qing_aa (+ 2 (vl-string-search " " qing_aa)))<br />        p-al (vl-string-right-trim qing_aa1 aa)<br />        cover (substr qing_aa1 (+ 2 (vl-string-search " " qing_aa1)))<br />        g-al (vl-string-right-trim cover qing_aa1)<br />       )<br /> [/font]

aeo

这问题问的多了.用read不是最好的办法.
要空格分开字符.
http://www.xdcad.net/forum/showthread.php?s=&threadid=66654
一劳永逸.
当然还能以任意字符来分.把空格换成字符就可.

lijiao

最初由 jianqiang21c 发布
[B]终于熬到放假了，高兴！
YYNT朋友，你的方法无法解决0被消掉的问题哦，为了保持数据的原样是不是可以这样哦：
[code]
(setq dat "WF2 496.96 497.90 0.94"
       qing_aa (substr dat (+ 2 ... [/B]

没想道还是一名未毕业的学生，就已经是版主了，看来我等是白活了。