设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：如何将数字与汉字相分离
返回列表 发新帖
查看: 969|回复: 5

[求助] [求助]：如何将数字与汉字相分离

[复制链接]
animal212
发表于 2007-12-10 13:32:47 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
如何将数字与汉字相分离,如:"123#字节"=" 123"+"#字节"
汉字, 字节, 分离

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
发表于 2007-12-10 15:57:26 | 显示全部楼层
转换为ascii码后，根据码的大小进行识别。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cy956
发表于 2007-12-10 23:15:04 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
自己用的内部函数。因为自定义了一些字符，所以复杂了点。你看需要调整吧



  4. (defun cy_txt_sea_t(str str1 / IN K STRL STRL1 TXT)
  5.   ;;;从头开搜str1字符的位置,返回位置数,无返回nil
  6.   (if (wcmatch str (strcat "*" str1 "*"))(progn
  7.     (setq strl(strlen str)strl1(strlen str1)in 0 k t)
  8.     (while (and k (setq txt(substr str (setq in(1+ in)) strl1)))
  9.       (if (= txt str1)(setq k nil))
  10.     ))
  11.     (setq in nil)
  12.   )in
  13. )

  15. (defun cy_str2strb(str / IN IN1 LS ST1 STRB)  ;;;按shx文字的规律将字串分解为字串表
  16.   (setq in 1 strb'()
  17.         ls (strlen str))
  18.   (while (<= in ls)
  19.     (setq st1 (substr str in 1))
  20.     (cond
  21.       ((= "%" st1)
  22.         (if (= "%%" (setq st1 (substr str in 2)))
  23.           (cond
  24.             ((wcmatch (setq st1 (substr str in)) "%%[d p c % D P C]*")
  25.               (setq strb(append strb (list (substr str in 3)))in(+ 3 in)))
  26.             ((member (setq st1 (substr str in 3)) '("%%o" "%%u""%%O" "%%U"))
  27.               (setq in(+ 3 in)))
  28.             ((wcmatch (setq st1 (substr str in)) "%%141*%%142*");;;上标上
  29.               (setq in1(cy_txt_sea_t st1 "%%142")
  30.                     strb(append strb (list (substr str in (+ in1 4))))
  31.                     in(+ in1 4 in))
  32.             )
  33.             ((wcmatch (setq st1 (substr str in)) "%%143*%%144*")
  34.               (setq in1(cy_txt_sea_t st1 "%%144")
  35.                     strb(append strb (list (substr str in (+ in1 4))))
  36.                     in(+ in1 4 in))
  37.             )
  38.             ((wcmatch (setq st1 (substr str in)) "%%147*%%148*")
  39.               (setq in1(cy_txt_sea_t st1 "%%148")
  40.                     strb(append strb (list (substr str in (+ in1 4))))
  41.                     in(+ in1 4 in))
  42.             )
  43.             ((wcmatch (setq st1 (substr str in)) "%%149*%%150*")
  44.               (setq in1(cy_txt_sea_t st1 "%%150")
  45.                     strb(append strb (list (substr str in (+ in1 4))))
  46.                     in(+ in1 4 in))
  47.             )
  48.             ((wcmatch (setq st1 (substr str in)) "%%145*%%146*%%144*")
  49.               (setq in1(cy_txt_sea_t st1 "%%144")
  50.                     strb(append strb (list (substr str in (+ in1 4))))
  51.                     in(+ in1 4 in))
  52.             )
  53.             (t (setq strb(append strb (list(substr str in 5)))in(+ 5 in)))
  54.           )
  55.         )
  56.       )
  57.       ((> (ascii (setq st1 (substr str in 1))) 128)
  58.         (setq strb(append strb (list (substr str in 2)))in(+ 2 in))
  59.       )
  60.       (t (setq strb(append strb (list(substr str in 1)))in(+ 1 in)))
  61.     )
  62.   )strb
  63. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

animal212
 楼主| 发表于 2007-12-10 23:55:26 | 显示全部楼层
还是要说声谢谢，尽管一头雾水
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Underway

已领礼包: 6820个

财富等级: 富甲天下
发表于 2007-12-11 09:24:19 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(setq str "123#字节"
      idx (vl-string-position (ascii "#") str)
     strH (substr str 1 idx)
     str# (substr str (1+ idx))
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

taner

已领礼包: 2个

财富等级: 恭喜发财
发表于 2007-12-14 14:03:35 | 显示全部楼层
http://www.xdcad.net/forum/showthread.php?s=&threadid=645543

  2.   [FONT=courier new]
  3. 命令: (TXT-SPLIT-NUMSTR "123#字节")
  4. ("123" "#字节")

  6. 命令: (TXT-SPLIT-NUMSTR "123#wd字d阿破產d节")
  7. ("123" "#wd字d阿破產d节")

  9. 命令: (TXT-SPLIT-NUMSTR "123#wd字1d阿9破4產5d节")
  10. ("1231945" "#wd字d阿破產d节")
  11.   [/FONT]
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-6-30 14:04 , Processed in 0.187541 second(s), 41 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表