EDA365电子论坛网

标题: 【Skill源码】判断系统语言 [打印本页]

作者: leilei4908 时间: 2020-9-4 10:41
标题: 【Skill源码】判断系统语言
本帖最后由 leilei4908 于 2020-9-4 13:45 编辑

procedure(SystemLanguage()
prog((cmd sl Line slc)
      cmd = "chcp>t.t"
      system(cmd)
      sl = infile("t.t")
      gets(Line sl)
      close(sl)
      errset(deleteFile("t.t"))
      slc = cadr(parseString(Line ": \n"))
      case(slc
            ("437"
                     return("en")
            )
            ("932"
                     return("ja")
            )
            ("936"
                     return("zh-cn")
            )
            ("950"
                     return("zh-tw")
            )
      )
      ; axlRunBatchDBProgram("chcp" cmd ?silent t)
))
自己写的判断系统语言的skill
实际上就是调用cmd的chcp功能，输出到文本，读取后判断
由于使用system()，cmd的黑框会一闪而过
各位是否有更好的方式，敬请批评指正

作者: NingW 时间: 2020-9-4 13:28
判断系统语言

欢迎光临 EDA365电子论坛网 (https://bbs.eda365.com/)