标题 | 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 %> |
随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板,是学习及工作的有利工具。