佛山小老鼠带您走进字典(字典入门帖)

佛山小老鼠 · 发表于 2013-11-3 11:21

banjinjiu 发表于 2013-11-3 11:13
输入dic.后出现的图标：属性图：方法图：
下次认图标就知道属性和方法了。楼主，对吗？

一个手形那个是属性,绿色的那个方法,绿色的那些有时也会是函数,不过这里的绿色都是方法

samica · 发表于 2013-11-3 11:35

学习了,期待ing……

骑蚂蚁游江南 · 发表于 2013-11-3 12:06

字典是VBA的吗

佛山小老鼠 · 发表于 2013-11-3 12:11

骑蚂蚁游江南发表于 2013-11-3 12:06
字典是VBA的吗

字典不是excel自带的,是外部对象,但是我们可以通过函数CreateObject调用它,来加强,增强excel VBA的功能,让excel里的VBA发挥出更强大的作用

骑蚂蚁游江南 · 发表于 2013-11-3 12:15

佛山小老鼠发表于 2013-11-3 12:11
字典不是excel自带的,是外部对象,但是我们可以通过函数CreateObject调用它,来加强,增强excel VBA的功能,让 ...

受教了。原来是这样博大精深。

liucqa · 发表于 2013-11-3 12:26

本帖最后由 liucqa 于 2013-11-3 12:29 编辑

C#中可以使用自定义类来建立字典的键值和数据项，理解下面的代码，对理解字典的工作原理有重要作用。

初学者不必理会...

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace 集合
{
class 字典
{
public static void Main()
{
//字典也称映射或者散列表，主要特点是可以根据键快速查找值，也可以自由删除添加元素
//在删除添加时，不会像列表一样，移动之后的所有元素，产生内存的开销。
//.net中提供了几个字典，可以使用最主要的类是Dictionary<TKey,TValue>
//键的类型　　
//用做字典中键的类型必须重写Object类中的GetHashCode()方法,只要字典类需要确定元素的位置，就要调用本方法
//字典内部通过调用这个方法的返回值，来计算产生散列。。这个算法不做介绍　，但我要知道，它涉及到素数
//所以字典的容量是一个素数
//GetHashCode()方法的实现需要遵循以下几点
// 1 相同的对象应总是返回相同的值
// 2 不同的对象可以返回相同的值
// 3 应执行得比较快，计算的开销不大。
// 4 不能抛出异常
// 5 应至少使用一个实例字段
// 6 散列码值应平均分布在int可以存储的整个数字区上
// 7 散列码最好在对象的生存期中不发生变化
//提示：　字典的性能取决于GetHashCode()方法的实现代码
Dictionary<EmployeeID , Employee> emps = new Dictionary<EmployeeID,Employee>(31) ;
EmployeeID idAladdin = new EmployeeID( "C7102" ) ;
Employee aladdin = new Employee( "aladdin" , 5000.00m , idAladdin ) ;
emps.Add( idAladdin , aladdin ) ;
Console.WriteLine( aladdin ) ;
EmployeeID idjacky = new EmployeeID( "C7106" ) ;
Employee jacky = new Employee( "jacky" , 5000.00m , idjacky ) ;
emps.Add( idjacky , jacky ) ;
Console.WriteLine( jacky ) ;
EmployeeID idzhao = new EmployeeID( "C8102" ) ;
Employee zhao = new Employee( "zhao" , 5000.00m , idzhao ) ;
emps.Add( idzhao , zhao ) ;
Console.WriteLine( zhao ) ;
EmployeeID idxiaofei = new EmployeeID( "C9102" ) ;
Employee xiaofei = new Employee( "xiaofei" , 5000.00m , idxiaofei ) ;
emps.Add( idxiaofei , xiaofei ) ;
Console.WriteLine( xiaofei ) ;
EmployeeID iddabi = new EmployeeID( "C7602" ) ;
Employee dabi = new Employee( "dabi" , 5000.00m , iddabi ) ;
emps.Add( iddabi , dabi ) ;
Console.WriteLine( dabi ) ;
EmployeeID idalong = new EmployeeID( "C7302" ) ;
Employee along = new Employee( "along" , 5000.00m , idalong ) ;
emps.Add( idalong , along ) ;
Console.WriteLine( along ) ;
EmployeeID idcarl = new EmployeeID( "C7402" ) ;
Employee carl = new Employee( "carl" , 5000.00m , idcarl ) ;
emps.Add( idcarl , carl ) ;
Console.WriteLine( carl ) ;
EmployeeID idjeff = new EmployeeID( "C7502" ) ;
Employee jeff = new Employee( "jeff" , 5000.00m , idjeff ) ;
emps.Add( idjeff , jeff ) ;
Console.WriteLine( jeff ) ;
EmployeeID iddenny = new EmployeeID( "C6602" ) ;
Employee denny = new Employee( "denny" , 5000.00m , iddenny ) ;
emps.Add( iddenny , denny ) ;
Console.WriteLine( denny ) ;
EmployeeID idmatt = new EmployeeID( "C7701" ) ;
Employee matt = new Employee( "matt" , 5000.00m , idmatt ) ;
emps.Add( idmatt , matt ) ;
Console.WriteLine( matt ) ;
Console.ReadLine() ;
}
}
struct EmployeeID : IEquatable<EmployeeID>
{
private readonly char prefix ;
private readonly int number ;
public EmployeeID( string id )
{
this.prefix = (id.ToUpper())[0] ;
int numLength = id.Length - 1 ;
this.number = int.Parse( id.Substring( 1 , numLength > 6 ? 6 : numLength ) ) ;
}
public override string ToString()
{
return this.prefix.ToString() + string.Format( "{0,6:000000}" , number ) ;
}
public override int GetHashCode()
{
return ( number ^ number << 16 ) * 0x15051505 ;
}
public bool Equals( EmployeeID other )
{
return ( other.number == this.number && this.prefix == other.prefix ) ;
}
}
class Employee
{
private string name ;
private decimal salary ;
private readonly EmployeeID id ;
public Employee( string name , decimal salary , EmployeeID id )
{
this.name = name ;
this.salary = salary ;
this.id = id ;
}
public override string ToString()
{
return string.Format( "{0} : {1,-20} {2:C}" , id.ToString() , name,salary ) ;
}
}
}

