EDA365电子论坛网»电子社区 › EDA工具&PCB设计 › Allegro Skill开发 › [SKILL分享]：汉字转码工具源码（GBK编码和中文互转）

[SKILL分享]：汉字转码工具源码（GBK编码和中文互转）

查看数: 4504 | 评论数: 31 | 收藏 8

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

db-_-

发布时间: 2022-4-1 20:16

正文摘要:

本帖最后由 db-_- 于 2022-4-2 10:35 编辑众所周知，在控制台输入以下代码，可以将汉字转为GBK编码，可以用于skill中显示、打印中文。 <font size="3">axlUIPrompt("Code:",sprintf(nil,"%L",ax ...

db-_- 发表于 2023-10-25 15:18

v1.3更新
文件名 "chinese2GBK.il"

;;v1.3 修正BUG
;;v1.2 统一格式
;;v1.1 增加引号处理
;;v1.0 初稿
axlCmdRegister("zw" 'dbChinese2Gbk)
;;---------------------------------------------------------
;; skill load "chinese2GBK.il"
;;指令: zw
;;功能: 中文转GBK
;;描述: v1.3
;; 输入中文，点击代码框，然后点击复制即可
;; 输入代码，点击中文框，可以转换成中文
;; 如果系统是繁体中文，则不是GBK，而是BIG5编码
;; 支持17.2
;;---------------------------------------------------------
;;主函数
procedure(dbChinese2Gbk()
(let (addr)
;创建FORM
addr = "./ch2gbk.form"
_dbCreatChisese2GbkForm(addr)
fm_zw = axlFormCreate((gensym) addr '("C") '_dbChinese2GbkCallback t nil)
when(isFile(addr) errset(deleteFile(addr)))
axlFormDisplay(fm_zw) ;显示form
axlUIWPrint(fm_zw "Author: db")
))
;;创建form
defun(_dbCreatChisese2GbkForm (addr)
(let (file)
;输出文件
file = outfile(addr)
fprintf(file "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(file "FORM AUTOGREYTEXT\n")
fprintf(file "FIXED\n")
fprintf(file "PORT 55 20\n") ;长，高
fprintf(file "HEADER \"Words to GBK code V1.3\"\n")
fprintf(file "TILE\n")
;;文字1
fprintf(file "TEXT \"Words: \"\n")
fprintf(file "FLOC 2 2\n")
fprintf(file "ENDTEXT\n")
;;编辑框1
fprintf(file "FIELD zw_ch_text\n")
fprintf(file "FLOC 13 1\n")
fprintf(file "STRFILLIN 26 4096\n") ;4096最多支持4096/8=512个数字，可以改大，但不知道上限是多少
fprintf(file "FSIZE 40 4\n")
fprintf(file "ENDFIELD\n")
;;文字2
fprintf(file "TEXT \"GBK code: \"\n")
fprintf(file "FLOC 2 7\n")
fprintf(file "ENDTEXT\n")
;;编辑框2
fprintf(file "FIELD zw_gbk_code\n")
fprintf(file "FLOC 13 6\n")
fprintf(file "STRFILLIN 26 4096\n") ;4096最多支持4096/8=512个数字，可以改大，但不知道上限是多少
fprintf(file "FSIZE 40 4\n")
fprintf(file "ENDFIELD\n")
;;按钮0
fprintf(file "FIELD zw_clear\n")
fprintf(file "FLOC 10 11\n")
fprintf(file "MENUBUTTON \"Clear\" 12 4\n")
fprintf(file "ENDFIELD\n")
;;按钮1
fprintf(file "FIELD zw_copy\n")
fprintf(file "FLOC 30 11\n")
fprintf(file "MENUBUTTON \"Copy code\" 12 4\n")
fprintf(file "ENDFIELD\n")
fprintf(file "ENDTILE\n")
fprintf(file "ENDFORM\n")
close(file)
))
;;form响应函数
defun(_dbChinese2GbkCallback (fm_zw)
(prog (values)
axlUIWPrint(fm_zw "Author: db")
case(fm_zw->curField
("zw_ch_text" ;输入中文，转换GBK
values = axlFormGetField(fm_zw "zw_ch_text")
when(values
axlFormSetField(fm_zw "zw_gbk_code" _dbChn2Gbk(values))
)
)
("zw_gbk_code" ;输入GBK，转换中文
values = axlFormGetField(fm_zw "zw_gbk_code")
when(values
axlFormSetField(fm_zw "zw_ch_text" _dbGbk2Chn(values))
)
)
("zw_clear" ;清除
axlFormSetField(fm_zw "zw_ch_text" nil)
axlFormSetField(fm_zw "zw_gbk_code" nil)
)
("zw_copy" ;复制
when(axlClipboardGetText() != axlFormGetField(fm_zw "zw_gbk_code")
when(axlClipboardSetText(axlFormGetField(fm_zw "zw_gbk_code"))
axlUIWPrint(nil 'info0 "The code had copied to the clipboard.")
)
)
)
)
if((nequal fm_zw->doneState 0) then
axlFormClose(fm_zw)
)
return()
))
defun(_dbChn2Gbk (str)
(let (res ch dec tmp)
res = ""
for(i 1 strlen(str)
ch = getchar(str i)
dec = charToInt(ch)
if(dec < 127 then
if(ch == '\\ || ch == '\" then ;斜杠单独处理，后面加个杠
tmp = strcat("\\" ch)
else if(ch == '\r then ;换行转成\n
tmp = "\\n"
else if(ch == '\t then ;换行转成\t
tmp = "\\t"
else
tmp = ch ;字母就用symbol或者string
)))
else
tmp = sprintf(nil "\\%o" dec) ;中文用八进制
)
res = strcat(res tmp)
)
res
))
defun(_dbGbk2Chn (str)
(let (res ch dec old cnt numVlue)
old = nil
cnt = 0
numVlue = ""
res = ""
for(i 1 strlen(str)
ch = getchar(str i)
dec = charToInt(ch)
cond(
(old != 92 ;上一个不是斜杆
old = dec
when(dec != 92 ;当前也不是斜杠
res = strcat(res ch)
)
)
(old == 92 ;上一个是斜杆
old = dec
cond(
(dec <= 57 && dec >= 48 ;上一个是斜杠，这个是数字
numVlue = strcat(numVlue ch)
cnt = cnt + 1
if(cnt == 3 then
res = strcat(res intToChar(_dbOct2Dec( atoi(numVlue))))
numVlue = ""
cnt = 0
else
old = 92
)
)
(ch == 'n || ch == 'r
res = strcat(res '\r)
)
(ch == 't
res = strcat(res '\t)
)
(t
res = strcat(res ch)
)
)
)
)
)
res
))
defun(_dbOct2Dec (num)
(let (n cnt x)
n = num
cnt = 1
x = 0
while(n > 0
x = x + mod(n 10) * cnt
n = n / 10
cnt = cnt * 8
)
x
))

复制代码

点评

delray

真的很棒，高人啊！详情回复发表于 2024-5-10 19:56

Flower98

感谢感谢详情回复发表于 2023-10-25 15:53

Newroomantics 发表于 2022-6-17 11:11

db-_- 发表于 2022-6-16 16:33
挺奇怪的，所有代码行都没有\267 这个字符，而且 printf也全都加了注释了才对。

我测试了16.6下也没 ...

好像找到问题了，是那一行printf直接写了中文的原因，发现引号；不知道是不是大佬发错版本了

defun(_dbChn2Gbk (str)
(let (res i ch dec tmp)
res = ""
for(i 1 strlen(str)
ch = getchar(str i)
dec = charToInt(ch)
if(dec < 127 then
if(dec == 92 then ;斜杠单独处理
tmp = "\\\\"
else if(dec == 34 then ;引号单独处理
tmp = "\\\""
printf("发现引号%L\n" dec)
printf("tmp = %L\n" tmp)
else
tmp = ch ;字母就用symbol或者string
))
else
tmp = sprintf(nil "\\%o" dec) ;中文用八进制
)
res = strcat(res tmp)
)
res
))

复制代码

Allen1211 发表于 2025-7-1 09:47

db-_- 发表于 2025-5-26 18:50
你是指在控制台或者FORM里打印出来，还是在PCB里面添加中文丝印？

前者的话，直接用printf打印就行， ...

我想的是后者，谢谢我知道了。

db-_- 发表于 2025-5-26 18:57

db-_- 发表于 2022-4-13 18:51
支持繁体中文。。很多繁体中文的八进制ASCII码第二个byte会小于127，所以会出线八进制和字母或者符号连用 ...

补充一下如果你的系统是简体系统，生成的自然就是GBK编码；如果你的系统是繁体系统，生成的是BIG5编码，这两是不互通的。

（简体系统下输入繁体字生成的编码也是GBK编码的，而不是BIG5。）

如果你用GBK编码写代码，用繁体系统的人打开就会是乱码；
如果你用BIG5写代码，用简体系统的人打开也会是乱码；

想要实现全覆盖，只能根据检测到的系统，做适配。

如何检测你是简体系统还是繁体系统，可以在cmd里面输入chcp.com，显示936就是简体系统了。显示950就是繁体系统了。再复杂的就不再深究的，感兴趣的可以去搜索研究一下。

C:\Users\kd_20>chcp.com
活动代码页: 936

复制代码

所以使用BIG5编码的童鞋们，见到乱码的SKILL也不要觉得奇怪了。

db-_- 发表于 2025-5-26 18:50