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

ylm113006016

XXXXXXXXXX

db-_-

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

1. ;;v1.3 修正BUG
   
2. ;;v1.2 统一格式
   
3. ;;v1.1 增加引号处理
   
4. ;;v1.0 初稿
   
5. 
   
6. axlCmdRegister("zw" 'dbChinese2Gbk)
   
7. 
   
8. ;;---------------------------------------------------------
   
9. ;; skill load "chinese2GBK.il"
   
10. ;;指令: zw
    
11. ;;功能: 中文转GBK
    
12. ;;描述: v1.3
    
13. ;; 输入中文，点击代码框，然后点击复制即可
    
14. ;; 输入代码，点击中文框，可以转换成中文
    
15. ;; 如果系统是繁体中文，则不是GBK，而是BIG5编码
    
16. ;; 支持17.2
    
17. ;;---------------------------------------------------------
    
18. 
    
19. ;;主函数
    
20. procedure(dbChinese2Gbk()
    
21. (let (addr)
    
22.     ;创建FORM
    
23.     addr = "./ch2gbk.form"
    
24.     _dbCreatChisese2GbkForm(addr)
    
25.     fm_zw = axlFormCreate((gensym) addr '("C") '_dbChinese2GbkCallback t nil)
    
26.     when(isFile(addr) errset(deleteFile(addr)))
    
27.     axlFormDisplay(fm_zw)       ;显示form
    
28.     axlUIWPrint(fm_zw "Author: db")
    
29. ))
    
30. 
    
31. ;;创建form
    
32. defun(_dbCreatChisese2GbkForm (addr)
    
33. (let (file)
    
34.     ;输出文件
    
35.     file = outfile(addr)
    
36. 
    
37.     fprintf(file "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
38.     fprintf(file "FORM AUTOGREYTEXT\n")
    
39.     fprintf(file "FIXED\n")
    
40.     fprintf(file "PORT 55 20\n")            ;长，高
    
41.     fprintf(file "HEADER \"Words to GBK code V1.3\"\n")
    
42. 
    
43.     fprintf(file "TILE\n")
    
44. 
    
45.     ;;文字1
    
46.     fprintf(file "TEXT \"Words: \"\n")
    
47.     fprintf(file "FLOC 2 2\n")
    
48.     fprintf(file "ENDTEXT\n")
    
49.     ;;编辑框1
    
50.     fprintf(file "FIELD zw_ch_text\n")
    
51.     fprintf(file "FLOC 13 1\n")
    
52.     fprintf(file "STRFILLIN 26 4096\n") ;4096最多支持4096/8=512个数字，可以改大，但不知道上限是多少
    
53.     fprintf(file "FSIZE 40 4\n")
    
54.     fprintf(file "ENDFIELD\n")
    
55.     ;;文字2
    
56.     fprintf(file "TEXT \"GBK code: \"\n")
    
57.     fprintf(file "FLOC 2 7\n")
    
58.     fprintf(file "ENDTEXT\n")
    
59.     ;;编辑框2
    
60.     fprintf(file "FIELD zw_gbk_code\n")
    
61.     fprintf(file "FLOC 13 6\n")
    
62.     fprintf(file "STRFILLIN 26 4096\n") ;4096最多支持4096/8=512个数字，可以改大，但不知道上限是多少
    
63.     fprintf(file "FSIZE 40 4\n")
    
64.     fprintf(file "ENDFIELD\n")
    
65.     ;;按钮0
    
66.     fprintf(file "FIELD zw_clear\n")
    
67.     fprintf(file "FLOC 10 11\n")
    
68.     fprintf(file "MENUBUTTON \"Clear\" 12 4\n")
    
69.     fprintf(file "ENDFIELD\n")
    
70.     ;;按钮1
    
71.     fprintf(file "FIELD zw_copy\n")
    
72.     fprintf(file "FLOC 30 11\n")
    
73.     fprintf(file "MENUBUTTON \"Copy code\" 12 4\n")
    
74.     fprintf(file "ENDFIELD\n")
    
75. 
    
76.     fprintf(file "ENDTILE\n")
    
77. 
    
78.     fprintf(file "ENDFORM\n")
    
79. 
    
80.     close(file)
    
81. ))
    
82. 
    
83. ;;form响应函数
    
84. defun(_dbChinese2GbkCallback (fm_zw)
    
85. (prog (values)
    
86. 
    
87.     axlUIWPrint(fm_zw "Author: db")
    
88.     case(fm_zw->curField
    
89.         ("zw_ch_text"   ;输入中文，转换GBK
    
90.             values = axlFormGetField(fm_zw "zw_ch_text")
    
91.             when(values
    
92.                 axlFormSetField(fm_zw "zw_gbk_code" _dbChn2Gbk(values))
    
93.             )
    
94.         )
    
95.         ("zw_gbk_code"  ;输入GBK，转换中文
    
96.             values = axlFormGetField(fm_zw "zw_gbk_code")
    
97.             when(values
    
98.                 axlFormSetField(fm_zw "zw_ch_text" _dbGbk2Chn(values))
    
99.             )
    
100.         )
     
101.         ("zw_clear" ;清除
     
102.             axlFormSetField(fm_zw "zw_ch_text" nil)
     
103.             axlFormSetField(fm_zw "zw_gbk_code" nil)
     
104.         )
     
105.         ("zw_copy"  ;复制
     
106.             when(axlClipboardGetText() != axlFormGetField(fm_zw "zw_gbk_code")
     
107.                 when(axlClipboardSetText(axlFormGetField(fm_zw "zw_gbk_code"))
     
108.                     axlUIWPrint(nil 'info0 "The code had copied to the clipboard.")
     
109.                 )
     
110.             )
     
111.         )
     
112.     )
     
113.     if((nequal fm_zw->doneState 0)  then
     
114.         axlFormClose(fm_zw)
     
115.     )
     
116.     return()
     
117. ))
     
118. 
     
119. defun(_dbChn2Gbk (str)
     
120. (let (res ch dec tmp)
     
121.     res = ""
     
122.     for(i 1 strlen(str)
     
123.         ch = getchar(str i)
     
124.         dec = charToInt(ch)
     
125.         if(dec < 127 then
     
126.             if(ch == '\\ || ch == '\" then  ;斜杠单独处理，后面加个杠
     
127.                 tmp = strcat("\\" ch)
     
128.             else if(ch == '\r then  ;换行转成\n
     
129.                 tmp = "\\n"
     
130.             else if(ch == '\t then  ;换行转成\t
     
131.                 tmp = "\\t"
     
132.             else
     
133.                 tmp = ch    ;字母就用symbol或者string
     
134.             )))
     
135.         else
     
136.             tmp = sprintf(nil "\\%o" dec)   ;中文用八进制
     
137.         )
     
138.         res = strcat(res tmp)
     
139.     )
     
140.     res
     
141. ))
     
142. 
     
143. defun(_dbGbk2Chn (str)
     
144. (let (res ch dec old cnt numVlue)
     
145.     old = nil
     
146.     cnt = 0
     
147.     numVlue = ""
     
148.     res = ""
     
149.     for(i 1 strlen(str)
     
150.         ch = getchar(str i)
     
151.         dec = charToInt(ch)
     
152.         cond(
     
153.             (old != 92 ;上一个不是斜杆
     
154.                 old = dec
     
155.                 when(dec != 92              ;当前也不是斜杠
     
156.                     res = strcat(res ch)
     
157.                 )
     
158.             )
     
159.             (old == 92 ;上一个是斜杆
     
160.                 old = dec
     
161.                 cond(
     
162.                     (dec <= 57 && dec >= 48 ;上一个是斜杠，这个是数字
     
163.                         numVlue = strcat(numVlue ch)
     
164.                         cnt = cnt + 1
     
165.                         if(cnt == 3 then
     
166.                             res = strcat(res intToChar(_dbOct2Dec( atoi(numVlue))))
     
167.                             numVlue = ""
     
168.                             cnt = 0
     
169.                         else
     
170.                             old = 92
     
171.                         )
     
172.                     )
     
173.                     (ch == 'n || ch == 'r
     
174.                         res = strcat(res '\r)
     
175.                     )
     
176.                     (ch == 't
     
177.                         res = strcat(res '\t)
     
178.                     )
     
179.                     (t
     
180.                         res = strcat(res ch)
     
181.                     )
     
182.                 )                  
     
183.             )
     
184.         )
     
185.     )
     
186.     res
     
187. ))
     
188. 
     
189. defun(_dbOct2Dec (num)
     
190. (let (n cnt x)
     
191.    
     
192.     n = num
     
193.     cnt = 1
     
194.     x = 0
     
195.     while(n > 0
     
196.         x = x + mod(n 10) * cnt
     
197.         n = n / 10
     
198.         cnt = cnt * 8
     
199.     )
     
200.     x
     
201. ))

复制代码

db-_-

@Flower98

Flower98

db-_- 发表于 2023-10-25 15:18
v1.3更新
文件名 "chinese2GBK.il"

感谢感谢

七彩雨

学习了，谢谢分享

quickly666

非常不错，想要但没有威望

db-_-

quickly666 发表于 2023-11-8 10:37
非常不错，想要但没有威望

代码都贴出来了 不需要威望

delray

db-_- 发表于 2023-10-25 15:18
v1.3更新
文件名 "chinese2GBK.il"

真的很棒，高人啊！

雞翅加辣

樓主一生平安~

dianchao240711

666666666666666666

gogogo冲冲冲

大佬，膜拜

gogogo冲冲冲

谢谢分享已经使用，效果很好????

Xin-O

感谢大佬的分享，效果非常好！

Allen1211

请教一下，知道GBK的编码，如何添加中文 文本呀？

db-_-

Allen1211 发表于 2025-5-26 18:40
请教一下，知道GBK的编码，如何添加中文 文本呀？

你是指在控制台或者FORM里打印出来，还是在PCB里面添加中文丝印？

前者的话，直接用printf打印就行，后者很复杂，甚至可以说和GBK编码没任何关系，而是需要一笔一划画出来。