devxlogo

ArrayReplace – A Replace routine that works through all the items of the input array

ArrayReplace – A Replace routine that works through all the items of the input array

' A Replace routine that works through all the items of the input array'' Example:'   Dim arr As Integer() = {3, 7, 8, 2, 7, 0, 9, 7}'   ArrayReplace(arr, 7, 100)'   Dim o As Object'   For Each o In arr'       Debug.Write(o & " ")'   Next'   Debug.WriteLine("")Sub ArrayReplace(ByVal arr As Array, ByVal search As Object, _    ByVal repl As Object)    ArrayReplace(arr, search, repl, arr.GetLowerBound(0), arr.GetUpperBound(0))End Sub' This overloaded version allows you to specify which portion of the array ' should be consideredSub ArrayReplace(ByVal arr As Array, ByVal search As Object, _    ByVal repl As Object, ByVal first As Integer, ByVal last As Integer)    Dim exitLoop As Boolean    Do        ' search the array for the specified  object        Dim i As Integer = Array.IndexOf(arr, search, first, last - first + 1)        ' if found, replace it and keep searching        If i > -1 Then            arr.SetValue(repl, i)        Else            ' otherwise exit the loop            exitLoop = True        End If    Loop Until exitLoopEnd Sub

devx-admin

Share the Post: