[讨论]：我想写一个函数，获得一个带数字字符串的组成，大家帮我下，看看怎么能达到要

aeo

就举轴号的例子
AB-1 AB-2 AB-3........
"AB-"是房号,1.2 .3....才是轴号,我对轴号调整时,只要调1.2 .3........,当然不能是-1.-2 .-3.....拉,不然进行加减就不对了.
如果是1E-1.1E-2,1E-3.......,成了一个数了.
当然这种情况不多
"ab1cd2e3d4",我只想取1.2.3.4就不行了,是吧.
应该(mixstring->list  "ab1cd2e3d4" 0)---->("ab""1""cd""2""e""3""d""4")
        (mixstring->list  "ab1cd2e3d4" 1)---->("ab""1""cd""2e3""d""4")
这样就好了.

无痕

程序都有针对性，片面性，不可能面面俱到。
根本的解决办法还是从 数据结构入手。如你上面所举出的例子 AB-1 AB-2 AB-3........ ，如果数据单元都用 空格 或者“，”“；”等符号分隔，那么处理起来就方便多了，也规范，不容易产生歧义。
再举几个特例： +000.000e<0e350e+35e270*2a=540
对这些数据如何分段，恐怕是见人见智了。

newer

最初由 无痕 发布
[B]程序都有针对性，片面性，不可能面面俱到。
根本的解决办法还是从 数据结构入手。如你上面所举出的例子 AB-1 AB-2 AB-3........ ，如果数据单元都用 空格 或者“，”“；”等符号分隔，那么处理起来就方便多了，也?.. [/B]

同意污痕朋友的观点，程序为应用服务的，不能有满足所有专业，要求的程序存在，总会找出一个不能满足的应用。程序能满足我们自己的需要的就可以了，QLIN朋友的程序能满足了，再次谢谢QLIN。

aeo

(mixstring->list "ab1cd2e3d4" 0[/COLOR] )---->("ab""1""cd""2""e""3""d""4")
(mixstring->list "ab1cd2e3d4" 1[/COLOR] )---->("ab""1""cd""2e3""d""4")
写到那份上,加个参数很简单了
只能自己改啦!

无痕

字符串数字提取超级缩水篇
说是缩水，可是功能一点都没有缩水哦 ：）


(defun c:strdiv ()
  (setq st (getstring "\n输入字符串:")
        stl (strlen st)
        lst '()
        i 1
        ii 1)
  (repeat stl               
    (if (or (wcmatch (substr st i 1) "#" )
            (wcmatch (substr st i 2) "[+-.e]#,e[+-],[+-].")  ;;*****

。。。。。
详细程序请看

http://www.xdcad.net/forum/showt ... tid=74949#post74949[/COLOR]

liuzqyh

最初由 无痕 发布
[B]字符串数字提取超级缩水篇
说是缩水，可是功能一点都没有缩水哦 ：）


(defun c:strdiv ()
  (setq st (getstring "\n输入字符串:")
        stl (strlen st)
        lst '()
        i 1
        ii 1)
  (repeat st... [/B]

点击网址，进入XD主页，没有找到程序，可否直接做为附件上传？

JJL

我想是不是可以利用数字的Ascii码作为判断条件，这样程序简单点，不用判断与数字的匹配

linzhe9999

我佩服啊.我学autolisp都不好啊.