.Net中数组的操作

      VB6以前的数组是十分灵活的。而VB.NET在数组方面为了适应.NET Framework做了一些改变，但仍然有较强的灵活性。下面的代码展示了数组的常见操作。没有固定下标上界的数组如b()成为动态数组，而固定了上界的数组，如a(20)称为固定数组。

Dim a(10) As Integer
Dim b() As Integer = {1, 2, 3}
Dim c As Integer()
Dim d() As Integer
d = New Integer() {4, 5, 6}
Dim e(,) As Integer = {{1, 2}, {3, 4}}
Redim c(20)
Redim Preserve c(30)

      我们不难看出，VB的数组定义语句可以将括号放在变量的后面，也可以放在类型的后面。如果希望用{}来初始化数组，那么数组就必须是动态的，不能指定下标上界。ReDim可以改变数组的任意一维的大小，但会清除数组的内容；ReDim Preserve只能改变数组最后一维的大小，并保留数组的内容。

       首先看看动态数组。Dim a() As T() = {}语句先执行了数组的定义语句，然后它执行了和a = New T() {}语句一样的功能。如下代码所示：

a = New T() {1, 2, 3}

该语句执行的实际功能是

Dim tmp(2) As T
tmp(0) = 1
tmp(1) = 2
tmp(2) = 3
a = tmp

无论a是否是本地变量，都会建立一个临时的本地数组，然后赋值给a。如果a是一个类的字段，那么这样初始化带来的代价要小一些。这种语法和VB6的Array函数有些相似，但它是强类型的。

动态数组和固定数组都可以采用ReDim语句来重新指定下标的范围。ReDim语句在运行时实际创建了新的数组实例，如下所示（C#）：

c = new int[21]; //ReDim c(20)

我们有时需要长度为0，但不是Nothing的数组，比如在反射中常常要处理没有参数的方法的参数表，就是这种类型的数组。C#中定义这种数组的语法是：

c = new int[0];

在VB中，实现上述功能的语法有点令人费解，它是：

ReDim c(-1)

不管怎么说，这个语法是有用的，每个VB的使用者都应该记住它。

最后我们看看ReDim Preserve语句。它可以更改一维数组的大小，也可以更改多维数组中最后一维的大小。但要注意的是，如果用它来改变不是最后一维的大小，出现的错误是运行时错误而不是编译错误。当VB的编译器遇到下列语句时

ReDim Preserve c(30)

它将自动被翻译成（C#）

c = ((int[]) Utils.CopyArray(((Array) c), new int[31]));

其中Utils.CopyArray是Microsoft.VisualBasic.dll中的工具函数，我们看看它的实现方法。首先它判断是否正在使用ReDim Preserve修改最后一维的大小，代码是：

If (aryDest.Rank <> arySrc.Rank) Then
   Throw ExceptionUtils.VbMakeException(New InvalidCastException( _
         Utils.GetResourceString("Array_RankMismatch")), 9)

End If
destRank = (aryDest.Rank - 2)
i = 0
Do While i <= destRank
    If (aryDest.GetUpperBound <> _
        arySrc.GetUpperBound) Then
        Throw ExceptionUtils.VbMakeException(New ArrayTypeMismatchException( _
              Utils.GetResourceString("Array_TypeMismatch")), 9)

    End If
    i += 1
Loop

我们可以很清晰的看到，上述代码确认目标数组和源数组有相同的维数，以及除了最后一维一外有相同的下标上界。确认完毕后，调用下列代码来执行数组的复制：

If (arySrc.Rank > 1) Then '多维数组
    srcRank = arySrc.Rank
    lenSrcR = arySrc.GetLength((srcRank - 1))
    lenDestR = aryDest.GetLength((srcRank - 1))
    If (lenDestR = 0) Then
       Return aryDest
    End If
    minLen = Math.Min(lenSrcR, lenDestR)
    m = ((arySrc.Length / lenSrcR) - 1)
    j = 0
    Do While (j <= m)
        Array.Copy(arySrc,(j * lenSrcR),aryDest,(j * lenDestR),minLen)
        j += 1

    Loop

Else '一维数组
    Array.Copy(arySrc, aryDest, lenSrc)

End If

很清晰的看出，它是用Array.Copy对数组进行复制的。

至此，我们就完全搞清楚ReDim Preserve的原理了。