API实现快速转换简体字与繁体字

繁体字和简体字之间进行转换，是编程中经常遇到的，虽然有很多在线工具可以实现转换，但是代码中如何能快速实现呢？其实利用API可以快速实现繁体字与简体字直接的转换，函数代码如下。

Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, _
ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lStrLen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As LongFunction Jian_Fan_Conv(ByVal strString As String, Optional ByVal iMode As Integer = 0) As StringDim lStrLength As LongDim strNew As StringConst J2F_MAPFLAG = &H4000000Const F2J_MAPFLAG = &H2000000Jian_Fan_Conv = ""lStrLength = lStrLen(strString)strNew = Space(lStrLength)If iMode = 0 ThenLCMapString &H804, J2F_MAPFLAG, strString, lStrLength, strNew, lStrLengthElseLCMapString &H804, F2J_MAPFLAG, strString, lStrLength, strNew, lStrLengthEnd IfJian_Fan_Conv = strNew
End Function

代码是不是很简单，就是API函数LCMapString实现转换。

参数dwMapFlags用于控制转换方式，是简体转为繁体，还是繁体转为简体。
参数iMode为转换模式，缺省值为0，实现简体转为繁体，如果为为0值，则繁体转为简体。
注意：用于保存转换结果的字符串，需要先同空格填充为相应长度的字符串，否则API返回结果为空字符串。

使用下面的代码测试一下效果：

Sub Demo()Debug.Print "简体转繁体结果：" & Jian_Fan_Conv("唧唧复唧唧，木兰当户织")Debug.Print "繁体转简体结果：" & Jian_Fan_Conv("唧唧復唧唧，木蘭當戶織", 1)
End Sub

立即窗口中的结果如下：

简体转繁体结果：唧唧復唧唧，木蘭當戶織
繁体转简体结果：唧唧复唧唧，木兰当户织

API实现快速转换简体字与繁体字相关推荐

Java实现简体字向繁体字的转换
案例描述:编程实现简体字向繁体字之间的转换实现思路一:采用字符串的方式实现 package com.bzu.converter; import java.util.Scanner; /** * 思路 ...
软件开发基于JavaScript实现快速转换文本语言（繁体中文和简体中文）_javascript技巧
软件开发基于JavaScript实现快速转换文本语言(繁体中文和简体中文)_javascript技巧一般商业网站都有一个语言的需求,就是为了照顾使用正体中文的国人,会特地提供一个切换到正体中文的选项 ...
软件开发基于JavaScript实现快速转换文本语言
软件开发基于JavaScript实现快速转换文本语言一般商业网站都有一个语言的需求,就是为了照顾使用正体中文的国人,会特地提供一个切换到正体中文的选项(或曰"繁体中文").传统做 ...
html段落简字前带繁字,简体字转繁体字有什么方法？Word怎么繁体转简体？
本教程分享有关简转繁图文教程内容,希望对您有用在日常工作或出行台湾.香港等地,经常需要使用一些繁体字的文档,繁体字虽然看得懂,若是文字多了,就会看着很累,简体字转繁体字有什么方法吗?其实,我们在Wo ...
Java使用程序ZHConverter把工程内所有文件的简体字转换为繁体字
一:需求分析 (1)由于公司项目在开发之初没有适配繁体语言,大概是没有考虑到有朝一日项目可以卖到台湾.香港.澳门吧. (2)但是公司的项目确实卖到澳门了,于是客户要求把项目中的所有字体修改为繁体字,这 ...
python转换八进制用取余数方法_python 二、八、十六进制之间的快速转换
一.进制转换 1.2 十进制转二进制 bin(18)--> '0b10010' 去掉0b就是10010 即为十进制18转二进制是10010 十进制转八进制oct(18) --> ...
asp.net 简体字转繁体字的类库
这东西虽然简单,但也不失为经典的类库,个人而言,就非常喜欢这个类库. 用文字记录下来吧,留个记念吧在vs中,有一个经典的Microsoft.VisualBasic.dll的VB类库,根据官方的描述: ...
spyder怎么显示文件目录_MKV怎么转换为MP4？用它，快速转换！
原标题:MKV怎么转换为MP4?用它,快速转换! 在我们日常娱乐和日常工作中,我们有时会遇见将MKV视频文件转换为MP4视频文件的问题. 虽然MKV格式的视频文件清晰度比MP4视频文件更高,而且很多视 ...
16进制ff转化为二进制_3秒钟快速转换十六进制为二进制
这里介绍下如何快速将十六进制转换为二进制: 举例,ipv6地址:FE80::1 先将FE80拆分为FE和80,我们知道F是十进制的15,E为14,我们知道二进制的八位组,全为1时(1111 1111) ...
svg与png/jpg快速转换
svg与png/jpg快速转换以Element官网logo图片格式.svg为例: 快速转换方法: 将.svg格式的图片,下载保存到本地: 本地双击该图片,任意浏览器打开查看: 对准图片,单击鼠标右键 ...

API实现快速转换简体字与繁体字

API实现快速转换简体字与繁体字相关推荐

最新文章

热门文章