rikukissa
8/16/2018 - 1:08 PM

Dictionary printer for Visual Basic

Dictionary printer for Visual Basic

Function PrintDict(Dict as Dictionary, Optional ByVal Stack as String = "")
  For Each Key In Dict.Keys()
    If TypeOf Dict(Key) Is Dictionary Then
      Debug.Print Stack & Key & ":"
      PrintDict Dict(Key), Stack & "  "
    Else
      Debug.Print Stack & Key & ": " & Dict(Key)
    End If
  Next
End Function