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

db-_- · 发表于 2022-4-1 20:16

EDA365欢迎您登录！

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

x

本帖最后由 db-_- 于 2022-4-2 10:35 编辑

众所周知，在控制台输入以下代码，可以将汉字转为GBK编码，可以用于skill中显示、打印中文。

<font size="3">axlUIPrompt("Code:",sprintf(nil,"%L",axlUIPrompt("Please Input Chinese:")))</font>

复制代码

但是17.2下面输入很多中文字都会显示错误的结果，该错误的结果虽然在17.2下也能运行，但在16.x下面会报错。

比如输入中国，转换前：

转换后：（错误示范）

以下SKILL程序支持17.2，无乱码、支持特殊字符（比如斜杠）、支持GBK回转中文（比如看别人代码不知道表示什么中文），目前代码里最多支持512个中文、4096个字符。

使用方法：附件解压到任意skill目录中。在allegro.ilinit中输入load("chinese2GBK.il")
控制台中输入命令zw

使用效果：

非SKILL创作者不建议下载，下载了也没什么用。
有任何问题欢迎指正、交流。

附件：

chinese2GBK.rar (1.8 KB, 下载次数: 25)

补充内容 (2022-6-17 13:30):
更新v1.2 见12楼

补充内容 (2023-10-25 15:23):
更新v1.3 见17楼或者置顶楼。

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
))

复制代码

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
))

复制代码

oewqe · 发表于 2022-4-2 09:31

不错的分享，很实用

1061652558 · 发表于 2022-4-11 23:13

不错的分享，很实用

selena19730105 · 发表于 2022-4-13 18:06

好想看看~不知道繁體中文可嗎?貢獻不夠都看不到~

db-_- · 发表于 2022-4-13 18:51

本帖最后由 db-_- 于 2022-4-13 19:22 编辑

selena19730105 发表于 2022-04-13 18:06:37
好想看看~不知道繁體中文可嗎?貢獻不夠都看不到~

支持繁体中文。。很多繁体中文的八进制ASCII码第二个byte会小于127，所以会出线八进制和字母或者符号连用的情况，是正常的，比如下图中的\363w。
我又看了一下GBK的编码，所有文字都刻意避开了0x7F、0xFF，所以不可能出现不可见字符，请放心使用。

isrca01 · 发表于 2022-4-18 13:53

多谢分享！！！！！

hunterwang · 发表于 2022-6-10 14:22

可以

Newroomantics · 发表于 2022-6-16 11:51

16.6下加载报错

W- *WARNING* (reader): string terminated by illegal char \267 at line 140 of file chinese2GBK.il
E-
E- printf("
E- ^
E- SYNTAX ERROR found at line 140 column 13 of file chinese2G

db-_- · 发表于 2022-6-16 16:33

Newroomantics 发表于 2022-6-16 11:51
16.6下加载报错

W- *WARNING* (reader): string terminated by illegal char \267 at line 140 of file ...

挺奇怪的，所有代码行都没有\267 这个字符，而且 printf也全都加了注释了才对。

我测试了16.6下也没问题。

你下载的il再发给我试试。kittledeng@126.com

db-_- · 发表于 2022-6-17 13:29

把这几行改一下吧

if(dec < 127 then
if(ch == '\\ || ch == '\" then ;斜杠单独处理
tmp = strcat("\\" ch)
else if(ch == '\r then
tmp = "\\n"
else
tmp = ch ;字母就用symbol或者string
))
else
tmp = sprintf(nil "\\%o" dec) ;中文用八进制
)

复制代码

chinese2GBK.rar (1.83 KB, 下载次数: 17)

Newroomantics · 发表于 2022-6-30 16:05

今天用的时候发现，16.6版本下，复制代码的函数axlClipboardGetText用不了，set也用不了；
这两个函数是17.2专有的吗，还是大佬自己写的

db-_- · 发表于 2022-6-30 17:01

Newroomantics 发表于 2022-6-30 16:05
今天用的时候发现，16.6版本下，复制代码的函数axlClipboardGetText用不了，set也用不了；
这两个函数是17 ...

我这测试16.6也能复制。
是不是你那边补丁版本有点低。
16.6的HELP里确实没找到这个函数，17.2里面有，是误打误撞刚好16.6也能用。

db-_- · 发表于 2023-1-12 19:09

有没有用繁体系统的朋友，能帮忙反馈一下输入中国，得到的编码是什么吗?

貌似繁体系统用的是BIG5编码，所以很有可能返回的是对应的BIG5编码。

简体系统下的繁体字和繁体系统下的繁体字编码应该是不一样的。

db-_- · 发表于 2023-1-12 20:52

OK，在繁體系統上測試了一下，輸出的就是BIG5的編碼。
所以其實這個工具會根據不同的系統輸出適應於自己系統的對應編碼。

帐号		自动登录	找回密码
密码			注册

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

EDA365欢迎您登录！

评分

浏览过的版块

推荐内容 /1

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

EDA365欢迎您登录！

评分

浏览过的版块

推荐内容 /1

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