Foxtable(狐表)用户栏目专家坐堂 → [求助]如何从一组字符串数组中获取不重复的值,并排除空值


  共有9293人关注过本帖树形打印复制链接

主题:[求助]如何从一组字符串数组中获取不重复的值,并排除空值

帅哥哟,离线,有人找我吗?
nblwar
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:977 积分:6806 威望:0 精华:1 注册:2012/8/7 22:03:00
[求助]如何从一组字符串数组中获取不重复的值,并排除空值  发帖心情 Post By:2012/12/16 17:47:00 [只看该作者]

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

{"A","A","B","","C"}

 

 

[此贴子已经被作者于2012-12-16 17:52:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
sunsenfeng
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2012/12/16 17:56:00 [只看该作者]

这个用字典解决

 


 回到顶部
帅哥哟,离线,有人找我吗?
nblwar
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:977 积分:6806 威望:0 精华:1 注册:2012/8/7 22:03:00
  发帖心情 Post By:2012/12/16 17:57:00 [只看该作者]

谢谢提醒


 回到顶部
帅哥哟,离线,有人找我吗?
sunsenfeng
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:599 积分:4188 威望:0 精华:0 注册:2011/12/21 11:25:00
  发帖心情 Post By:2012/12/16 18:13:00 [只看该作者]

连成字符串用string.join()

 


 回到顶部