使用Split将规则字符串转化为数组,以及JOIN的用法VB6

    Join函数的参数为一个数组和分隔符（分隔符可选），它把数组的所有元素导入到字符串，元素间用分隔符分隔，并返回该字符串。例如，下面的代码将返回字符串：1,2,3,4,5。

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,  " , " )) 

    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函数在需要把数组内容转化为字符串并从字符串恢复数组的情况下显得非常有用。例如，把表格各个栏的宽度转化为字符串保存到注册表，并从注册表恢复栏宽。使用这两个函数会简化保存和处理数组内容。