| 标题 | ASP字数计算函数 |
| 分类 | 范文、应用文-IT技术专栏-网络编程 |
| 范文 | <% '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 %> |
| 随便看 |
|
客官网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。