复制代码

liucqa · 发表于 2013-11-3 12:34

本帖最后由 liucqa 于 2013-11-4 11:27 编辑

其实，字典就是一个特殊的哈希表，所以在C#中，完全可以用哈希表来替代字典，因此，下面的介绍也可以帮助你理解字典

C#:字典的工作原理

在C#中,我们可能经常用到使用非常方便的Hashtable,不知大家是否知道它的另外一个名字:散列表.事实上Hashtable使用了某种算法,通过键(key)来确定每个对象的位置,实际上,该算法并不完全是Hashtable类提供的.它有两个部分,其中的一部分的代码是有key类来完成.我们平常在使用Hashtable的时候,key我们一般使用string类(部分算法string已经提供,Microsoft已经替我们做了),所以不会有任何的问题,但是如果key类是用户自己编写的,就必须自己编写这部分算法了.

下面我们用EmployeeID类作为key类,来讲解如何编写自己的算法.

   在计算机中.由key类执行的部分算法成为散列,Hashtable在散列算法中有特殊的地位,它提供了对象的GetHashCode()方法,该方法继承于Sysetm.Object.只要字典需要确定数据项的位置,就会条用key对象的GetHashCode()方法.所以我们如果要是我们的key类起作用的话,就必须重写GetHashCode()方法.

   GetHashCode()方法的工作方式是:返回一个int型的数据,它使用这个键的值来生成int类型的数据.Hashtable获取这个值,并对它进行其他的一些操作,其中涉及一些非常复杂的计算,最后返回一个索引,表示带有指定散列的数据项在字典中的位置.这部分算法呢据说很复杂,非我辈能力所及,就不介绍了.免得招来拍砖无数.

   重载GetHashCode()方法就可以了吗?答案是否顶的!比如:如果再字典中,两个数据项的散列有相同的索引,该怎么办?所以要确保字典的容量大于其中元素的个数.而且,如果两个对象包含相同的数据,他们就必须给出相同的散列值.所以重写System.Object的Equals()和GetHashCode()方法时,必须考虑这个.

下面我们通过具体的例子进行讲解:

   比如A公司建立了一个员工字典,该字典用EmployeeID对象做索引,存储的数据都是一个EmployeeData对象(员工的详细数据).我们的实例创建一个字典,添加了两个员工,通过员工的id,获取相应的信息.

   首先我们看下我EmployeeID类和EmployeeData类. EmployeeID类是关键,散列的部分算法就在EmployeeID类中实现.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
/// <summary>
/// Summary description for EmployeeID
/// </summary>
public class EmployeeID
{
public EmployeeID()
{
//
// TODO: Add constructor logic here
//
}
public EmployeeID(string id)
{
Id = id;
}
private string Id { get; set; }
//
public override string ToString()
{
return base.ToString();
}
//必须重写,否则EmployeeID类,不能作为key类,
public override int GetHashCode()
{
return ToString().GetHashCode();
}
//重载Equals方法,确保两个相同的对象,返回相同的散列值
public override bool Equals(object obj)
{
EmployeeID employeeID = obj as EmployeeID;
if (employeeID == null) return false;
if (this.Id == employeeID.Id) return true;
return false;
}
}

复制代码

