Array Dump (Alias of PHP's var_dump()) Version 1

				
//**************************************
// Name: Array Dump (Alias of PHP's var_dump()) Version 1
// Description:When working with arrays, there is no easy way, that i have found, to easily display a dump of the array while debugging. So this function dumps, an easy-to-read string version of all the objects in the array.
// By: Stephen Mason
//
// Inputs:Example:
Msgbox(var_dump(array))
//
// Returns:The code returns a string dump of the array
//
// Assumes:Make sure you dont just call the function other nothing will happen you need to use either:
Dim dump as string = var_dump(array)
or:
msgbox(var_dump(array))
Etc...
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=4340&lngWId=10//for details.//**************************************

'========================================================
 'Mason Solutions 
 'Stephen Mason
 'http://mason-solutions.co.uk
 'steve@mason-solutions.co.uk
 '$id = var_dump() V1
 '=========================================================
 Public Function var_dump(ByVal ar As Array)
Dim rm As String
Dim i As Integer = 0
If ar.GetType.IsArray = True Then
 rm &= "array(" & ar.Length & ") {" & vbCrLf
 For Each var As String In ar
rm &= Space(2) & "[" & i & "]=>" & vbCrLf
rm &= TypeName(var).Replace("()", "") & "(" & len(var) & ") "
If TypeName(var) = "array()" Then
 Dim v() As String
 v = var.Split("")
 rm &= var_dump(v) & vbCrLf
Else
 rm &= Chr(34) & var & Chr(34) & vbCrLf
End If
i += 1
 Next
 rm &= "}"
Else
 rm = "Error: Given array is not an array!!!"
 Throw New System.Exception("Given array is not an array!!!")
End If
Return rm
 End Function