#NoEnv   ; 这句一定需要定义环境变量

; 涓滈樋闃胯兌鍘 => 东阿阿胶
encodingfrom := "cp936"
encodingto := "cp65001"
str := "涓滈樋闃胯兌"
MsgBox % transEncoding(str, encodingfrom, encodingto)
return

transEncoding(str, encodingfrom, encodingto) {
  bytelen := StrPut(str, encodingfrom) * 2 
  VarSetCapacity(temp, bytelen, 0)
  StrPut(str, &temp, bytelen, encodingfrom)
  return StrGet(&temp, bytelen, encodingto)
}

 

声明：站内资源为整理优化好的代码上传分享与学习研究，如果是开源代码基本都会标明出处，方便大家扩展学习路径。请不要恶意搬运，破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点，所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益，请联系我们进行删除下架。