以下是引用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

以下是引用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 20:26:20的发言：
通常可打印的符号没几个，用个码表查好了。

以下是引用吹水佬在2022-12-17 23:02:16的发言：
如果是标准字库编码，字或符是有区位定义。

以下是引用吹水佬在2022-12-18 09:29:58的发言：

标准字库本身就有规范，直接查表就可以。
简单写个GB2312-80标准的