Dictionary of arrays

Desktop & Console
1

As asked on the main forums https://forum.xojo.com/60210-dictionary-of-arrays

This is absolutely possible


for each f as FolderItem in folder.children
  if f.IsFolder then
    CheckForDupes(f)
  end if
  if not f.IsFolder then
    If Not g_FilenameDictionary.HasKey(name) Then
      g_FilenameDictionary.Value(name) = 1
      Dim paths() As String
      paths.append path
      g_pathsDictionary.value(name) = paths
    Else
      g_FilenameDictionary.value(name) = g_FilenameDictionary.Value(name) + 1
      Dim paths() As String = g_pathsDictionary.Value(name)
      paths.append path
      g_pathsDictionary.value(name) = paths
    End If
  end if
next

and to dump the data

For Each key As String In g_pathsDictionary.keys
  
  System.debuglog key
  Dim paths() As String = g_pathsDictionary.value(key)
  
  For Each path As String In paths
    System.debuglog "   " + path
  Next
  
Next