sub replaceComon(str)for i=1 to len(str)tempstr=mid(str,i,1)finalstr=""if instr(1,finalstr,tempstr,1)>0 then '查找到了重复的字符str=replace(str,tempstr,"")else '没有查找到重复的字符的时候就追加字符到新字符串中finalstr=finalstr+tempstrend ifnextreplaceComon=finalstrend sub
本文共 309 字，大约阅读时间需要 1 分钟。
sub replaceComon(str)for i=1 to len(str)tempstr=mid(str,i,1)finalstr=""if instr(1,finalstr,tempstr,1)>0 then '查找到了重复的字符str=replace(str,tempstr,"")else '没有查找到重复的字符的时候就追加字符到新字符串中finalstr=finalstr+tempstrend ifnextreplaceComon=finalstrend sub
转载于:https://www.cnblogs.com/alterhu/archive/2012/04/08/2437476.html