[导入]ASP常用函数:DelArray2()

<%
'功能:删除二维数组中的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

你可能感兴趣的:(array)