求助各位大佬

风过天涯

有没有什么方法判断字符串中有没有任一标点符号的，全角半角不分区分，只要判断有没有标点符号

小花鹿

instr 或者 like                                                                                                              

ykcbf1100

没有附件，就发个图吧。

标点符号字符集要自己根据需要进行补充修改。

ykcbf1100

没有调试，自己测试一下吧，仅供参考。。。

1. Function HasPunctuation(ByVal str As String) As Boolean
   
2.     Dim punctuations As String
   
3.     Dim i As Long
   
4.     ' 定义标点符号字符集，这个你自己根据需要进行修改
   
5.     punctuations = ".,;:?!-~`'""()[]{}<>/\,。；：？！（）【】｛｝"
   
6.     For i = 1 To Len(str)
   
7.         If InStr(punctuations, Mid(str, i, 1)) > 0 Then
   
8.             HasPunctuation = True
   
9.             Exit Function
   
10.         End If
    
11.     Next i
    
12.     HasPunctuation = False
    
13. End Function
    
14. 
    
15. Sub Test()
    
16.     Dim myString As String
    
17.     Dim result As Boolean
    
18.     myString = "半场结束时，湖人领先掘金8分。"
    
19.     result = HasPunctuation(myString)
    
20.     If result Then
    
21.         MsgBox "字符串中包含标点符号。"
    
22.     Else
    
23.         MsgBox "字符串中不包含标点符号。"
    
24.     End If
    
25. End Sub
    

复制代码

风过天涯

小花鹿 发表于 2024-3-3 19:41
instr 或者 like                                                                                      ...

大佬我是说不特定某一个字符，like任一标点符号或者instr任一标点符号中的一个就为TRUE怎么解决

fzxba

风过天涯

ykcbf1100 发表于 2024-3-3 19:55
没有调试，自己测试一下吧，仅供参考。。。

草爷自己添加符号难免还是有疏漏的，有没有什么方法描述成不是汉字，数字及大小写字母的吗

ykcbf1100

风过天涯 发表于 2024-3-3 20:03
草爷自己添加符号难免还是有疏漏的，有没有什么方法描述成不是汉字，数字及大小写字母的吗

除了这几个，还有别的也不是标点符号的。
你问的太笼统了。

风过天涯

ykcbf1100 发表于 2024-3-3 20:11
除了这几个，还有别的也不是标点符号的。
你问的太笼统了。

如果有其他的也当标点处理，抱歉啊，因为我也不知道我要处理的数据可能会有什么奇奇怪怪的情况

65861954

风过天涯 发表于 2024-3-3 20:03
草爷自己添加符号难免还是有疏漏的，有没有什么方法描述成不是汉字，数字及大小写字母的吗

正则表达式[^一-龟\w+]