VB6用API实现繁体简体转换
2012-01-17 00:25
387 查看
由于正好需要一个繁体转简体的事情,弄这个函数将就用一下了。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 Long
Function ConvertChineseSimplifiedOrTraditional(ByVal strSrc As String, ByVal bSimplified As Boolean) As String
Dim lngSrcLen As Long
Dim strBuffer As String
lngSrcLen = lstrlen(strSrc)
If lngSrcLen = 0 Then Exit Function
strBuffer = Space(lngSrcLen)
If bSimplified Then '转换为简体
LCMapString &H804, &H2000000, strSrc, lngSrcLen, strBuffer, lngSrcLen
Else
LCMapString &H804, &H4000000, strSrc, lngSrcLen, strBuffer, lngSrcLen
End If
ConvertChineseSimplifiedOrTraditional = strBuffer
End Function
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 Long
Function ConvertChineseSimplifiedOrTraditional(ByVal strSrc As String, ByVal bSimplified As Boolean) As String
Dim lngSrcLen As Long
Dim strBuffer As String
lngSrcLen = lstrlen(strSrc)
If lngSrcLen = 0 Then Exit Function
strBuffer = Space(lngSrcLen)
If bSimplified Then '转换为简体
LCMapString &H804, &H2000000, strSrc, lngSrcLen, strBuffer, lngSrcLen
Else
LCMapString &H804, &H4000000, strSrc, lngSrcLen, strBuffer, lngSrcLen
End If
ConvertChineseSimplifiedOrTraditional = strBuffer
End Function
相关文章推荐
- 用API实现繁体简体的转换(收藏)
- Android中文简体繁体互相转换的实现(繁简互转)
- 繁体与简体的转换(C++实现)
- javascript实现繁体简体转换
- 使用SAS实现对表中字段的简体和繁体的转换
- 字体转换接口实现简体、繁体、火星文之间的转换
- C#实现简体中文和繁体中文的转换
- 基于JavaScript实现快速转换文本语言(繁体中文和简体中文)
- 简体-繁体内码转换API
- Asp.net 如何实现简体到繁体的转换
- 实现一个网站简体中文和繁体中文的转换
- js 实现繁体和简体之间的转换
- javascript实现简体与繁体的转换(可下载)
- 在英文版的Office 2007中实现 中文 繁体和简体的相互转换
- PHP 实现中文简体转换繁体程序
- python实现中文字符繁体和简体中文转换
- 利用客户端js实现汉字简体繁体转换
- javascript实现简体与繁体的转换
- python实现中文字符繁体和简体中文转换
- 基于JavaScript实现快速转换文本语言(繁体中文和简体中文)