中文代码转换

PLCC · 发表于 2013-12-29 01:11:27

本帖最后由 PLCC 于 2013-12-29 15:38 编辑

:直接转换命令：axlUIPrompt("Code:",sprintf(nil,"%L",axlUIPrompt("Please Input Chinese:")))
;zhongwen.il
axlCmdRegister( "zwen" `ZhongWen_to_Skill_Form )
(defun ZhongWen_to_Skill_Form ()
time = getCurrentTime()
time = parseString(time)
day = nth(1 time)
month = car(time)
month = upperCase(month)
year = nth(3 time)
date = strcat(" Date: " day " " month " " year)
Create_ZhongWen_to_Skill_Form()
zhongwenform=axlFormCreate( (gensym) zhongwen_form_file nil 'ZhongWen_to_Skill_Form_Action t)
axlFormDisplay(zhongwenform)
axlUIWPrint(zhongwenform date)
deleteFile(zhongwen_form_file)
  )

(defun Create_ZhongWen_to_Skill_Form ()
drain()
zhongwen_form_file = "zhongwen_form.form"
zhongwenform = outfile(zhongwen_form_file "w")
fprintf(zhongwenform "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(zhongwenform "FORM AUTOGREYTEXT\n")
fprintf(zhongwenform "FIXED\n")
fprintf(zhongwenform "PORT 91 25\n")
fprintf(zhongwenform "HEADER \"\326\320\316\304\311\372\263\311Skill\264\372\302\353\"\n\n")
fprintf(zhongwenform "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
fprintf(zhongwenform "TILE\n\n")
fprintf(zhongwenform "TEXT \"\241\357 \307\353\312\344\310\353\326\320\316\304 \241\357\"\n")
fprintf(zhongwenform "FLOC 2 2\n")
fprintf(zhongwenform "ENDTEXT\n\n")
fprintf(zhongwenform "FIELD ZhongWen\n")
fprintf(zhongwenform "FLOC 2 5\n")
fprintf(zhongwenform "FSIZE 86 2\n")
fprintf(zhongwenform "STRFILLIN 86 1000\n")
fprintf(zhongwenform "ENDFIELD \n\n\n")
fprintf(zhongwenform "TEXT \"\241\356 \266\324\323\246Skill\264\372\302\353 \241\356\"\n")
fprintf(zhongwenform "FLOC 2 9\n")
fprintf(zhongwenform "ENDTEXT\n\n")
fprintf(zhongwenform "FIELD DaiMa\n")
fprintf(zhongwenform "FLOC 2 12\n")
fprintf(zhongwenform "FSIZE 86 2\n")
fprintf(zhongwenform "STRFILLIN 86 1000\n")
fprintf(zhongwenform "ENDFIELD \n\n\n")
fprintf(zhongwenform "FIELD CreateDaiMa\n")
fprintf(zhongwenform "FLOC 40 17\n")
fprintf(zhongwenform "MENUBUTTON \"\307\345\277\325\" 10 4\n")
fprintf(zhongwenform "ENDFIELD \n\n")
fprintf(zhongwenform "ENDTILE\n\n")
fprintf(zhongwenform "ENDFORM\n\n")
close(zhongwenform)
)
(defun ZhongWen_to_Skill_Form_Action (zhongwenform)
case(zhongwenform->curField
  ("ZhongWen"
  values=axlFormGetField(zhongwenform "ZhongWen")
  axlFormSetField(zhongwenform "DaiMa" sprintf(nil "%L" values))
  )
  ("CreateDaiMa"
  axlFormSetField(zhongwenform "DaiMa" nil)
  axlFormSetField(zhongwenform "ZhongWen" nil)
  )
  ("DaiMa")
)
)

375259768 · 发表于 2013-12-31 08:45:34

感谢分享……

這侽孓譙悴丶 · 发表于 2014-8-9 18:47:42

这个SKILL是用来干嘛的？

shimmy_su · 发表于 2014-9-18 18:04:45

这个SKILL是用来干嘛的？

linuxfor · 发表于 2015-1-5 22:34:56

好东西，感谢分享

65770096 · 发表于 2015-6-1 16:03:19

能在allegro中输入中文吗？

bingshuihuo · 发表于 2015-12-23 13:56:00

能在allegro中输入中文吗？

Frankfan · 发表于 2016-10-28 15:09:13

这个是干嘛用的还真没看懂！

.vEフ_oo_侽生、 · 发表于 2017-4-1 14:39:35

感谢分享……

.vEフ_oo_侽生、 · 发表于 2017-4-2 13:19:49

这个SKILL是用来干嘛的？

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