[转]用VB实现简体繁体互换
2008-04-21 21:50
183 查看
Option Explicit
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 aa$, ii&
Private Sub Form_Load()
Command1.Caption = "简体转繁体"
Open "c:/cmd.txt" For Input As #1
Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
End Sub
Private Sub Command1_Click()
ii = lstrlen(Text1.Text)
aa = Space(ii)
If Command1.Caption = "简体转繁体" Then
LCMapString &H804, &H4000000, Text1.Text, ii, aa, ii
Else
LCMapString &H804, &H2000000, Text1.Text, ii, aa, ii
End If
Text1.Text = aa
Command1.Caption = IIf(Command1.Caption = "繁体转简体", "简体转繁体", "繁体转简体")
End Sub
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 aa$, ii&
Private Sub Form_Load()
Command1.Caption = "简体转繁体"
Open "c:/cmd.txt" For Input As #1
Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
End Sub
Private Sub Command1_Click()
ii = lstrlen(Text1.Text)
aa = Space(ii)
If Command1.Caption = "简体转繁体" Then
LCMapString &H804, &H4000000, Text1.Text, ii, aa, ii
Else
LCMapString &H804, &H2000000, Text1.Text, ii, aa, ii
End If
Text1.Text = aa
Command1.Caption = IIf(Command1.Caption = "繁体转简体", "简体转繁体", "繁体转简体")
End Sub
相关文章推荐
- JS调用VBA实现简体和繁体的互换
- Vb 实现简体转繁体
- 简体中文转繁体的python简单实现
- VB.net c# 简体繁体之间的转换
- VB.net下有个函数strconv可以进行简体繁体转换(转载)
- 利用客户端js实现汉字简体繁体转换
- 利用js实现简体中文转繁体
- 先数字后字符的排序 PATINDEX 并且要支持简体 繁体 最好直接在mssql里实现
- js 实现繁体和简体之间的转换
- 字体转换接口实现简体、繁体、火星文之间的转换
- 中文繁体简体互换试验
- 网站如何快速实现繁体和简体间的切换
- 使用PHP实现繁体与简体互转
- 用API实现繁体简体的转换(收藏)
- js实现网页中简体与繁体互转
- PHP 实现中文简体转换繁体程序
- C#自定义繁体和简体字库实现中文繁体和简体之间转换的方法
- 使用SAS实现对表中字段的简体和繁体的转换
- javascript实现简体与繁体的转换(可下载)
- javascript实现繁体简体转换