[编程申请]：取得字符串和数字的LISP程序

fundoll

例：
   str为“A23.2B"
   通过LISP函数其结果为S1="A"       Num=23.2      S2="B"

yi.gao

最初由 fundoll 发布
[B]例：
   str为“A23.2B"
   通过LISP函数其结果为S1="A"       Num=23.2      S2="B" [/B]

以str=“A23.2B"为例

2. (setq S1 (substr str 1 1))
   
3. (setq Num (substr str 2 4))
   
4. (setq S2 (substr str 6 1))

(setq S1 (substr str 1 1))<br /> (setq Num (substr str 2 4))<br /> (setq S2 (substr str 6 1))

这时，Num还是字符串类型，想要将它转换为整数类型还要

1. (atoi num)

复制代码

不知道你要取值的字符串是否都是固定字符个数的，如果不是，那还应该有些小的变化。
在Num还是字符串类型时，如果想将合并字符串可以是：

2. (setq str (strcat S1 Num S2))

(setq str (strcat S1 Num S2))

fundoll

谢谢yi.gao ；
               
           这字符串是作为COMMAND下的长参数，也有可能是这样的形式“A1B2.2C56.6"
           要求经过Lisp函数处理后为： A=1   B=2.2   C=56.6
           上文所提Num是不固定长度实数数值，参数的个数也不固定如“A22.2B33.3C1D4.0"

fylinwater

看来是要通过ASCII码来一个个的判别了

Qlin

看看下面的代码是否符合你的要求：

程序运行后，对变量A、B、C按照要求赋值：

运行结果：

1. 
   
2. _$ (string_set "A1B2.2C56.6")
   
3. nil
   
4. _$ A
   
5. 1.0
   
6. _$ C
   
7. 56.6
   
8. _$ B
   
9. 2.2
   
10. _$
    

复制代码

程序代码：

2. 
   
3. (defun string_set (str_in / lst1 str_wk)
   
4.   (setq lst1 (mixstring->list str_in))
   
5.   (foreach x lst1
   
6.     (if str_wk
   
7.       (progn
   
8.         (set (read str_wk) (atof x))
   
9.         (setq str_wk nil)
   
10.       )
    
11.       (setq str_wk x)
    
12.     );if
    
13.   );foreach
    
14. );end
    

<br /> (defun string_set (str_in / lst1 str_wk)<br />   (setq lst1 (mixstring->list str_in))<br />   (foreach x lst1<br />     (if str_wk<br />       (progn<br />         (set (read str_wk) (atof x))<br />         (setq str_wk nil)<br />       )<br />       (setq str_wk x)<br />     );if<br />   );foreach<br /> );end<br />

其中，(mixstring->list)将输入字符串按照要求分解成字符串表，
具体请参考下面的文章：
http://www.xdcad.net/forum/showthread.php?threadid=14986

fundoll

正如fylinwater 网友所贴，我通过ASCII码来一个个来判别，
如“0—9”的ASCII码为30—39，字符是多少，小数点是多少，
一个一个判断，弄的我头昏脑胀。

     Qlin  兄写的Code 条理很清析，可以让我减少 许多工作量！

     还有一点请问Qlin兄，

        如“A2.1BC22"      使A=2.1   B=已设值  C=22
        因B后无参数   要使B为已设值，以前的的代码怎么修改

     诚挚感谢

Qlin

“A2.1BC22"有些难判断，因为mixstring->list是按照数字<->字母间隔
这样的规则来判断。不知道这个“A2.1BC22"是在什么样的环境下
生成的？能否修改生成代码，使得"B"后面跟随一个与其它数值不重复
的标志性数值？比如说，你其它的数值都是正数，那可写成"A2.1B-1C22"，
这样，当B后跟随值为-1时，可以使用已有值来赋值。

fundoll

谢谢各位网友！！
用wcmatch问题解决了。

Qlin

能否将你解决的具体方法与大家分享？

fundoll

其实就是一位网友写的“strdiv”+ QLin在上面写的程序

(defun string_set  (str_in / x lst1 str_var)
  (setq lst1 (mixstring->list str_in))
  (foreach x  lst1
    (if        (wcmatch x "@")
      (progn
        (setq str_var x)
        )
      )

    (if        (= nil (wcmatch x "@"))
      (progn
        (set (read str_var) (atof x))
        )
      )

    )                                        ;foreach
  )                                        ;end

例：ab1
-> a=nil  b=1.0

cy956

题目是自己出的，格式是自己定的，
困难是自己招的，问题是自己找的。

你就不能换一下格式？
比如“A 123 B 345 C 0.123"等等？:)