VBA 的全角半角转换解决方案(中文系统有效)
2012-05-03 21:01
686 查看
‘全角转半角
Function toBanJiao(str As String) As String
Dim chA As String
Dim i1 As Long
Dim iAsc As Long
For i1 = 1 To Len(str)
chA = Mid(str, i1, 1)
iAsc = CLng(Asc(chA)) + 23680
If iAsc < 127 And iAsc > 31 Then
toBanJiao = toBanJiao & Chr(iAsc)
Else
toBanJiao = toBanJiao & chA
End If
Next
End Function
’半角转全角
Function toQuanJiao(str As String) As String
Dim chA As String
Dim i1 As Long
Dim iAsc As Long
For i1 = 1 To Len(str)
chA = Mid(str, i1, 1)
iAsc = Asc(chA)
If iAsc < 127 And iAsc > 31 Then
toQuanJiao = toQuanJiao & Chr(iAsc - 23680)
Else
toQuanJiao = toQuanJiao & chA
End If
Next
End Function
Function toBanJiao(str As String) As String
Dim chA As String
Dim i1 As Long
Dim iAsc As Long
For i1 = 1 To Len(str)
chA = Mid(str, i1, 1)
iAsc = CLng(Asc(chA)) + 23680
If iAsc < 127 And iAsc > 31 Then
toBanJiao = toBanJiao & Chr(iAsc)
Else
toBanJiao = toBanJiao & chA
End If
Next
End Function
’半角转全角
Function toQuanJiao(str As String) As String
Dim chA As String
Dim i1 As Long
Dim iAsc As Long
For i1 = 1 To Len(str)
chA = Mid(str, i1, 1)
iAsc = Asc(chA)
If iAsc < 127 And iAsc > 31 Then
toQuanJiao = toQuanJiao & Chr(iAsc - 23680)
Else
toQuanJiao = toQuanJiao & chA
End If
Next
End Function
相关文章推荐
- PHP中文全角字符/英文半角转换对照表
- java中文半角和全角的转换
- [VBA]字符转换代码:全角转半角,平假名转片假名,首字母大写
- NuGet:ToolGood.Words,可检测敏感字或者进行中文字的繁简转换及全角半角转换
- VS2005中文输入法自动转换为全角的两种解决方法
- 全角与半角之间的相互转换
- JavaScript 全角半角转换问题
- JAVA中如何处理中文的全角和半角问题- -
- 易语言全角与半角转换的使用讲解
- C#全角和半角转换
- 在EXCEL中将文本中的全角数字转换为半角数字
- 半角全角之间的转换
- java全角空格转换半角空格
- 将全角字符转换成半角的js方法
- UniCode 下CString 转 char*,利用WideCharToMultiByte进行转换,中文乱码的解决方案
- C#全角和半角转换
- php全角字符转换为半角函数
- C#全角和半角转换
- mes系统解决方案有效帮助mes实施
- c#全角半角转换