Foxtable(狐表)用户栏目专家坐堂 → 字典的应用


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

主题:字典的应用

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


加好友 发短信
等级:幼狐 帖子:56 积分:531 威望:0 精华:0 注册:2019/7/16 14:29:00
字典的应用  发帖心情 Post By:2020/3/20 16:53:00 [只看该作者]

我构建了一个字典,现在要通过删除值的方式来删除字典里相应的键和值,但是Remove方法好像只能制定键,不能制定值,请问该怎么解决

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


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/20 17:22:00 [只看该作者]

遍历处理

Dim zd As New Dictionary(Of IntegerString)
zd
.Add(1,"苹果")
zd
.Add(2,"香蕉")
zd
.Add(3,"波罗")
zd
.Add(4,"桔子")
zd
.Add(5,"桃子")

For Each k As integer In zd.keys'显示所有值
  if 
zd(k) = "苹果" then zd.Remove(k)
Next

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


加好友 发短信
等级:幼狐 帖子:56 积分:531 威望:0 精华:0 注册:2019/7/16 14:29:00
  发帖心情 Post By:2020/3/21 14:45:00 [只看该作者]

指定键和指定值

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


加好友 发短信
等级:幼狐 帖子:56 积分:531 威望:0 精华:0 注册:2019/7/16 14:29:00
  发帖心情 Post By:2020/3/21 14:46:00 [只看该作者]

好的,谢谢

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


加好友 发短信
等级:幼狐 帖子:56 积分:531 威望:0 精华:0 注册:2019/7/16 14:29:00
  发帖心情 Post By:2020/3/23 13:09:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_15849359553718.png
图片点击可在新窗口打开查看
你给我的代码提示这个内容

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


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/23 14:27:00 [只看该作者]

Dim zd As New Dictionary(Of Integer, String)
zd.Add(1,"苹果")
zd.Add(2,"香蕉")
zd.Add(3,"波罗")
zd.Add(4,"苹果")
zd.Add(5,"桃子")

For i As Integer = zd.keys.count - 1 To 0 Step -1
    Dim k As Integer = zd.keys(i)
    If zd(k) = "苹果" Then zd.Remove(k)
Next

 回到顶部