VBS去除指定的字符串中的重复项返回重复后的字符串

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+tempstr

end if
next
replaceComon=finalstr
end sub

.csharpcode, .csharpcode pre
{
font-size: small;
color: black;
font-family: consolas, "Courier New", courier, monospace;
background-color: #ffffff;
/*white-space: pre;*/
}
.csharpcode pre { margin: 0em; }
.csharpcode .rem { color: #008000; }
.csharpcode .kwrd { color: #0000ff; }
.csharpcode .str { color: #006080; }
.csharpcode .op { color: #0000c0; }
.csharpcode .preproc { color: #cc6633; }
.csharpcode .asp { background-color: #ffff00; }
.csharpcode .html { color: #800000; }
.csharpcode .attr { color: #ff0000; }
.csharpcode .alt
{
background-color: #f4f4f4;
width: 100%;
margin: 0em;
}
.csharpcode .lnum { color: #606060; }