Split函数 返回一个下标从零开始的一维数组,它包含指定数目的子字符串。 Split(字符串[, 分隔符[, 要返回的子字符串数量[,比较方式]]]) 后三项可选,默认:分隔符为空格,返回全部子字符串,用Option Compare语句中的设置值执行比较。 下面是将1-12转化为一月-十二月的自定义函数的例子。 Function Num2ch(ByVal n As Integer) As String Dim Arr Arr = Split(",一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月", ",") Num2ch = Arr(n) End Function 和Array函数相比,用Split的好处在于生成的数组是字符型的,写法上也更简洁。注意“一月”前的逗号,这是因为Split生成的数组下标是从0开始的,且不受Option Base句的影响。 Join函数 返回一个字符串,该字符串是通过连接某个数组中的多个子字符串而创建的。 Join(源数组[,分隔符]) 默认:分隔符为空格 当将分隔符设为空串(””)时,会返回一个各数组元素会直接相连的字符串。 该函数是Split函数的反函数,它是将数组转化为字符串。Join和Split相配合,可用于扩充控件TAG属性的传递数量;在不定参数的传递时,可使代码看起来更简洁。 下面只是它们配合的示例,并不是这儿真有必要这样做: Sub aMain() Dim arr(1 To 2), s$ arr(1) = 1: arr(2) = 2 s = Join(arr, ",") Debug.Print Myadd(s) End Sub Function Myadd(ByVal s As String) Dim arr, x arr = Split(s, ",") For Each x In arr Myadd = Myadd + Val(x) Next x End Function Filter函数 返回一个下标从零开始的数组,该数组包含基于指定筛选条件的一个字符串数组的子集。 Filter(源数组,要搜索的字符串[,返回子串包含还是不包含要搜索字符串[,比较方式]]) 如果在源数组中没有发现与要搜索的字符串相匹配的值,Filter返回一个空数组。如果源数组是Null或不是一个一维数组,则产生错误。 注意是“包含”要搜索的字符串,而不是“等于”要搜索的字符串。这意味着,如果一数组元素为字符串“AB”,用“A”、“B”、“AB”中的任何一个去搜索(上面第三个参数为默认值True),都会作为新的数组的元素被返回。但这并不影响你创造成“包含”等同于“等于”的条件,或者数据本身就符合这一要求的条件。在“包含”等同于“等于”的数组中,我们可以用下面的办法来判断一个字符串是否属于某个数组。 If UBound(Arr) = UBound(Filter(Arr, "要找的字符串", False)) Then ‘说明在数组Arr中找不到
|
|