请选择 进入手机版 | 继续访问电脑版
搜索
专业IC版图外包服务 微信:drclvs
广告位:SY02 广告业务联系QQ:3173974412
无锡芯满微电子有限公司---专业研发电机驱动芯片
IC设计论坛----ictown.com
广告位:SY05 广告业务联系QQ:3173974412
查看: 832|回复: 6

[转帖] 中文转码的skill,输入中文直接转码

[复制链接]

47

主题

49

帖子

427

E币

技术员

Rank: 2

积分
96
发表于 2017-12-16 16:02:53 | 显示全部楼层 |阅读模式
  1. ;zhongwen.il

  2. axlCmdRegister( "zwen" `ZhongWen_to_Skill_Form )

  3. (defun ZhongWen_to_Skill_Form ()
  4.                         time = getCurrentTime()
  5.                         time = parseString(time)
  6.                         day = nth(1 time)
  7.                         month = car(time)
  8.                         month = upperCase(month)
  9.                         year = nth(3 time)
  10.                         date = strcat(" Date: " day " " month " " year)
  11.                          Create_ZhongWen_to_Skill_Form()
  12.                         zhongwenform=axlFormCreate( (gensym) zhongwen_form_file nil 'ZhongWen_to_Skill_Form_Action t)
  13.                         axlFormDisplay(zhongwenform)
  14.                         axlUIWPrint(zhongwenform date)
  15.                         deleteFile(zhongwen_form_file)
  16.                 )


  17. (defun Create_ZhongWen_to_Skill_Form ()
  18. drain()
  19. zhongwen_form_file = "zhongwen_form.form"
  20. zhongwenform = outfile(zhongwen_form_file "w")
  21. fprintf(zhongwenform "FILE_TYPE=FORM_DEFN VERSION=2\n")
  22. fprintf(zhongwenform "FORM AUTOGREYTEXT\n")
  23. fprintf(zhongwenform "FIXED\n")
  24. fprintf(zhongwenform "PORT 91 25\n")
  25. fprintf(zhongwenform "HEADER "\326\320\316\304\311\372\263\311Skill\264\372\302\353"\n\n")
  26. fprintf(zhongwenform "POPUP <ENUM>"ITEM1""0","ITEM2""1","ITEM3""2","LAST ONE""3".\n\n")
  27. fprintf(zhongwenform "TILE\n\n")

  28. fprintf(zhongwenform "TEXT "\241\357 \307\353\312\344\310\353\326\320\316\304 \241\357"\n")
  29. fprintf(zhongwenform "FLOC 2 2\n")
  30. fprintf(zhongwenform "ENDTEXT\n\n")

  31. fprintf(zhongwenform "FIELD ZhongWen\n")
  32. fprintf(zhongwenform "FLOC 2 5\n")
  33. fprintf(zhongwenform "FSIZE 86 2\n")
  34. fprintf(zhongwenform "STRFILLIN 86 1000\n")
  35. fprintf(zhongwenform "ENDFIELD \n\n\n")

  36. fprintf(zhongwenform "TEXT "\241\356 \266\324\323\246Skill\264\372\302\353 \241\356"\n")
  37. fprintf(zhongwenform "FLOC 2 9\n")
  38. fprintf(zhongwenform "ENDTEXT\n\n")

  39. fprintf(zhongwenform "FIELD DaiMa\n")
  40. fprintf(zhongwenform "FLOC 2 12\n")
  41. fprintf(zhongwenform "FSIZE 86 2\n")
  42. fprintf(zhongwenform "STRFILLIN 86 1000\n")
  43. fprintf(zhongwenform "ENDFIELD \n\n\n")

  44. fprintf(zhongwenform "FIELD CreateDaiMa\n")
  45. fprintf(zhongwenform "FLOC 40 17\n")
  46. fprintf(zhongwenform "MENUBUTTON "\307\345\277\325" 10 4\n")
  47. fprintf(zhongwenform "ENDFIELD \n\n")

  48. fprintf(zhongwenform "ENDTILE\n\n")
  49. fprintf(zhongwenform "ENDFORM\n\n")

  50. close(zhongwenform)
  51. )

  52. (defun ZhongWen_to_Skill_Form_Action (zhongwenform)

  53. case(zhongwenform->curField
  54.                 ("ZhongWen"
  55.                 values=axlFormGetField(zhongwenform "ZhongWen")
  56.                 axlFormSetField(zhongwenform "DaiMa" sprintf(nil "%L" values))               
  57.                 )
  58.                 ("CreateDaiMa"
  59.                 axlFormSetField(zhongwenform "DaiMa" nil)
  60.                 axlFormSetField(zhongwenform "ZhongWen" nil)
  61.                 )
  62.                 ("DaiMa")
  63.         )
  64. )
复制代码


积分规则
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则



版权所有:EDABOSS论坛 投诉受理:13816911948 合作热线:13816911948

备案信息:苏经营性ICP B2-20090218号 皖ICP备09697823号 电子公告服务许可文件号:皖通[2009]556号

Powered by EDABOSS X3.4 Tamplate By EDABOSS论坛  © 2001-2013 Comsenz Inc.

广告投放 微信:drclvs

快速回复 返回顶部 返回列表