字符串示例：ace2iit、ace2iit、、ace2iit、
去重复后为：ace2iit、

[此贴子已经被作者于2023-2-19 18:28编辑过]

把字符串作为dictionary的key名，然后去重。这个百度一下，代码一大堆。

收到的鲜花

• yuma 于 2023-02-20 18:47 送鲜花  1朵  

感谢，已解决。

咋解决的大佬,给个事例看看

VBS版的，稍调试就是VB6版的。

TestStr = "abcd、3、、abcd、"
Result = ""
For i = 1 To Len(TestStr)
  If InStr(1, Result, Mid(TestStr, i, 1), 1) > 0 Then
  TestStr = Replace(TestStr, Mid(TestStr, i, 1), "")
  'MsgBox TestStr
  Else
   Result = Result + Mid(TestStr, i, 1)
  End If
Next
MsgBox Result

MyTest = ""
For k = 1 To Len(Result)
  resk = Mid(Result, k, 1)
  Value = 0
  For t = 1 To Len(TestStr)
     Rest = Mid(TestStr, t, 1)
     If resk = Rest Then
       Value = Value + 1
     End If
  Next
  MyTest = MyTest & "字符串为" & resk & " 次数为：" & Value & vbCrLf
Next
MsgBox MyTest

数组+字典 如何实现？