-
'ASP 字数计算函数
ฟังก์ชัน WordCount(strInput)
Dim strTemp
strTemp = แทนที่ (strInput, vbTab, " ")
strTemp = แทนที่ (strTemp, vbCr, " ")
strTemp = แทนที่(strTemp, vbLf, " ")
'
strTemp = Trim(strTemp)
'
ทำในขณะที่ InStr(1, strTemp, " ", 1) <> 0
strTemp = แทนที่ (strTemp, " ", " ")
วนซ้ำ
WordCount = UBound(แยก(strTemp, " ", -1, 1)) +1
ฟังก์ชันสิ้นสุด
-