用Join和Split函数实现数组与字符串的导入导出

你是否遇到过需要把数组的内容保存到注册表、文件或者控件的Tag属性中？在VB6以及.NET中，Join函数和Split函数为你提供了实现上述功能的简便方法。这两个函数还有把一维数组导入到字符串以及从字符串恢复数组的功能。

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

Dim vntTest(0 To 4) As Variant



vntTest(0) = 1

vntTest(1) = 2

vntTest(2) = 3

vntTest(3) = 4

vntTest(4) = 5

Call MsgBox(Join(vntTest, "|")) 

Split函数的参数为一个字符串、一个分隔符（可选）、返回的子字符串个数、以及比较方法。该函数返回一个基于零的（zero-based）数组，子字符串为数组元素。下面的代码将上例产生的字符串作为Split函数的参数，Split函数将恢复出一个数组。

Dim strTest As String

Dim vntSplit As Variant



strTest = "1|2|3|4|5"

vntSplit = Split(strTest, "|")

MsgBox vntSplit(0) 

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