Question

asp 替换连续重复字符串

例如：123456abcabcabcabcabc123456
最终输出：123456abc123456
就是把连续重复字符串“abc”只保留一个，其它不变。

我原来写了一个函数只能处理单字符重复的替换，不能处理多字符
Function preplace(chgStr,restr,pstr)
‘chgStr原字符串
’restr需要被替换的字符
‘pstr替换之后的字符
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = restr&"+"
preplace = re.Replace(chgStr, pstr)
Set re = Nothing
End Function

Answer 1

Function preplace1(chgStr, restr)
'专门处理连续重复字符只保留一个的函数
'chgStr原字符串（如"123456abcabcabcabcabc123456"）
'restr需要替换的字符（如"abc"）
preplace1 = chgStr
Do While InStr(preplace1, restr & restr) > 0
preplace1 = Replace(preplace1, restr & restr, restr)
Loop
End Function