Triumphal

  Function ToLink(Str)    Dim RE   正则表达式对象    Dim strContent    If IsNull(Str) Then Str=""    Set RE = New RegExp 创建正则表达式对象    With RE      .Global = True    搜索应用于整个字符串      .IgnoreCase = True  搜索

.Net 和 Java 中都有 ArrayList 类，非常方便。VBS 中却没有，给使用带来了不便。所以特意编写了 VBS 的 ArrayList 类，功能与.Net 和 Java 中的 ArrayList 类相似，没有排序功能。%**********************************************************************************