这是一个在我过去的半年工作中的一点点积累，每一个主要的功能都已经封装成COM组件，可以快速、方便地在凡是支持COM的各种环境下使用（VC,VB,VS.net,BCB,Delphi,WSH,ASP,WORD,EXCEL的VBA环境等）。

主要功能：

1、XMLParser：XML文件解析/处理类库。

XMLParser 是对MSXML的一次“平面”封装。之所以称之为“平面”，是因为它不同于MSXML的那种“对象 + 方法”的集合，而是通过一系列处在同一层次上的函数来实现所有的XML功能。

2、Base64：标准的Base64编解码功能。

3、DESEncrypt：标准DES加解密功能。

4、IDEAEncrypt：标准IDEA加解密功能。(根据其版权，IDEA只授权非商业软件的自由使用)

5、RegularExp：正则表达式处理器。

这是由微软的一个业余小组从Perl移植过来的正则表达式处理机，在其基础上，我进行了一些修整和封装。经过测试，它的实现是比较完善的，绝对可以满足通常情况下的各种需求。

6、HelperFunction：杂项功能函数。(制作中....)

这只是一组有各种各样小功能的函数的集合，彼此之间并无联系，只是将它们归类到这里了。目前还是在归纳、整理、重构中，将来的版本会加进去的。

以下是应用这些COM接口的一些DEMO。请根据个人口味酌情下载：

1) VB6.0 Demo （比较完善的一个DEMO，因为VB比较容易理解和移植，所以我多花了点功夫写）

       如果压缩包里的DEMO无法运行，可能是你的系统中缺少MSVBVM60.DLL，点此下载，复制到系统目录就行了

2) VC6.0 Demo （做的匆忙，相对粗陋一些，见谅啊）

3) 在Word中的应用(扩展了Word的功能)：

首先请确认在安装Office时，安装并启用了VBA环境。只要可以在Word中录制和播放宏，就是已经安装了。

接下来，按以下步骤进行：

1、打开WORD(2000以上版本)，并确保有一个文档是打开状态。

2、按快捷键：Alt+F11,打开VBA环境。

3、在左边(一般在左边)的“工程－project”窗口中，找到“Microsoft Word 对象”。双击其下的“ThisDocument”。

4、在打开的窗口中输入以下内容。

5、输入完毕后，按F5运行。

Public Sub Base64Enc()
Dim Src As String
Selection.MoveLeft wdWord, 1, wdExtend
Src = Selection.Text
If Len(Src) > 0 Then
    Dim base64obj As Base64
    Set base64obj = New Base64
    Dim DataByteArray() As Byte, ResultString As String
    DataByteArray = Src
    ResultString = base64obj.Encode(DataByteArray(0), UBound(DataByteArray) + 1)
    Set base64obj = Nothing
    Selection.Text = Selection.Text + "(" + ResultString + ")"
End If
End Sub

这一段代码展示了如何使用IBase64接口，来将文档中当前插入光标前的一个单词进行Base64编码，编码结果在这个单词后的括号中。同样的功能也可以在Excel中实现，比如需要将表格的某一列的所有单元格的内容进行Base64编码，那么借助此IBase64接口，同样可以轻松做到。

最后，该让主角出场了：

Utility 1.1 实用类库

好了，先写到这里吧。大家多用多测试，还有许多地方需要完善。无论有任何问题，就在这里留言吧，有时间的话，我会一一回复的。