求删除txt文本内容中第一个相同的字符的按键精灵脚本，如14525655，只删除第3个5？

Question

如题所述

Answer 1

a = "14525655"
For i = 1 To len(a)
字符=Mid(a,i,1)
位置 = InStr(i + 1, a, 字符, 1)
TracePrint 位置
If 位置 > 0 Then
剩余字符 = mid(a, 1, i - 1) + mid(a, i + 1, len(a))
Exit For
End If
Next
TracePrint 剩余字符

Answer 2

a = "1235455"
删除 1,a
sub 删除(i,a)
if instr(a,mid(a,i,1))>0 then
a =mid(a,1,i-1)&mid(a,i+1,len(a)-i)
else
删除 i+1,a
end if
end sub