场景: 1.每次搞活动都需要分组,比如20个人分3个组,如何才能更公平的分组,想到的只能是随机分组程序. 2.时间关系并没有实现男女平衡的分组,有时间的哥们可以自己实现. 文件1:分组程序.vbs,记得保存为ansi编码. ' 随机分组 author: Sai ' 新建一个ansi编码的txt文件,内容是每个姓名占用一行. Sub DeleteArray(arr,i) If UBound(arr) > 0 Then max_j = UBound(arr) - 1 For j = i To max
一.要让excel脚本支持Microsoft VBScript Regular Expressions 5.5 ,按快捷键alt+F11,出现下图界面,操作如图示: 二.添加VBA代码: 代码添加完毕后,关闭该窗口. Function regex(strInput As String, matchPattern As String, Optional ByVal outputPattern As String = "$0") As Variant Dim inputRegexObj A
1.RegExp 一个用于匹配的模式文本 用0个或多个修饰符描述的匹配模式细节 RegExp对象的创建形式 用内建构造器创建 var re = new RegExp("j.*t") 用文本定义方式 var re = /j.*t/; 2.RegExp对象属性 g==>global:相关搜索在找到第一个匹配位置时是否停止(false默认) i==>ignoreCase:是否忽略大小写 (false默认) m==>multiline:设置是否跨行搜索的选项,默认为f