中文转码的skill，输入中文直接转码

萌图

1. ;zhongwen.il
   
2. 
   
3. axlCmdRegister( "zwen" `ZhongWen_to_Skill_Form )
   
4. 
   
5. (defun ZhongWen_to_Skill_Form ()
   
6.                         time = getCurrentTime()
   
7.                         time = parseString(time)
   
8.                         day = nth(1 time)
   
9.                         month = car(time)
   
10.                         month = upperCase(month)
    
11.                         year = nth(3 time)
    
12.                         date = strcat(" Date: " day " " month " " year)
    
13.                          Create_ZhongWen_to_Skill_Form()
    
14.                         zhongwenform=axlFormCreate( (gensym) zhongwen_form_file nil 'ZhongWen_to_Skill_Form_Action t)
    
15.                         axlFormDisplay(zhongwenform)
    
16.                         axlUIWPrint(zhongwenform date)
    
17.                         deleteFile(zhongwen_form_file)
    
18.                 )
    
19. 
    
20. 
    
21. (defun Create_ZhongWen_to_Skill_Form ()
    
22. drain()
    
23. zhongwen_form_file = "zhongwen_form.form"
    
24. zhongwenform = outfile(zhongwen_form_file "w")
    
25. fprintf(zhongwenform "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
26. fprintf(zhongwenform "FORM AUTOGREYTEXT\n")
    
27. fprintf(zhongwenform "FIXED\n")
    
28. fprintf(zhongwenform "PORT 91 25\n")
    
29. fprintf(zhongwenform "HEADER "\326\320\316\304\311\372\263\311Skill\264\372\302\353"\n\n")
    
30. fprintf(zhongwenform "POPUP <ENUM>"ITEM1""0","ITEM2""1","ITEM3""2","LAST ONE""3".\n\n")
    
31. fprintf(zhongwenform "TILE\n\n")
    
32. 
    
33. fprintf(zhongwenform "TEXT "\241\357 \307\353\312\344\310\353\326\320\316\304 \241\357"\n")
    
34. fprintf(zhongwenform "FLOC 2 2\n")
    
35. fprintf(zhongwenform "ENDTEXT\n\n")
    
36. 
    
37. fprintf(zhongwenform "FIELD ZhongWen\n")
    
38. fprintf(zhongwenform "FLOC 2 5\n")
    
39. fprintf(zhongwenform "FSIZE 86 2\n")
    
40. fprintf(zhongwenform "STRFILLIN 86 1000\n")
    
41. fprintf(zhongwenform "ENDFIELD \n\n\n")
    
42. 
    
43. fprintf(zhongwenform "TEXT "\241\356 \266\324\323\246Skill\264\372\302\353 \241\356"\n")
    
44. fprintf(zhongwenform "FLOC 2 9\n")
    
45. fprintf(zhongwenform "ENDTEXT\n\n")
    
46. 
    
47. fprintf(zhongwenform "FIELD DaiMa\n")
    
48. fprintf(zhongwenform "FLOC 2 12\n")
    
49. fprintf(zhongwenform "FSIZE 86 2\n")
    
50. fprintf(zhongwenform "STRFILLIN 86 1000\n")
    
51. fprintf(zhongwenform "ENDFIELD \n\n\n")
    
52. 
    
53. fprintf(zhongwenform "FIELD CreateDaiMa\n")
    
54. fprintf(zhongwenform "FLOC 40 17\n")
    
55. fprintf(zhongwenform "MENUBUTTON "\307\345\277\325" 10 4\n")
    
56. fprintf(zhongwenform "ENDFIELD \n\n")
    
57. 
    
58. fprintf(zhongwenform "ENDTILE\n\n")
    
59. fprintf(zhongwenform "ENDFORM\n\n")
    
60. 
    
61. close(zhongwenform)
    
62. )
    
63. 
    
64. (defun ZhongWen_to_Skill_Form_Action (zhongwenform)
    
65. 
    
66. case(zhongwenform->curField
    
67.                 ("ZhongWen"
    
68.                 values=axlFormGetField(zhongwenform "ZhongWen")
    
69.                 axlFormSetField(zhongwenform "DaiMa" sprintf(nil "%L" values))               
    
70.                 )
    
71.                 ("CreateDaiMa"
    
72.                 axlFormSetField(zhongwenform "DaiMa" nil)
    
73.                 axlFormSetField(zhongwenform "ZhongWen" nil)
    
74.                 )
    
75.                 ("DaiMa")
    
76.         )
    
77. )

复制代码