'特地处置持续反复字符只保留一个的函数'chgStr原字符串（如"888abcabcabc666"）'restr须要替代的字符（如"abc"）Function preplace(chgStr, restr)preplace = chgStrDo While

'特地处置持续反复字符只保留一个的函数'chgStr原字符串（如"888abcabcabc666"）'restr须要替代的字符（如"abc"）Function preplace(chgStr, restr)preplace = chgStrDo While InStr(preplace, restr & restr) > 0preplace= WordStr(preplace, restr & restr, restr)Loopresponse.write preplaceEnd Function

上一篇：在上海做一个企业网站几多钱？ 下一篇：甚么是微信小法式？