以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  全角“。”转换成半角出现的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61694)
--  作者：zhchling
--  发布时间：2014/12/17 14:25:00
--  全角“。”转换成半角出现的问题
全角“。”转换成半角出现的问题。
用这个函数转换全角字符，StrToNarrow   ，但是发现句号被转换成问号了。

怎么回事？ 怎么能不转换成问号？
图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2014/12/17 14:48:00
--  

  特殊处理一下

 

\'\'\'
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)