上面的代码 ,我们重点看下GetHashCode()方法,我们前面讲了,如果要实现散列算法,必须满足很多苛刻的要求.但是我们知道string类可以直接作为Hashtable的key类,说明Microsoft已经为string类提供了很有效的散列算法.所以我们直接应用string.GetHashCode()去重写我们的EmployeeID类的GetHashCode()方法.当然性能可能会有损失,因为EmployeeID类转换为string的时候会损失性能.

EmployeeData类就没有什么特别的啦,就一些数据

EmployeeData类
Main 测试代码
using System;
using System.Collections.Generic;
using System.Text;
using System.Collections;
namespace HashTableTest
{
class Program
{
static void Main(string[] args)
{
Hashtable ht = new Hashtable();
ht.Add(new EmployeeID("A0001"), new EmployeeData("Johnny", "24", "Man"));
ht.Add(new EmployeeID("A0002"), new EmployeeData("Vicky", "20", "female"));
ht.Add(new EmployeeID("A0003"), new EmployeeData("Allen", "30", "male"));
Console.WriteLine("Please input the Employee ID");
string userId = Console.ReadLine();
//当输入ID的是否,返回员工的详细数据
EmployeeData E1 = (EmployeeData)ht[new EmployeeID(userId)];
if (E1 != null)
{
Console.WriteLine("Employee " + userId+"Data is :");
Console.WriteLine(E1.Name);
Console.WriteLine(E1.Age);
Console.WriteLine(E1.Gender);
}
Console.ReadLine();
}
}
}

复制代码

关于字典的哈希算法，可以看看微软的这个代码
http://support.microsoft.com/kb/71891/en

在VBA中使用类模块实现字典的一对多
http://club.excelhome.net/thread-1068628-1-2.html

gaozengxun · 发表于 2013-11-3 14:57

抢个位，期待。

我爱你！ · 发表于 2013-11-3 15:39

留下脚印。。

佛山小老鼠 · 发表于 2013-11-3 16:47

本帖最后由佛山小老鼠于 2013-11-3 16:50 编辑

第一个案例:
1.多行2列分类汇总
2.多行多列分类汇总

Option Explicit
Sub 二列多行()
Dim arr1, dic, x, arr2(1 To 10, 1 To 2), m%, k% '定义变量
Set dic = CreateObject("Scripting.dictionary") '后期绑定引用字典
arr1 = Range("A1").CurrentRegion '把单元区域装到数组arr1
For x = 2 To UBound(arr1, 1) '循环数组arr1的行
If dic.exists(arr1(x, 1)) Then '判断数组元素arr1(x,1)在字典关键词里是否存在,
m = dic(arr1(x, 1)) '如果存在,把关键词arr1(x,1)的条目读出来,在原来的
'基础上累加,通过读取关键词arr1(x,1)的条目,找到在数组arr2那一行上累加
arr2(m, 2) = arr2(m, 2) + arr1(x, 2) '在数组arr2第m行,第2列上累加
Else '如果关键词arr1(x,1)不存在,那么
k = k + 1 '计数
dic(arr1(x, 1)) = k '把数组arr1(x,1)装到字典dic里,条目装一个k,
'这个k的作用来给数组arr2中找到存放那一行
arr2(k, 1) = arr1(x, 1) '把数组arr1里的第x行第1列装到数组arr2的第k行,第1列
arr2(k, 2) = arr1(x, 2) '把数组arr1里的第x行第2列装到数组arr2的第k行,第2列
End If
Next x
Range("E1:F" & Rows.Count) = "" '清空区域,用来存放新的数据
[E1:F1] = Array("产品名称", "数量") '填充表头
[E2].Resize(k, 2) = arr2 '把数组arr2读到单元格区域
End Sub
Sub 多列多行汇总()
Dim dic, arr1, x%, MySt, k%, arr2(1 To 15, 1 To 3), y%, m%
Set dic = CreateObject("Scripting.dictionary")
arr1 = Range("A1").CurrentRegion
For x = 2 To UBound(arr1, 1)
MySt = arr1(x, 1) & arr1(x, 2)
If dic.exists(MySt) Then
m = dic(MySt)
arr2(m, 3) = arr2(m, 3) + arr1(x, 3)
Else
k = k + 1
dic(MySt) = k
For y = 1 To 3
arr2(k, y) = arr1(x, y)
Next y
End If
Next x
Range("E1:G" & Rows.Count) = ""
[E1:G1] = Array("产品名称", "款号", "数量")
[E2].Resize(k, 3) = arr2
End Sub
Sub 清空1()
Range("E1:F" & Rows.Count) = ""
End Sub
Sub 清空2()
Range("E1:G" & Rows.Count) = ""
End Sub

复制代码

第二个代码我就不加注解了,同第一个代码差不多,区别是
由于关键字只能装1列,如果有多列怎么办呢?
我们可以把多列用&串起来,多串字符串就变成了一串字符串
附件在第1楼

		自动登录	找回密码
密码			免费注册

[原创] 佛山小老鼠带您走进字典(字典入门帖)

评分

评分