asang99 发表于 2010-6-10 16:53:00

[求助]请问字母循环怎么写了

<p>请问，在程序中如果数字循环是：</p>
<p>&nbsp;&nbsp; <font face="Verdana">(setq i 1)<br/>&nbsp;&nbsp; (while (&lt;= i 10)</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; ………………<br/>&nbsp;&nbsp;&nbsp;(setq i (+ i 1))<br/>&nbsp;&nbsp;<br/>&nbsp; )</font></p>
<p>字母循环怎么写了，别笑我问的问题简单啊</p>

洪少(刀模) 发表于 2010-6-10 18:52:00

<p>用ASCII这个函数</p>

asang99 发表于 2010-6-11 11:16:00

<p><font face="Verdana">&nbsp; (setq v "A");</font></p>
<p><font face="Verdana">&nbsp; (setq i 1)<br/>&nbsp; (while (&lt;= i 26)</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;…………<br/>&nbsp;&nbsp;&nbsp; (command "text"&nbsp; v);<br/>&nbsp;&nbsp;&nbsp; (setq v(chr(1+(ascii v))));</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; (setq v(itoa(1+(atoi v))))<br/>&nbsp;&nbsp;&nbsp; (setq i (+ i 1))<br/>&nbsp; )</font></p>
<p>怎么从第二个开始就又是1了？</p>

秋枫 发表于 2010-6-11 11:32:00

<p>不是用atoi，用Chr</p>

asang99 发表于 2010-6-11 11:51:00

<p>刚换了,怎么到B那儿就有问题了。</p>
<p><font face="Verdana">; 错误: 参数类型错误: numberp: "B"</font></p>
<p>&nbsp;</p>

asang99 发表于 2010-6-11 15:24:00

已经OK了，谢谢关注

cy956 发表于 2010-6-12 02:37:00

<p>标准答案应该是用ASCII ，Chr函数，学院式解答。</p>
<p>但建筑常用的字母，i、o、z不准用，写程序挺麻烦的。</p>
<p>其实你也可以直接定义一个表，大小写加起来才（26-3）*2个，按顺序历遍。</p>
<p>'("A""B""C"......)，</p>
页: [1]
查看完整版本: [求助]请问字母循环怎么写了