这个函数可能有问题,随便拿几个全角标点符号测试了一下,“—”和“·”判断失误,其他的暂未仔细测试。
以下是引用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