'專門處理(lǐ)連續重複字符隻保留一個(gè)的(de)函數'chgStr原字符串(如"888abcabcabc666")'restr需要替換的(de)字符(如"abc")Function preplace(chgStr, restr)preplace = chgStrDo While InStr(preplace, restr & restr) > 0preplace= Replace(preplace, restr & restr, restr)Loopresponse.write preplaceEnd Function