陈守中的子女照片曝光:很简单实用的繁体与简体互相转换的代码
来源:百度文库 编辑:九乡新闻网 时间:2024/04/25 09:16:02
很简单实用的繁体与简体互相转换的代码 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
Dim STf As String '繁体字符串
Dim STj As String ' 简体字符串
Dim STlen As Long ' 待转换字串长度Sub Test1() 'Gb码简体转繁体
STj = "中华人民共和国"
STlen = lstrlen(STj)
STf = Space(STlen)
LCMapString &H804, &H4000000, STj, STlen, STf, STlen
Debug.Print STf
End SubSub Test2() 'Gb码繁体转简体
STf = "中華人民共和國"
STlen = lstrlen(STf)
STj = Space(STlen)
LCMapString &H804, &H2000000, STf, STlen, STj, STlen
Debug.Print STj
End Sub
Sub Test3() '国标繁体转港台繁体 Te = "君不見黃河之水天上來,奔流到海不復回。"
ST = StrConv(Te, vbFromUnicode)
ST = StrConv(ST, vbUnicode, &H804)
ST = StrConv(ST, vbFromUnicode, &H404)
Te = StrConv(ST, vbUnicode)
Debug.Print Te
End SubSub Test4() '港台繁体转国标繁体
Te = "?ぃǎ独猠ぇ?ぱ?ㄓ?゜瑈??ぃ確??"
ST = StrConv(Te, vbFromUnicode)
ST = StrConv(ST, vbUnicode, &H404)
ST = StrConv(ST, vbFromUnicode, &H804)
Te = StrConv(ST, vbUnicode)
Debug.Print Te
End Sub
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
Dim STf As String '繁体字符串
Dim STj As String ' 简体字符串
Dim STlen As Long ' 待转换字串长度Sub Test1() 'Gb码简体转繁体
STj = "中华人民共和国"
STlen = lstrlen(STj)
STf = Space(STlen)
LCMapString &H804, &H4000000, STj, STlen, STf, STlen
Debug.Print STf
End SubSub Test2() 'Gb码繁体转简体
STf = "中華人民共和國"
STlen = lstrlen(STf)
STj = Space(STlen)
LCMapString &H804, &H2000000, STf, STlen, STj, STlen
Debug.Print STj
End Sub
Sub Test3() '国标繁体转港台繁体 Te = "君不見黃河之水天上來,奔流到海不復回。"
ST = StrConv(Te, vbFromUnicode)
ST = StrConv(ST, vbUnicode, &H804)
ST = StrConv(ST, vbFromUnicode, &H404)
Te = StrConv(ST, vbUnicode)
Debug.Print Te
End SubSub Test4() '港台繁体转国标繁体
Te = "?ぃǎ独猠ぇ?ぱ?ㄓ?゜瑈??ぃ確??"
ST = StrConv(Te, vbFromUnicode)
ST = StrConv(ST, vbUnicode, &H404)
ST = StrConv(ST, vbFromUnicode, &H804)
Te = StrConv(ST, vbUnicode)
Debug.Print Te
End Sub
很简单实用的繁体与简体互相转换的代码
简体转繁体书法
复合句与简单句的转换技巧---
复合句与简单句的转换技巧--
【复合句与简单句的转换技巧】
[复合句与简单句的转换技巧]
复合句与简单句的转换技巧 ---
复合句与简单句的转换技巧!
转换复合句与简单句的技巧
复合句与简单句的转换技巧
复合句与简单句的转换技巧 -
日语动词的敬体与简体
Myeclipse的web工程和Eclipse互相转换1
复合句与简单句的转换技巧op
复合句与简单句的转换技巧OO
复合句与简单句的转换技巧1
中国就是一个互相歧视与互相仇恨的社会
姓名该看简体还是繁体
非常实用的代码
实用的VB代码
实用神奇的代码
实用的神奇代码
宽字符转换的相关代码
从宽字符转换到UTF8的代码