智能化检查输入是否都是垃圾字符

最新推荐文章于 2025-09-24 13:36:41 发布

原创最新推荐文章于 2025-09-24 13:36:41 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function

博客介绍了IsInput函数，该函数可智能化检查输入是否都是垃圾字符。函数接收检查字符、检索字符长度和出现次数三个参数，返回True或False。通过遍历字符，对比相邻字符段，统计相同字符段出现次数，达到指定次数则返回True。

'函数名： IsInput
'参数： ---str检查的字符 ---stepNum检索的字符长度 ---count出现的次数
返回值： True or False
'功能：智能化检查输入是否都是垃圾字符

Function IsInput(str,stepNum,Count)
Dim i
Dim iCount
iCount=0
IsInput=False
For i=2 to Len(str)-stepNum
If Mid(str,i-1,stepNum)=Mid(str,i,stepNum) Then
 iCount=iCount+1
 response.Write(iCount&" ")
End If
If iCount=Count Then
 IsInput=True
 Exit Function
End If
Next
End Function