上一篇博客讲解了SPLIT函数
的用法,大家可以移步这里。
SPLIT函数
实现了字符串拆分,相应的逆运算可以使用JOIN函数
,其语法格式如下。
Join(sourcearray[, delimiter])
参数 | 含义 |
---|---|
sourcearray | 必选参数,包含被连接子字符串的一维数组 |
delimiter | 可选参数,在返回字符串中用于分隔子字符串的字符 |
参数delimiter
与SPLIT函数
中该参数的用法相同,省略时使用空格做为分隔符。
如下的示例代码实现了将字符串数组arrString
组合为一个字符串。
Sub JoinDemo1()
Dim arrString
Dim strString As String
arrString = Array("Good", "good", "study,", "day", "day", "up")
strString = VBA.Join(arrString)
Debug.Print strString
End Sub
输出结果如下。
Good good study, day day up
有时需要在字符串的两端都使用分隔符,即
|Good|good|study|day|day|up|
示例代码如下:
Sub JoinDemo3()
Dim arrString
Dim strString As String
arrString = Array("Good", "good", "study,", "day", "day", "up")
strString = "|" & VBA.Join(arrString, "|") & "|"
Debug.Print strString
End Sub
其实代码可以进行简化,JoinDemo3
过程中第5行代码不需要那么复杂。代码可以简化如下。
Sub JoinDemo4()
Dim arrString
Dim strString As String
arrString = Array("", "Good", "good", "study,", "day", "day", "up", "")
strString = VBA.Join(arrString, "|")
Debug.Print strString
End Sub
其中的技巧在于,第4行代码中,在数组中第一个和最后一个元素增加了空字符,第5行代码组合字符串时,就可以实现字符串两段添加分隔符的效果。
参考文章
《VBA SPLIT函数详解》