1、关键字长度限制过滤 修改为 连续的字符文本满足条件才算。中间有符号、空格、表情、控制字符等间隔的都不算

Yjpp36/service/StringHelper.vb

@@ -0,0 +1,9 @@
+Public Class StringHelper
+    ' 判断是否全字母数字（Unicode 支持）
+    Public Shared Function IsAllLetterOrDigit(input As String) As Boolean
+        For Each ch As Char In input
+            If Not Char.IsLetterOrDigit(ch) Then Return False
+        Next
+        Return True
+    End Function
+End Class