绿色风's Blog
专注AutoIT(Au3)
  • 首页
  • 流●年
  • 笔●记
    • 学习随记
    • 源码示例
  • 脚●本
    • UDF(收集)
    • 工作室UDF
    • 工具●教程
    • 教程之GDI
  • 作●品
  • 下●载
  • 情怀ExcelTip
10月62018

Au3中文内码转换UDF,方便调用

作者:绿色风   发布:2018-10-6 9:54 Saturday   分类:源码示例   阅读:5937次   评论:0条  

转载的 ACN [3mile] 的作品


暂时实现
BIG5=>GBK
GBK=>BIG5
GBK=>GB2312
GB2312=>GBK
```#include <winapi.au3> Local $sInputText = '中华人民共和国' $fan=_JianToFan($sInputText) MsgBox(0,'简转繁:',$fan) $jian=_FanToJian($sInputText) MsgBox(0,'繁转简:',$jian) $big5=_GbkToBig5($fan) MsgBox(0,'转大五:',$big5) $gbk=_Big5toGbk($big5) MsgBox(0,'转GBK:',$gbk) $jian=_FanToJian($gbk) MsgBox(0,'繁转简:',$jian) Func _Big5toGbk(ByRef $sInputText);BIG5转GBK $sInputText = _WinAPI_MultiByteToWideChar($sInputText, 950, $MB_COMPOSITE, False);转为繁体中文 $sInputText = _WinAPI_WideCharToMultiByte($sInputText, 936);转为GBK繁体中文 Return $sInputText EndFunc ;==>_Big5toGbk Func _GbkToBig5($sInputText);GBK转BIG5 $sInputText = _WinAPI_MultiByteToWideChar($sInputText, 936, $MB_COMPOSITE, False);转为繁体中文 $sInputText = _WinAPI_WideCharToMultiByte($sInputText, 950);转为GBK繁体中文 Return $sInputText EndFunc Func _JianToFan($sInputText);GB2312转GBK Local $InPtr = _WinAPI_MultiByteToWideChar($sInputText, 936, $MB_COMPOSITE, False) Local $OutPtr Local $dll=DllOpen('kernel32.dll') Local $result = DllCall($dll, "none","LCMapStringA", "LONG", 0x0804, "dword", 0x4000000, "STR", _ DllStructGetData($InPtr,1),"LONG",DllStructGetSize($InPtr),"str",$OutPtr,'long',DllStructGetSize($InPtr)); "PTR",$OutPtr,'long',DllStructGetSize($InPtr)) If IsArray($result) Then Return $result[5] EndFunc Func _FanToJian($sInputText);GBK转GB2312 Local $InPtr = _WinAPI_MultiByteToWideChar($sInputText, 936, $MB_COMPOSITE, False) Local $OutPtr Local $dll=DllOpen('kernel32.dll') Local $result = DllCall($dll, "none","LCMapStringA", "LONG", 0x0804, "dword", 0x2000000, "STR", _ DllStructGetData($InPtr,1),"LONG",DllStructGetSize($InPtr),"str",$OutPtr,'long',DllStructGetSize($InPtr)); "PTR",$OutPtr,'long',DllStructGetSize($InPtr)) If IsArray($result) Then Return $result[5] EndFunc```





本文固定链接: http://www.jianyiit.com/post-300.html

blogger
该日志由 绿色风 于2018-10-6 9:54 Saturday发表在 源码示例 分类下。
版权所有:《绿色风's Blog》 → 《Au3中文内码转换UDF,方便调用》;
除特别标注,本博客很多文章均为原创. 互联分享,尊重版权,转载请以链接形式标明本文地址;
本文标签:

扫描二维码,在手机上阅读
上一篇::Au3的A*星寻路算法与示例
下一篇:什么是双缓冲绘图,防止闪烁[收集AU3]

热门文章

相关文章

  • AU3自动化操作谷歌Chrome浏览器示例
  • 笔记本电池电量显示
  • Au3取巧方式从窗口列表中获取本机登陆的QQ号码
  • Au3[位置不固定]验证码识别例子
  • Au3中仿高阶函数的使用示例
取消回复

发表评论

亲,头像对么?

84 + 87 =

提交中,请稍候……


木有头像就木JJ啦!还木有头像吗?点这里申请属于你的个性Gravatar头像吧!


    站点统计
    • 运行时间: 20254 天
    • 日志总数: 365 篇
    • 评论数量: 7238 条
    • 微语数量: 6 条
    • 附件总量: 388 件
  • 逝出的青春

  • 打赏"绿色风"



      扫码关注本站公众号 可搜本站内容

  • Autoit V3 脚本交流群

      常驻群1:905774875
      常驻群2:40672266


  • 链接

    • AU3中文论坛
    • Excel资料库
    • 完美者博客
    • 顺网小哥'S Blog
    • 猛牛哥的博客
    • 网吧系统下载
  • 分类

    • 流●年(66)
    • 笔●记(0)
    • 脚●本(0)
    • 作品(21)
    • 学习随记(51)
    • 源码示例(68)
    • UDF(收集)(26)
    • 工作室UDF(30)
    • 工具●教程(62)
    • 教程之GDI(24)
Copyright © 2013 绿色风's Blog. Powered by emlog. Theme by 射雕天龙. 鄂ICP备2021011689号-1 鄂公网安备42102302000078号 sitemap