VBScript array_values function

A VBScript equivalent of PHP’s array_values


Function array_values(mAry)

    Dim tmp_ar
    Dim key,counter : counter= 0

    If isObject(mAry) Then

        ReDim tmp_ar(mAry.Count -1)

        For Each key In mAry
            If isObject(mAry(key)) Then
                set tmp_ar(counter) = mAry(key)
            Else
                tmp_ar(counter) = mAry(key)
            End if
            counter = counter + 1
        Next

    ElseIf isArray(mAry) Then
        tmp_ar = mAry
    End If

    array_values = tmp_ar

End Function

Please also note that php.vbs offers community built functions and goes by the McDonald’s Theory. We’ll put online functions that are far from perfect, in the hopes to spark better contributions. Do you have one? Then please just:

Other PHP functions in the array extension