今日接到一桩反馈,说留言板垃圾信息特多,经过分析,这些垃圾信息全部来自国外,留言内容全部是英文广告。特设立 GetEngProportion 函数,用以判断英文在留言内容中的比例,如果比例达到一定值,就判定为垃圾信息。
'返回英文在字符串中所占的比例数[0-1]
'如果字符串长度为零,则返回 1
function GetEngProportion(str)
dim chrCnt '字符数量
chrCnt = Len(str)
if chrCnt <= 0 then
GetEngProportion = 1
exit function
end if
dim engCnt '英文字符数量
engCnt = 0
dim i
for i=1 to chrCnt
if Asc(Mid(str,i,1)) >= 0 then
engCnt = engCnt + 1
end if
next
GetEngProportion = engCnt /chrCnt
end function
相关阅读: