excelvba与字符串数组有关的三个函数
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)vba 字符串转数组
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中不到

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。