[VB.NET] 配列の指定要素のみを削除する

配列の最後の要素の消すのはなんてことはないのですが、
中盤の要素を削除するのって結構メンドクサイですね。

view plainprint?

1.    
2. Private Sub ArrayRemove(ByRef TargetArray As String(), ByVal deleteIndex As Integer)  
3.   
4.  '一時保管用配列  
5.  Dim newArray As String()  
6.  ReDim newArray(TargetArray.GetUpperBound(0) - 1)  
7.   
8.  '一時保管用配列にすべてをコピーする  
9.  Array.Copy(TargetArray, 0, newArray, 0, deleteIndex)  
10.   
11.  '一時保管用配列に削除対象の要素以降の値をコピーする  
12.  Array.Copy(TargetArray, deleteIndex + 1, newArray, deleteIndex, TargetArray.GetUpperBound(0) - deleteIndex)  
13.   
14.  'オリジナルの配列の格納領域を再割り当て  
15.  ReDim TargetArray(newArray.GetUpperBound(0))  
16.   
17.  '値を代入  
18.  TargetArray = newArray  
19.   
20. End Sub  

 
Private Sub ArrayRemove(ByRef TargetArray As String(), ByVal deleteIndex As Integer)

 '一時保管用配列
 Dim newArray As String()
 ReDim newArray(TargetArray.GetUpperBound(0) - 1)

 '一時保管用配列にすべてをコピーする
 Array.Copy(TargetArray, 0, newArray, 0, deleteIndex)

 '一時保管用配列に削除対象の要素以降の値をコピーする
 Array.Copy(TargetArray, deleteIndex + 1, newArray, deleteIndex, TargetArray.GetUpperBound(0) - deleteIndex)

 'オリジナルの配列の格納領域を再割り当て
 ReDim TargetArray(newArray.GetUpperBound(0))

 '値を代入
 TargetArray = newArray

End Sub