caiqs 发表于 2007-9-8 10:01:00

关于 简约而不简单

<p>建议将简约而不简单里的函数收集起来,放在显眼的地方</p><p>另外个人认为,在程序里不要随便用 "最 简" 等字眼,山 外 有 山 , 人 外 有 人</p><p>特贴上一个函数 字符串变表,很多人都写过了,不感拘同</p><p>;;;师兄 QQ 361865648 2007/9/8 字符串变表</p><p>(defun str-&gt;lst2(string)<br/>&nbsp; (mapcar 'vl-symbol-name (read(strcat "(" string ")")))<br/>&nbsp; )</p><p><br/>;;;测试(str-&gt;lst2&nbsp; "my&nbsp; name&nbsp;&nbsp;is&nbsp; cai&nbsp; quan&nbsp; sheng")</p><p><br/>;;;返回 ("MY" "NAME" "IS" "CAI" "QUAN" "SHENG") </p><p></p><p></p>

无痕 发表于 2008-5-2 23:27:00

(str-&gt;lst2&nbsp; "my&nbsp; name&nbsp; is \"\" cai&nbsp; quan&nbsp; sheng")<br/>(str-&gt;lst2&nbsp; "my&nbsp; name&nbsp; is () cai&nbsp; quan&nbsp; sheng")

caoyin 发表于 2008-5-12 00:01:00

<p>(str-&gt;lst2&nbsp; "my&nbsp; name&nbsp;&nbsp;is&nbsp;;cai&nbsp; quan&nbsp; sheng")</p><p>(str-&gt;lst2&nbsp; "my&nbsp; name&nbsp;&nbsp;is&nbsp;'cai&nbsp; quan&nbsp; sheng")</p>
页: [1]
查看完整版本: 关于 简约而不简单