Dim
TestArr(
0
To
4
)
As
Variant
TestArr( 0 ) = 1
TestArr( 1 ) = 2
TestArr( 2 ) = 3
TestArr( 3 ) = 4
TestArr( 4 ) = 5
debug.print Join (TestArr, " , " ))
TestArr( 0 ) = 1
TestArr( 1 ) = 2
TestArr( 2 ) = 3
TestArr( 3 ) = 4
TestArr( 4 ) = 5
debug.print Join (TestArr, " , " ))
Split函数的参数为一个字符串、一个分隔符(可选)、返回的子字符串个数、以及比较方法。该函数返回一个基于零的(zero-based)数组,子字符串为数组元素。下面的代码将上例产生的字符串作为Split函数的参数,Split函数将恢复出一个数组。
Dim
strTest
As
String
Dim TestArr As Variant
strTest = " 1,2,3,4,5 "
TestArr = Split (strTest, " , " )
Dim i as integer
for i = 0 to ubound (testarr)
print TestArr(i)
next
Join函数和Split函数在需要把数组内容转化为字符串并从字符串恢复数组的情况下显得非常有用。例如,把表格各个栏的宽度转化为字符串保存到注册表,并从注册表恢复栏宽。使用这两个函数会简化保存和处理数组内容。
Dim TestArr As Variant
strTest = " 1,2,3,4,5 "
TestArr = Split (strTest, " , " )
Dim i as integer
for i = 0 to ubound (testarr)
print TestArr(i)
next