求：如何判断中、英文标点符号？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求：如何判断中、英文标点符号？

标题：求：如何判断中、英文标点符号？

只看楼主

cssnet

等　级：业余侠客
威　望：4
帖　子：317
专家分：203
注　册：2013-10-4
结帖率：100%

楼主

问题点数：0 回复次数：17

求：如何判断中、英文标点符号？

比方说，下边这一行字符串：

[这是中文标点“、”，That is 英文标点“;”，那么这个"This's a book."呢？]

混杂了中、英文的字符，扫描这一行字符串，如何判断第N个字符，是否标点符号？

搜索更多相关主题的帖子: 符号　字符串　字符　判断　英文　

2022-11-09 12:35

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 2 楼

得分:0

处理字符串的函数名尾带“C”的可以吧

2022-11-09 14:32

csyx

等　级：版主
威　望：29
帖　子：484
专家分：1827
注　册：2018-3-13

第 3 楼

得分:0

程序代码：

cc = [这是中文标点“、”，That is 英文标点“;”，那么这个"This's a book."呢？]
For ii = 1 to Lenc(cc)
    c1 = Substrc(cc, ii, 1)
    c2 = Strconv(c1, 1)
    Do case
    Case Empty(c1)
        *-- 空格, TAB, 回车, 换行, 行进 字符
    Case c1 == c2
        If Strconv(c2, 2) == c1
            *--中文字符'
        Else
            ? ii, '全角符号', c1
        EndIf
    Otherwise
        If Between(c1, 'A','Z') or Between(c1, 'a','z')
            *-- 英文字符
        Else
            ? ii, '半角符号', c1
        EndIf
    EndCase
EndFor

[此贴子已经被作者于2022-11-9 15:16编辑过]

2022-11-09 15:09

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 4 楼

得分:0

程序代码：

ccc = [这是中文标点“、”，That is 英文标点“;”，那么这个"This's a book."呢？]
FOR i=1 TO LENC(ccc)
    cc = SUBSTRC(ccc,i,1)
    ? cc,IIF(LEN(cc)==1,"单","双")
ENDFOR

2022-11-09 15:24

cssnet

等　级：业余侠客
威　望：4
帖　子：317
专家分：203
注　册：2013-10-4

第 5 楼

得分:0

厉害啦！真想不到Strconv()还有这妙用！

以下是引用csyx在2022-11-9 15:09:05的发言：

cc = [这是中文标点“、”，That is 英文标点“;”，那么这个"This's a book."呢？]
For ii = 1 to Lenc(cc)
    c1 = Substrc(cc, ii, 1)
    c2 = Strconv(c1, 1)
    Do case
    Case Empty(c1)
        *-- 空格, TAB, 回车, 换行, 行进字符
    Case c1 == c2
        If Strconv(c2, 2) == c1
            *--中文字符'
        Else
            ? ii, '全角符号', c1
        EndIf
    Otherwise
        If Between(c1, 'A','Z') or Between(c1, 'a','z')
            *-- 英文字符
        Else
            ? ii, '半角符号', c1
        EndIf
    EndCase
EndFor

2022-11-09 16:58

schtg

来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：2012-2-29

第 6 楼

得分:0

学习啦，谢谢！

2022-11-10 06:47

cssnet

等　级：业余侠客
威　望：4
帖　子：317
专家分：203
注　册：2013-10-4

第 7 楼

得分:0

这个函数可能有问题，随便拿几个全角标点符号测试了一下，“—”和“·”判断失误，其他的暂未仔细测试。

以下是引用csyx在2022-11-9 15:09:05的发言：

function isSymbol(cc)
*cc = [这是中文标点“——”和“·”,“、”，That is 英文标点“;”，那么这个"This's a book."呢？]
For ii = 1 to Lenc(cc)
    c1 = Substrc(cc, ii, 1)
    c2 = Strconv(c1, 1)
    Do case
    Case Empty(c1)
        *-- 空格, TAB, 回车, 换行, 行进字符
    return .t.
    Case c1 == c2
        If Strconv(c2, 2) == c1
            *--中文字符'
        return .f.
        Else
            ? ii, '全角符号', c1
        return .t.
        EndIf
    Otherwise
        If Between(c1, 'A','Z') or Between(c1, 'a','z')
            *-- 英文字符
        return .f.
        Else
            ? ii, '半角符号', c1
        return .t.
        EndIf
    EndCase
EndFor

2022-12-17 19:08

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 8 楼

得分:0

通常可打印的符号没几个，用个码表查好了。

2022-12-17 20:26

cssnet

等　级：业余侠客
威　望：4
帖　子：317
专家分：203
注　册：2013-10-4

第 9 楼

得分:0

以下是引用吹水佬在2022-12-17 20:26:20的发言：
通常可打印的符号没几个，用个码表查好了。