论坛 › 开源函数库 › （xd::string:dbc->sbc）字符串全角转半角

marting 发表于 2017-12-28 09:43:11

（xd::string:dbc->sbc）字符串全角转半角

(defun xd::string:dbc->sbc (str / first match n second str1)
(if (setq match (xd::string:regexps "[\\u3000\\uff01-\\uff5f]" str ""))
    (progn
      (foreach n match
        (if (= n "　")
          (setq str (xd::string:regexpr "　" str " " ""))
          (progn
          (setq first (substr n 1 1)
                  second (ascii (substr n 2 1))
                  second (- second 128)
                  str1 (chr second)
          )
          (setq str (xd::string:regexpr n str str1 ""))
          )
        )
      )
    )
)
str
)


演示图片示例代码

**** Hidden Message *****

紧箍咒 发表于 2017-12-28 09:48:26

看代码，看代码

sh_h 发表于 2017-12-28 09:51:37

回复学习，谢谢大师分享！

liulisheng 发表于 2017-12-28 09:58:21

支持一下哦

zou123321 发表于 2017-12-28 13:47:01

顶一下！！！！！！！！！

819534890 发表于 2017-12-28 15:41:42

不错不错，回复学习

HLCAD 发表于 2017-12-28 17:04:11

感谢大师的杰作

lucas3 发表于 2017-12-28 18:40:53

回复学习，谢谢大师分享！

CAD小神 发表于 2017-12-29 10:14:55

大师大师！！！！非常感谢

dyjwyqz5221 发表于 2018-1-2 10:04:54

看看如何使用

yoyoho 发表于 2018-2-12 05:23:27

回复学习，谢谢大师分享！

杨帆 发表于 2018-3-17 16:02:10

学习了3333333333333333333

hao3ren 发表于 2018-7-22 14:21:50

回复学习下

taoyi0727 发表于 2018-9-26 21:12:33

看看范列怎么写的

wewehua 发表于 2018-12-18 08:12:50

真心不错的好代码！！！

查看完整版本: （xd::string:dbc->sbc）字符串全角转半角