VS2005出來後,在全角/半角轉換時存在BUG,以下是使用已久的全角/半角轉換函數:
轉換成全角字符:
Public Function ToSBC()Function ToSBC(ByVal input As String) As String
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 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
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