全角“。”转换成半角出现的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 全角“。”转换成半角出现的问题

共有2857人关注过本帖树形打印复制链接主题：全角“。”转换成半角出现的问题

zhchling

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：386 积分：3904 威望：0 精华：0 注册：2012/2/9 20:09:00

全角“。”转换成半角出现的问题 发帖心情

Post By：2014/12/17 14:25:00 [只看该作者]

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

用这个函数转换全角字符，StrToNarrow ，但是发现句号被转换成问号了。

怎么回事？怎么能不转换成问号？
图片点击可在新窗口打开查看

此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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)

下一主题 >> << 上一主题

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