Foxtable(狐表)用户栏目专家坐堂 → [求助]字典的键区分大小写


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

主题:[求助]字典的键区分大小写

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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2020/12/12 9:37:00 [显示全部帖子]

Dim o As  new Dictionary(of String, String)(StringComparer.OrdinalIgnoreCase)
o.Add("a","1")
o.Add("A","2")

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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2020/12/12 10:14:00 [显示全部帖子]

Dim lst As new List(of String)
If lst.Contains("a",StringComparer.OrdinalIgnoreCase) = False Then 
lst.Add("a")
End If 


If lst.Contains("A",StringComparer.OrdinalIgnoreCase) = False Then 
lst.Add("A")
End If 


For Each x As String In Lst
Output.Show(x)
Next

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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2020/12/12 10:52:00 [显示全部帖子]

HashSet
写代码时先用List做,有提示

Dim lst As new  HashSet(of String)(StringComparer.OrdinalIgnoreCase)
'Dim lst As new List(of String)
lst.Add("a")
lst.Add("A")
 
For Each x As String In Lst
Output.Show(x)
Next


 回到顶部