转全角半角(C#,VB.NET)
2005-09-27 16:27
323 查看
public string ToSBC(string input)
public string ToDBC(string input)
VB版本:
Public Function ToDBC()Function ToDBC(ByVal input As String) As String '转半角
Dim c As Char() = input.ToCharArray
Dim i As Integer = 0
While i < c.Length
If AscW(c(i)) = 12288 Then
c(i) = ChrW(32)
ElseIf AscW(c(i)) > 65280 AndAlso AscW(c(i)) < 65375 Then
c(i) = ChrW(AscW(c(i)) - 65248)
End If
System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
End While
Return New String(c)
End Function
public string ToDBC(string input)
VB版本:
Public Function ToDBC()Function ToDBC(ByVal input As String) As String '转半角
Dim c As Char() = input.ToCharArray
Dim i As Integer = 0
While i < c.Length
If AscW(c(i)) = 12288 Then
c(i) = ChrW(32)
ElseIf AscW(c(i)) > 65280 AndAlso AscW(c(i)) < 65375 Then
c(i) = ChrW(AscW(c(i)) - 65248)
End If
System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
End While
Return New String(c)
End Function
相关文章推荐
- C#中直接调用VB.NET的函数,兼论半角与全角、简繁体中文互相转化
- 转全角半角(C#,VB.NET)
- 【原创】全角、半角混合字符串截取方法(VB.NET版)
- vb.net 字符两端去除半角和全角空格
- 转全角半角(C#,VB.NET)
- VB.Net类型转换——全角半角间转换(StrConv)
- 转全角半角互相转换(C#,VB.NET)
- 转全角半角(C#,VB.NET)
- 转全角半角(C#,VB.NET)
- 文字列を全角/半角に変換するには?(VB.NET関数活用) ZZ
- C#中直接调用VB.NET的函数,兼论半角与全角、简繁体中文互相转化<收藏>
- VB.Net类型转换——全角半角间转换(StrConv)
- c#、VB.net中全角半角转换方法
- VB.NET 全角转半角
- 转 C#中直接调用VB.NET的函数,兼论半角与全角、简繁体中文互相转化
- [转]C#中直接调用VB.NET的函数,兼论半角与全角、简繁体中文互相转化
- 转全角半角(C#,VB.NET)
- 转全角半角(C#,VB.NET)
- VB.NET全角半角check
- C#中直接调用VB.NET的函数,兼论半角与全角、简繁体中文互相转化