主题：全角“。”转换成半角出现的问题

  特殊处理一下

'''
Dim s As String = "。123１２５９"
Dim c() As Char = s.ToCharArray
For i As Integer = 0 To c.Length - 1
    'msgbox(Ascw(c(i)))
    If c(i) = ChrW(12288) Then
        c(i) = ChrW(32)
    Else If c(i) = Chrw(12290) Then
        c(i) = "."
    Else If c(i) > ChrW(65280) AndAlso c(i) < ChrW(65375)
        c(i) = ChrW(AscW(c(i)) - 65248)
    End If
Next
s = new String(c)

msgbox(s)