[求助]：如何分离字母与数字

c3a139

请问如何能把字母与数字分开？如DK123分开成DK与123

carrot1983

记得坛里面原来贴子就有！

lazybug

;取得文本中第一次出现的数字
(setq txt "共13处")
(if (wcmatch txt "*#*")
    (progn (while (wcmatch txt "~#*") (setq txt (substr txt 2)))
           (setq tt (atoi txt))
    )
)

不是你要的，不过可以参考一下

Underway

只此一型或更多的组合?

若只此一型, SubStr 即可处理

更多的组合则请另列举可能出现的组合

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;;不知合你意思否？
   
5. (defun split-numstr (string / alpstr i numstr slen stri)
   
6.   (setq slen (strlen string)
   
7.         i 1
   
8.   )
   
9.   (setq numstr ""
   
10.         alpstr ""
    
11.   )
    
12.   (while (<= i slen)
    
13.     (if (textornum (setq stri (substr string i 1)))
    
14.       (setq numstr (strcat numstr stri))
    
15.       (setq alpstr (strcat alpstr stri))
    
16.     )
    
17.     (setq i (1+ i))
    
18.       )
    
19. (list numstr alpstr)
    
20. 
    
21. )
    
22. (defun textornum (string / cnt cc allnum numdec test)
    
23.   (setq cnt 1
    
24.         allnum t
    
25.   )
    
26.   (setq cc (substr string cnt 1))
    
27.   (while (and
    
28.            cc
    
29.            allnum
    
30.          )
    
31.     (setq test (cond
    
32.                  ((and
    
33.                     (= cnt 1)
    
34.                     (= cc "-")
    
35.                   )
    
36.                  )
    
37.                  ((= cc "1"))
    
38.                  ((= cc "2"))
    
39.                  ((= cc "3"))
    
40.                  ((= cc "4"))
    
41.                  ((= cc "5"))
    
42.                  ((= cc "6"))
    
43.                  ((= cc "7"))
    
44.                  ((= cc "8"))
    
45.                  ((= cc "9"))
    
46.                  ((= cc "0"))
    
47.                  ((= cc ".")
    
48.                    "dec"
    
49.                  )
    
50.                  (t
    
51.                    nil
    
52.                  )
    
53.                )
    
54.     )
    
55.     (cond
    
56.       ((= test nil)
    
57.         (setq allnum nil)
    
58.       )
    
59.       ((and
    
60.          (= numdec nil)
    
61.          (= test "dec")
    
62.        )
    
63.         (setq numdec 1)
    
64.       )
    
65.       ((and
    
66.          (= numdec 1)
    
67.          (= test "dec")
    
68.        )
    
69.         (setq allnum nil)
    
70.       )
    
71.     )
    
72.     (setq cnt (1+ cnt))
    
73.     (setq cc (substr string cnt 1))
    
74.     (if (= cc "")
    
75.       (setq cc nil)
    
76.     )
    
77.   )
    
78.   (eval allnum)
    
79. )
    
80. ;;;测试：
    
81. ;;;Command: (split-numstr "ert78uh654rt64")
    
82. ;;;("7865464" "ertuhrt")
    
83. 
    
84. ;;;Command: (split-numstr "1e1rt5y4h6j3k9d4a2e8k3")
    
85. ;;;("11546394283" "ertyhjkdaek")
    
86. 
    
