求助，有批量将全角文字转变为半角文字的插件或者程序吗？

CAD小神 发表于 2017-12-27 08:39:22

以前老的图纸有很多全角数字和字母穿插在汉字中，现在想将它批量转变为半角的，请教有类似的可以批量转换的工具或者程序吗？

CAD小神 发表于 2017-12-27 09:36:40

E:\桌面\7B{T0))YTD~GN0OC7(_6`VI.png

CAD小神 发表于 2017-12-27 09:37:34

画横线的字体是全角，想转成半角

duotu007 发表于 2017-12-27 09:48:48

CAD小神发表于 2017-12-27 09:37
画横线的字体是全角，想转成半角

做个对照表，对照替换就可以吧

CAD小神 发表于 2017-12-27 09:50:30

duotu007 发表于 2017-12-27 09:48
做个对照表，对照替换就可以吧

可以说的稍微详细一点吗？替换得内容不只一种，有几十种都要替换。。

CAD小神 发表于 2017-12-27 10:24:59

有大神么TT

langke52 发表于 2017-12-27 15:12:56

修改字体样式？

mikewolf2k 发表于 2018-1-2 13:04:26

全角半角的内码应该不一样，只能如地板所言，做个对照表替换。
好在都是英文和标点，要替换的也就那么几十个，列一列不费多少时间。

fl202 发表于 2018-1-10 17:35:49

刚好看到：
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=714013&extra=page%3D1%26filter%3Dsortid%26sortid%3D1
[字符串] [函数发布] （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 ""))
      )
   )
   )
)

傲视豆腐 发表于 2021-10-31 11:57:22

我反而想要半角转全角的，不知道有没有呢

页: [1]

明经CAD社区's Archiver

求助，有批量将全角文字转变为半角文字的插件或者程序吗？