vb.net 教程 1-12 Hashtable

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。

 

HashTable 是表示根据键的哈希代码进行组织的键值对(Key/Value)的集合。
首先需要明白的是“键值对”(Key/Value)
例如:学生学号A20190902对应的一个学生“张三”我们可以理解为
Key=A20190902
Value=张三
由于Key相当于索引,所以不能重复,但是值可以重复。
比如李四有很多个银行卡,银行卡的卡号就是Key,这个是不重复的,但是对应的人Value都是李四。
其次,HashTable是一个集合,包含了很多的键值对(Key/Value)。

本节内容将用示例方式讲解HashTable增、删、改、枚举、查找操作。
设计窗口如下:

定义窗体级变量

   Dim myHashTab As Hashtable

当窗体载入时候:

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        myHashTab = New Hashtable()
    End Sub

向myHashTab增加键值对:

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        myHashTab.Add(txtKey.Text, txtValue.Text)
    End Sub

需要注意的是Add方法:
Public Overridable Sub Add (  key As Object,  value As Object )
接受的两个参数都是Object ,也就是任意变量都可以添加为Key或者Value。为了方便掌握,本节内容全部简化为String类型。
当添加了键值对后,采用以下三种方法可以枚举出键值对:

    '枚举值
    Private Sub showAll_Click(sender As Object, e As EventArgs) Handles showAll.Click
        Dim info As String = ""
        info &= "键值对个数:" & myHashTab.Count & ControlChars.CrLf

        For Each singleHash As DictionaryEntry In myHashTab
            info &= singleHash.Key & ":" & singleHash.Value & ":" & singleHash.GetHashCode.ToString("X") & ControlChars.CrLf
            singleHash.Key = "111" & singleHash.Key
            singleHash.Value = "222" & singleHash.Key
        Next
        info &= "===============" & ControlChars.CrLf

        For Each singleKey As String In myHashTab.Keys
            info &= singleKey & ":" & myHashTab(singleKey) & ControlChars.CrLf
        Next
        info &= "===============" & ControlChars.CrLf

        Dim myHashTabEnum As IDictionaryEnumerator = myHashTab.GetEnumerator()
        Dim dentry As DictionaryEntry

        While myHashTabEnum.MoveNext()
            dentry = CType(myHashTabEnum.Current, DictionaryEntry)
            info &= dentry.Key & ":" & dentry.Value & ControlChars.CrLf
        End While

        txtInfo.Text = info
    End Sub

按Key查找键值对:

    '查找键Key
    Private Sub btnFindKey_Click(sender As Object, e As EventArgs) Handles btnFindKey.Click
        If myHashTab.ContainsKey(txtFind.Text) Then
            txtInfo.Text = "找到Key:" & txtFind.Text & " 对应值:" & myHashTab(txtFind.Text)
        Else
            txtInfo.Text = "未找到Key:" & txtFind.Text
        End If
    End Sub

查找Value是否存在:

    '查找值Value
    Private Sub btnFindValue_Click(sender As Object, e As EventArgs) Handles btnFindValue.Click
        If myHashTab.ContainsValue(txtFind.Text) Then
            txtInfo.Text = "找到Value:" & txtFind.Text 
        Else
            txtInfo.Text = "未找到Value:" & txtFind.Text
        End If
    End Sub

删除某个键值对:

    '删除键值对
    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
        If myHashTab.ContainsKey(txtFind.Text) Then
            myHashTab.Remove(txtFind.Text)
        End If
    End Sub

修改Value值:

    '修改值Value
    Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
        If myHashTab.ContainsKey(txtFind.Text) Then
            myHashTab(txtFind.Text) = txtEdit.Text
        End If
    End Sub

另外,清除所有键值对:

   myHashTab.Clear()

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

学习更多vb.net知识,请参看vb.net 教程 目录

  • 7
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB.NET(Visual Basic .NET)是Microsoft开发的一种基于.NET框架的编程语言,主要用于Windows应用程序、Web应用和桌面软件的开发。其中,哈希表(Hash Table 或 Dictionary)是一个用于存储键值对的数据结构,提供快速查找的能力,常用于查找重码或数据去重。 如果你想使用VB.NET中的哈希表来判断字符串是否有重码,你可以这样做: ```vb.net Imports System.Collections.Generic Module Module1 Sub Main() Dim hashTable As New Dictionary(Of String, Integer) ' 创建一个哈希表,用String作为键,Integer作为默认值,用来记录每个字符出现的次数 ' 待检查的字符串列表 Dim strList = {"hello", "world", "hello again"} For Each str In strList Dim hashValue = 0 ' 初始化计数器 ' 遍历字符串中的每一个字符 For i As Integer = 0 To str.Length - 1 If Not hashTable.ContainsKey(str(i)) Then ' 如果字符不在哈希表中,则添加并设置值为1 hashTable.Add(str(i), 1) Else ' 如果字符已经在哈希表中,增加计数值 hashValue += hashTable(str(i)) End If Next ' 判断是否有重码,如果所有字符的出现次数加起来大于strList长度,说明有重码 If hashValue <> str.Length Then Console.WriteLine("字符串 '{0}' 有重码", str) Else Console.WriteLine("字符串 '{0}' 没有重码", str) End If Next Console.ReadKey() ' 主程序暂停,等待用户按下回车键 End Sub End Module ``` 在这个例子中,我们遍历输入的字符串,并将每个字符及其出现次数存储到哈希表中。如果某个字符出现的总次数超过其在原始字符串中的位置数量,那么就认为存在重码。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值