以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何从一组字符串数组中获取不重复的值，并排除空值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26881)
--  作者：nblwar
--  发布时间：2012/12/16 17:47:00
--  [求助]如何从一组字符串数组中获取不重复的值，并排除空值

如何从一组字符串数组中获取不重复的值，并排除空值，将其连接成一串字符串

｛"A","A","B","","C"｝

 

 

[此贴子已经被作者于2012-12-16 17:52:19编辑过]
--  作者：sunsenfeng
--  发布时间：2012/12/16 17:56:00
--  

这个用字典解决

 
--  作者：nblwar
--  发布时间：2012/12/16 17:57:00
--  

谢谢提醒
--  作者：sunsenfeng
--  发布时间：2012/12/16 18:12:00
--  

Dim str() As String = {"A","A","B","","C"}

Dim i As Integer
Dim zd As New Dictionary(Of Integer, String)
For i = 0 To str.length-1
If zd.ContainsValue(str(i)) = False And str(i) <> "" Then \'是否存在值
    zd.add(i,str(i))
End If

Next

For Each v As String In zd.Values \'显示所有值
    Output.Show(v)
Next
--  作者：sunsenfeng
--  发布时间：2012/12/16 18:13:00
--  

连成字符串用string.join()