求文字与数字字符炸开程序！

Gu_xl

尘缘一生 发表于 2014-5-30 17:11
请大家看看错在哪里啦？
中西文能彻底分开，就能解决问题的。

17楼代码共四处修改：
(yb:string_split "这是一串7888乱七八糟的55〓↓―￣＿ 55<>??~!$%^&*())■△+\/." )
("这是一串" "7888" "乱七八糟的" "55" "〓↓―￣＿" " 55<>??~!$%^&*())" "■△" "+/.")

ps122hb

这个要求太高了

mikewolf2k

xyp1964 发表于 2014-5-30 19:33
粉碎行不？

炸成线条原位置简单。要仍然炸成字符，且与原字符串重叠，这个困难！

尘缘一生

这句代码我看不明白，VLISP不熟。

(mapcar 'vl-list->string (mapcar 'reverse strlst1))

      这是不是返回一个分解后的”字符串表“，假如是， 哪个是存它的变量？是 string 吗？还是需要 :setq ？需要怎么写，以便继续写下去啊？

      分解了中西文字符串，还不完，还要删除没分解以前老字符串，逐一写出表内新分解的各个字符串的吗？

     另外，怎么才能得到点明经币？确实有需要下载的收费源码，整合自己使用。。。。