- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 提取不重复值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128519)
-- 发布时间：2018/12/9 15:06:00
-- 提取不重复值
用getvalues提取不重复值针对普通的单元格可以，但如果单元格里面已经有分行，似乎不行。我例子中想从第一列提取不重复的姓名，存在一个字符串里，如
此主题相关图片如下：123.jpg
实例如下，请问如何实现：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:提取不重复值.rar |
-- 发布时间：2018/12/9 15:45:00
--
参考代码
Dim t As DataTable = DataTables("表A")
Dim ls As new List(Of String)
For Each dr As DataRow In t.Select("第一列 is not null")
For Each s As String In dr.Lines("第一列")
If ls.contains(s) = False Then
ls.add(s)
End If
Next
Next
msgbox(String.Join("|", ls.ToArray))
-- 发布时间：2018/12/9 16:23:00
--
Dim lst As String
Dim Names As New List(Of String)
Lst =DataTables("表A").GetComboListString("第一列")
Dim c() As Char = {"|",vbcrlf}
For Each s1 As String In Lst.split(c)
If Names.Indexof(s1) = -1 Then
Names.Add(s1)
End If
Next
Lst = String.Join("|", Names.ToArray).Trim("|")
Output.Show(Lst)
-- 发布时间：2018/12/9 17:51:00
--
-- 发布时间：2018/12/9 18:20:00
--
谢谢！！