87.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;不知合你意思否？<br /> (defun split-numstr (string / alpstr i numstr slen stri)<br />   (setq slen (strlen string)<br />         i 1<br />   )<br />   (setq numstr ""<br />         alpstr ""<br />   )<br />   (while (<= i slen)<br />     (if (textornum (setq stri (substr string i 1)))<br />       (setq numstr (strcat numstr stri))<br />       (setq alpstr (strcat alpstr stri))<br />     )<br />     (setq i (1+ i))<br />       )<br /> (list numstr alpstr)<br /> <br /> )<br /> (defun textornum (string / cnt cc allnum numdec test)<br />   (setq cnt 1<br />         allnum t<br />   )<br />   (setq cc (substr string cnt 1))<br />   (while (and<br />            cc<br />            allnum<br />          )<br />     (setq test (cond<br />                  ((and<br />                     (= cnt 1)<br />                     (= cc "-")<br />                   )<br />                  )<br />                  ((= cc "1"))<br />                  ((= cc "2"))<br />                  ((= cc "3"))<br />                  ((= cc "4"))<br />                  ((= cc "5"))<br />                  ((= cc "6"))<br />                  ((= cc "7"))<br />                  ((= cc "8"))<br />                  ((= cc "9"))<br />                  ((= cc "0"))<br />                  ((= cc ".")<br />                    "dec"<br />                  )<br />                  (t<br />                    nil<br />                  )<br />                )<br />     )<br />     (cond<br />       ((= test nil)<br />         (setq allnum nil)<br />       )<br />       ((and<br />          (= numdec nil)<br />          (= test "dec")<br />        )<br />         (setq numdec 1)<br />       )<br />       ((and<br />          (= numdec 1)<br />          (= test "dec")<br />        )<br />         (setq allnum nil)<br />       )<br />     )<br />     (setq cnt (1+ cnt))<br />     (setq cc (substr string cnt 1))<br />     (if (= cc "")<br />       (setq cc nil)<br />     )<br />   )<br />   (eval allnum)<br /> )<br /> ;;;测试：<br /> ;;;Command: (split-numstr "ert78uh654rt64")<br /> ;;;("7865464" "ertuhrt")<br /> <br /> ;;;Command: (split-numstr "1e1rt5y4h6j3k9d4a2e8k3")<br /> ;;;("11546394283" "ertyhjkdaek")<br /> <br />   [/FONT]<br />

hb198075

[php]
(defun numStr (txt / num str n tmp len)
  (setq        len (strlen txt)
        str ""
        num ""
        n   1
  )
  (repeat len
    (setq tmp (substr txt n 1)
          n   (1+ n)
    )
    (if        (VL-STRING-SEARCH tmp "1234567890")
      (setq num (strcat num tmp))
      (setq str (strcat str tmp))
    )
  )
  (list num str)
)

[/php]

c3a139

各位用不同的思路解决了同一个问题，都不错，使我获益颇多，谢谢!

eachy

取出非数字

2. (vl-string-trim " " (vl-string-translate "0123456789" "         " str))

(vl-string-trim " " (vl-string-translate "0123456789" "         " str))

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;;这样也行
   
5. (defun numstr (txt / num str n tmp len)
   
6.   (setq len (strlen txt)
   
7.         str ""
   
8.         num ""
   
9.         n 1
   
10.   )
    
11.   (repeat len
    
12.     (setq tmp (substr txt n 1)
    
13.           n (1+ n)
    
14.     )
    
15.     (if (numberp (read tmp))
    
16.       (setq num (strcat num tmp))
    
17.       (setq str (strcat str tmp))
    
18.     )
    
19.   )
    
20.   (list num str)
    
21. )
    
22. 
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;这样也行<br /> (defun numstr (txt / num str n tmp len)<br />   (setq len (strlen txt)<br />         str ""<br />         num ""<br />         n 1<br />   )<br />   (repeat len<br />     (setq tmp (substr txt n 1)<br />           n (1+ n)<br />     )<br />     (if (numberp (read tmp))<br />       (setq num (strcat num tmp))<br />       (setq str (strcat str tmp))<br />     )<br />   )<br />   (list num str)<br /> )<br /> <br />   [/FONT]<br />

eachy

取出非数字

2. (vl-string-trim " " (vl-string-translate "0123456789" "         " str))

(vl-string-trim " " (vl-string-translate "0123456789" "         " str))

leeyuan

1. 
   
2. str="abc879acd"
   
3. --->("abc" 879 "acd")
   

复制代码

如何处理