<%
'功能:删除二维数组中的iColumn列上值为sValue的行,当iColumn为-1时删除第sValue行
'来源:http://jorkin.reallydo.com/article.asp?id=483
Function DelArray2(aArray, iColumn, sValue, bCompare)
If Not IsArray(aArray) Then Exit Function
Dim i, j, k, iUBound1, iUBound2
iUBound1 = UBound(aArray)
iUBound2 = UBound(aArray, 2)
k = -1
Dim aTmpArray()
ReDim aTmpArray(iUBound1, k)
If iColumn < 0 Or iColumn > iUBound1 Then
For i = 0 To iUBound2
If StrComp(i, sValue, bCompare)<>0 Then
k = k + 1
ReDim Preserve aTmpArray(iUBound1, k)
For j = 0 To iUBound1
aTmpArray(j, k) = aArray(j, i)
Next
End If
Next
Else
For i = 0 To iUBound2
If StrComp(aArray(iColumn, i), sValue, bCompare)<>0 Then
k = k + 1
ReDim Preserve aTmpArray(iUBound1, k)
For j = 0 To iUBound1
aTmpArray(j, k) = aArray(j, i)
Next
End If
Next
End If
DelArray2 = aTmpArray
End Function
%>
文章来源: http://Jorkin.Reallydo.Com/default.asp?id=483