yuun 发表于 2009-9-6 15:57:00

[求助]如何将字符串中的数字和其它字符分开

<p>比如str="ABC1234DEF(5678)g(y)"</p><p>分解成表lst='("ABC" "1234" "DEF(" "5678" ")g(y)")</p>

yuun 发表于 2009-9-6 16:37:00

<p>(DEFUN c:tt()<br/>&nbsp;&nbsp; (setq str "ABC1234DEF(5678)g(y)")<br/>&nbsp; (setq n (strlen str) )<br/>&nbsp; (setq nn 1)<br/>&nbsp; (setq str1 "")<br/>&nbsp; (setq num1 "")<br/>&nbsp; (repeat n<br/>&nbsp; <br/>&nbsp;&nbsp; (setq ss (substr str nn 1))<br/>&nbsp;&nbsp;&nbsp; (setq ass (ascii ss))<br/>&nbsp;&nbsp; (if (and (&lt;= ass 57) (&gt;= ass 48))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq num1 (strcat num1 ss))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq str1 (strcat str1 ss))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (setq nn (+ 1 nn))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; ;<br/>)</p><p>逐步逼近</p>
页: [1]
查看完整版本: [求助]如何将字符串中的数字和其它字符分开