主题：[求助]如何得到不重复序列

有一个字符串1.2.3，1.2.4，1.7，2.8.1……，如何得到1，1.2，1.2.3，1.2.4，1.7，2，2.8，2.8.1这样的包含它及它的上级的不重复的序到？

Tables("表A").Filter = "[第一列] like '1.2%'"

 去重复？参考代码

 

Dim str As String = "2.4,1.7,1,1.2,1.2.3,1,1.2,1.2.4,1.7,2,2.8,2.8.1,2,2.8,2.8.1"
Dim ls As New List(Of String)
For Each s As String In str.Split(",")
    If ls.Contains(s) = False Then
        ls.Add(s)
    End If
Next
Dim ary As array = ls.ToArray
Array.Sort(ary)
output.show(String.Join(",", ary))

甜兄年过得好啊。我的意思没表达到位，要将1.2.4分解成1，1.2，1.2.4，将1.2.3分解成1，1.2，1.2.3，合并后再去重

Dim str As String = "2.4,1.7,1,1.2,1.2.3,1,1.2,1.2.4,1.7,2,2.8,2.8.1,2,2.8,2.8.1"
Dim ls As New List(Of String)
For Each ss As String In str.Split(",")
    Dim temp As String = ""
    For Each s As String In ss.Split(".")
        temp = iif(temp = "", s, temp & "." & s)
        If ls.Contains(temp) = False Then
            ls.Add(temp)
        End If
    Next
Next
Dim ary As array = ls.ToArray
Array.Sort(ary)
output.show(String.Join(",", ary))