以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  排除字符串中的重复名字。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133919)
--  作者：夏许多雪
--  发布时间：2019/4/23 15:45:00
--  排除字符串中的重复名字。
从表中提取某一列的不同值后，通过集合、数组后再转换成一 个字符串，如这一列中有“李三，黄刚" 和”黄刚,李三"两个多值数据，转换成字符串后会形成“李三，黄刚，黄刚,李三”，有什么简单的方法能排除字符串中的相同值？
--  作者：有点甜
--  发布时间：2019/4/23 16:18:00
--  

参考

 

Dim dt As DataTable = DataTables("表A")
Dim ls As new List(Of String)
For Each dr As DataRow In dt.Select("")
    For Each s As String In dr("第一列").split(",")
        If ls.Contains(s) = False Then
            ls.add(s)
        End If
    Next
Next
msgbox(String.join(",", ls.ToArray))
--  作者：夏许多雪
--  发布时间：2019/4/24 18:28:00
--  
可以，谢谢。