VBScript array_walk_recursive 関数

配列の全ての要素に、ユーザー関数を再帰的に適用する


Function array_walk_recursive(ByRef arr, callback, userdata)

    Dim key
    Dim thisCall

    If Len( callback ) = 0 Then Exit Function

    If isArray( arr ) Then

        For key = 0 to uBound( arr )
            If isArray(arr(key)) or isObject(arr(key)) Then
                thisCall = "array_walk_recursive"
            Else
                thisCall = callback
            End If

            execute("call " & callback & "(arr(key),key,userdata)")
        Next

    ElseIf isObject( arr ) Then

        For Each key In arr
            If isArray(arr(key)) or isObject(arr(key)) Then
                thisCall = "array_walk_recursive"
            Else
                thisCall = callback
            End If

            execute("call " & callback & "(arr(key),key,userdata)")
        Next

    End If

    array_walk_recursive = true

End Function

GitHubで見る

引数

arr = array 入力の配列。
callback = callback 引数を二つとります。 array パラメータの値が最初の引数、キー/添字は二番目の引数となります。funcname により配列の値そのものを変更する必要がある場合、 funcname の最初の引数は参照として渡す必要があります。この場合、配列の要素に加えた変更は、配列自体に対して行われます。
userdata = array userdata パラメータが指定された場合、コールバック関数 funcname への三番目の引数として渡されます。