【实用代码】VB.NET中转换全半角字符的函数

Public Function ToSBC()Function ToSBC(ByVal input As String) As String '转全角
        Dim c As Char() = input.ToCharArray
        Dim i As Integer = 0
        While i < c.Length
            If c(i) = ChrW(32) Then
                c(i) = ChrW(12288)
            ElseIf AscW(c(i)) < 127 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 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