ASP字?jǐn)?shù)計(jì)算函數(shù)
發(fā)表時(shí)間：2023-08-13 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]<%'ASP字?jǐn)?shù)計(jì)算函數(shù)Function WordCount(strInput) Dim strTemp strTemp = Replace(strInput, vbTab...
<%
'ASP字?jǐn)?shù)計(jì)算函數(shù)
Function WordCount(strInput)
Dim strTemp
strTemp = Replace(strInput, vbTab, " ")
strTemp = Replace(strTemp, vbCr, " ")
strTemp = Replace(strTemp, vbLf, " ")
' 刪除字首字尾空格
strTemp = Trim(strTemp)
' 替換為一個(gè)空格
Do While InStr(1, strTemp, " ", 1) <> 0
strTemp = Replace(strTemp, " ", " ")
Loop
WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
End Function
%>
