首页 相关文章 ASP字数计算函数

ASP字数计算函数

<%
'ASP字数计算函数
Function WordCount(strInput)
Dim strTemp
strTemp = Replace(strInput, vbTab, " ")
strTemp = Replace(strTemp, vbCr, " ")
strTemp = Replace(strTemp, vbLf, " ")

' 删除字首字尾空格
strTemp = Trim(strTemp)

' 替换为一个空格
Do While InStr(1, strTemp, " ", 1) < 0
strTemp = Replace(strTemp, " ", " ")
Loop
WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
End Function
%

...[ 查看全文 ]

2016-01-29 标签:

ASP字数计算函数的相关文章

手机页面
收藏网站 回到头部