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

newer

比如字符串：

“abc12de34f5"

希望处理后得到这样的表：

("abc" "12" "de" 34" "f" "5")，即字符和数字分开组成表。

Qlin

你要求的数字是否只包括0-9？还有没有其它符号(如正负号等)？

XDSoft

最初由 Qlin 发布
[B]你要求的数字是否只包括0-9？还有没有其它符号(如正负号等)？ [/B]

我想，通用得函数应该考虑全面，应该考虑有汉字、字母、数字、＋－号，小数点（0.12、.12、12.、12.0）等等这样的任意组合的汉字给拆分成表。

大家讨论下吧。

lijiao

你的要求可以实现，请把你的要求讲得更详细更具体一些，我的email:lijiao@censtar.com

newer

最初由 lijiao 发布
[B]你的要求可以实现，请把你的要求讲得更详细更具体一些，我的email:lijiao@censtar.com [/B]

谢谢这么多热心的朋友，我的想法加上上面两个朋友的补充，基本完整了，就是希望把任意的字符串把数字给提出来。其他的按照字符的顺序，在表中依次排列。

比如：“建筑-.12ab34"－－》（”建筑“ ”-0.12" "ab" "34"）这样的。

谢谢热心的朋友。

ll_j

有一个字母是需要判断的：E，是科学计数标记，如2e3。

Qlin

我大概写了个函数，看看是否达到要求：

例如：
_$ (mixstring->list "中文使用-.123abc-0.45fff")
输出：
("中文使用" "-.123" "abc" "-0.45" "fff")

2. 
   
3. [FONT=courier new]
   
4. 
   
5. (defun mixstring->list (str_in / lst_out n len1 lst_n
   
6.                       chr_c chr_n chr_p
   
7.                       str_c str_id
   
8.                       num_add str_add)
   
9.   (defun num_add ()
   
10.     (if str_id
    
11.       (progn
    
12.         (if (/= str_c "")(setq lst_out (cons str_c lst_out)))
    
13.         (setq  str_c chr_c
    
14.               str_id nil
    
15.         );setq
    
16.       )
    
17.       (setq str_c (strcat str_c chr_c))
    
18.     );if
    
19.   )
    
20. 
    
21.   (defun str_add ()
    
22.     (if str_id
    
23.       (setq str_c (strcat str_c chr_c))
    
24.       (progn
    
25.         (if (/= str_c "")(setq lst_out (cons str_c lst_out)))
    
26.         (setq  str_c chr_c
    
27.               str_id T
    
28.         );setq
    
29.       )
    
30.     );if
    
31.   )
    
32.   
    
33.   ;C-1: 加入对输入值的判断
    
34.   (if (and str_in (/= str_in ""))
    
35.     (setq len1 (strlen str_in))
    
36.     (setq len1 0)
    
37.   )
    
38.   
    
39.   (setq n 1
    
40.         lst_n (list "0" "1" "2" "3" "4" "5" "6" "7" "8" "9")
    
41.         str_c "")
    
42. 
    
43.   (repeat len1
    
44.     (setq chr_c (substr str_in n 1))
    
45.     (cond
    
46.       ((member chr_c lst_n)
    
47.        (num_add)
    
48.       )
    
49.       ((= chr_c ".")
    
50.        (if (< n len1)
    
51.           (setq chr_n (substr str_in (1+ n) 1))
    
52.          (setq chr_n "")
    
53.        );if
    
54.        (if (member chr_n lst_n)
    
55.          (num_add)
    
56.          (str_add)
    
57.         )      
    
58.       )
    
59.       ((= chr_c "-")
    
60.        (if (< n len1)
    
61.           (setq chr_n (substr str_in (1+ n) 1))
    
62.          (setq chr_n "")
    
63.        );if
    
64.        (if (or (member chr_n lst_n)(= chr_n "."))
    
65.          (num_add)
    
66.          (str_add)
    
67.         )
    
68.       )
    
69.       ((= chr_c "+")
    
70.        (if (< n len1)
    
71.           (setq chr_n (substr str_in (1+ n) 1))
    
72.          (setq chr_n "")
    
73.        );if
    
74.        (if (or (member chr_n lst_n)(= chr_n "."))
    
75.          (num_add)
    
76.          (str_add)
    
77.         )
    
78.       )
    
79.       ((or (= chr_c "E")(= chr_c "e"))
    
80.        (if (< n len1)
    
81.           (setq chr_n (substr str_in (1+ n) 1))
    
82.          (setq chr_n "")
    
83.        );if
    
84.        ;C-2: 修改判断条件使之支持‘2e-3’类型的数据
    
85.        (if (or
    
86.              (and (member chr_n lst_n)(member chr_p lst_n))
    
87.              (and (= chr_n "+")(member chr_p lst_n))
    
88.              (and (= chr_n "-")(member chr_p lst_n))
    
89.            );or
    
90.          (num_add)
    
91.          (str_add)
    
92.         )
    
93.       )
    
94.       (T(str_add))
    
95.     );cond
    
96.    
    
97.     (setq n (1+ n)
    
98.           chr_p chr_c
    
99.     )
    
100.   );repeat
     
101. 
     
102.   (if (> len1 0)
     
103.     (progn
     
104.       (if (/= str_c "")(setq lst_out (cons str_c lst_out)))
     
105.       (setq lst_out (reverse lst_out))
     
106.     );progn
     
107.   );if
     
108.   lst_out
     
109. )
     
110. 
     
111. 
     
112. [/FONT]

<br /> [FONT=courier new]<br /> <br /> (defun mixstring->list (str_in / lst_out n len1 lst_n<br />                       chr_c chr_n chr_p<br />                       str_c str_id <br />                       num_add str_add)<br />   (defun num_add ()<br />     (if str_id<br />       (progn<br />         (if (/= str_c "")(setq lst_out (cons str_c lst_out)))<br />         (setq  str_c chr_c<br />               str_id nil<br />         );setq<br />       )<br />       (setq str_c (strcat str_c chr_c))<br />     );if<br />   )<br /> <br />   (defun str_add ()<br />     (if str_id<br />       (setq str_c (strcat str_c chr_c))<br />       (progn<br />         (if (/= str_c "")(setq lst_out (cons str_c lst_out)))<br />         (setq  str_c chr_c<br />               str_id T<br />         );setq<br />       )<br />     );if<br />   )<br />   <br />   ;C-1: 加入对输入值的判断<br />   (if (and str_in (/= str_in ""))<br />     (setq len1 (strlen str_in))<br />     (setq len1 0)<br />   )<br />   <br />   (setq n 1<br />         lst_n (list "0" "1" "2" "3" "4" "5" "6" "7" "8" "9")<br />         str_c "")<br /> <br />   (repeat len1<br />     (setq chr_c (substr str_in n 1))<br />     (cond<br />       ((member chr_c lst_n)<br />        (num_add)<br />       )<br />       ((= chr_c ".")<br />        (if (< n len1)<br />           (setq chr_n (substr str_in (1+ n) 1))<br />          (setq chr_n "")<br />        );if<br />        (if (member chr_n lst_n)<br />          (num_add)<br />          (str_add)<br />         )      <br />       )<br />       ((= chr_c "-")<br />        (if (< n len1)<br />           (setq chr_n (substr str_in (1+ n) 1))<br />          (setq chr_n "")<br />        );if<br />        (if (or (member chr_n lst_n)(= chr_n "."))<br />          (num_add)<br />          (str_add)<br />         )<br />       )<br />       ((= chr_c "+")<br />        (if (< n len1)<br />           (setq chr_n (substr str_in (1+ n) 1))<br />          (setq chr_n "")<br />        );if<br />        (if (or (member chr_n lst_n)(= chr_n "."))<br />          (num_add)<br />          (str_add)<br />         )<br />       )<br />       ((or (= chr_c "E")(= chr_c "e"))<br />        (if (< n len1)<br />           (setq chr_n (substr str_in (1+ n) 1))<br />          (setq chr_n "")<br />        );if<br />        ;C-2: 修改判断条件使之支持‘2e-3’类型的数据<br />        (if (or<br />              (and (member chr_n lst_n)(member chr_p lst_n))<br />              (and (= chr_n "+")(member chr_p lst_n))<br />              (and (= chr_n "-")(member chr_p lst_n))<br />            );or<br />          (num_add)<br />          (str_add)<br />         )<br />       )<br />       (T(str_add))<br />     );cond<br />     <br />     (setq n (1+ n)<br />           chr_p chr_c<br />     )<br />   );repeat<br /> <br />   (if (> len1 0)<br />     (progn<br />       (if (/= str_c "")(setq lst_out (cons str_c lst_out)))<br />       (setq lst_out (reverse lst_out))<br />     );progn<br />   );if<br />   lst_out<br /> )<br /> <br /> <br /> [/FONT]

Qlin

刚才把代码改动了一下，加入对不合理输入的处理

XDSoft

最初由 Qlin 发布
[B]刚才把代码改动了一下，加入对不合理输入的处理 [/B]

谢谢QLIN，能否考虑把科学技术法E的也给加上？

Qlin

原来已经考虑了“2E3"类型，
又改一下，加入对"2e-3"类型的支持

输入：
_$ (mixstring->list "中文2.35e+35测试-.035list2E3just a test89.0end")
输出：
("中文" "2.35e+35" "测试" "-.035" "list" "2E3" "just a test" "89.0" "end")

eachy

最初由 Qlin 发布
[B]原来已经考虑了“2E3"类型，
又改一下，加入对"2e-3"类型的支持

输入：
_$ (mixstring->list "中文2.35e+35测试-.035list2E3just a test89.0end")
输出：
("中文" "2.35e+35" "测试" "-.035" "list" "2E3" "j... [/B]

好！鼓励：） 加币 25 。

Qlin

呵呵，谢谢了

newer

最初由 Qlin 发布
[B]原来已经考虑了“2E3"类型，
又改一下，加入对"2e-3"类型的支持

输入：
_$ (mixstring->list "中文2.35e+35测试-.035list2E3just a test89.0end")
输出：
("中文" "2.35e+35" "测试" "-.035" "list" "2E3" "j... [/B]

太感谢QLIN了，你真热心，这里太好了。为表达我的感谢，给你加分了。

aeo

能否改成带参数的
如:科学技术法E   (mixstring->list   "......" 1)
    不用时        (mixstring->list   "......" 0)
E毕竟不是每次都表示数字


还有"-"号也是,比如轴号"3-12".我要取出"12"就不行了

Qlin

能否举个例子：'E'在哪种情况下的输出不符合你的要求？

关于分区轴号，很难有一个规则可以判断你说的情况，除了
"3-12"还有"A-1" "AB-1"这样形式的轴号，同字符串"TEA-15"无法分辨。

建议在具体运用中，运用层管理或块属性来解决特别的文字显示。