多谢关注,上面的问题已经解决了...
贴出来共享,THS
Dim str1 As String = "a;d;f;s;f;a"
Dim strs() = str1.Split(";")
Dim str2 As String
For i = 0 To UBound(strs)
For j = 0 To i - 1
If strs(i) = strs(j) Then
strs(i) = ""
strs(j) = ""
End If
Next
Next
For i = 0 To UBound(strs)
If strs(i) <> "" Then
str2 = str2 + " " + strs(i)
End If
Next
str2 = str2.Replace(" ", ";")