Monthly Archives: November 2005
在Dictionary对象中插入自定义数据类型
1.点击菜单[插入],选择[类模块],这样就创建了一个新类 2.在属性窗口中,将默认的"类1"改为合适的名字,如clsPerson 3.在类clsPerson的代码窗口输入以下代码: Private mName As StringPublic age As IntegerPublic birth As Date Public Property Get Name() As String Name = mNameEnd Property Public Property Let Name(ByRef vNewValue As String) mName = vNewValueEnd Property 注:为了简单起见,我将部分类成员设置为了public类型(如果设置为Private类型,可以结合使用LET,GET关键字来设置读写权限,感觉和JavaBean很相像) 4.定义变量,类型为clsPerson,并加入到Dictionary中 Sub test() Dim p As clsPerson Dim d Set d = CreateObject("Scripting.Dictionary") Set p = New clsPerson p.Name = [...]
VBA中Dictionary对象使用小结
VBA中Dictionary对象使用小结 Dim dict ‘ 创建DictionarySet dict = CreateObject(“Scripting.Dictionary”) ‘ 增加项目dict.Add “A”, 300dict.Add “B”, 400dict.Add “C”, 500 ‘ 统计项目数n = dict.Count ‘ 删除项目dict.Remove (“A”) ‘ 判断字典中是否包含关键字dict.exists (“B”) ‘ 取关键字对应的值，注意在使用前需要判断是否存在key，否则dict中会多出一条记录Value = dict.Item(“B”) ‘ 修改关键字对应的值,如不存在则创建新的项目dict.Item(“B”) = 1000dict.Item(“D”) = 800 ‘ 对字典进行循环k = dict.keysv = dict.ItemsFor i = 0 To dict.Count – 1 key = k(i) Value = v(i) [...]
读[中国电子竞技先锋20人]有感
前两天在太平洋的游戏站看了一篇文章:中国电子竞技先锋20人,当MTY,DEEP,洪哲夫这几个熟悉的名字在我眼前闪现的时候,不仅回想起了自己的电子游戏经历,尤其是在网吧与朋友间SC混战的场景,虽然已经过去了好几年,仍然记忆犹新. 不知不觉中,5年过去了,现在偶尔还会玩一玩TFT,但已不能再那么任性、通宵达旦的玩游戏.工作和生活的压力越来越大,游戏渐渐的成为了一种奢望. 曾经拥有的狂热慢慢消失,取而代之的是平和的心态.有得有失,生活可能就是这样吧!
Python学习杂记
最初知道Python,是从CSDN上的一篇文章开始的,那篇文章说Python有10倍于Java的生产力,我虽然怀疑,但还是下载了Python来学学看. 大概看了两篇教程: 简明Python教程 Dive into Python Python给我的感觉是语法简单,功能实用,比较欣赏的地方是List,Tuple,Dictionry三种内置数据类型的用法,还有对正则表达式的支持. Tuple被翻译为元组,感觉和Delphi中的Set比较相似. 为了熟悉Python的语法和函数,同时也觉得写简单的Javabean实在是烦琐.于是写了个简单的生成JavaBean的小程序,可以使用简单的Javabean描述文件来生成对应的Javaben文件,举个例子: 一个User的类,有这么几个属性:姓名,口令,电子邮件,年龄 我设计的描述文件如下: package register class User String username String password String email int age 简单吧!基本上没有无用的信息,生成后的Javaben文件内容如下: package register; public class User { private String username; private String password; private String email; private int age; public String getUsername() { return username; } public void setUsername(String username) { this.username [...]
Feed订阅