Return to Answer

added 460 characters in body

edited May 8, 2015 at 14:49

26.5k
6
78
172

Here is one way:

splitAndGroup[list_List]:=Module[{splitedList}, splitedList=MapAt[StringSplit[#,"."]&,list,{All,1}]; Normal@GroupBy[splitedList,(#[[1,1]]&),MapAt[Last,{All,1}]] ] convert[list_List]:=Map[splitAndGroup,lst,{-3}]

Now using:

lst = { "A" -> {"A1" -> {"a.124" -> "45", "a.125" -> "45"}, "A2" -> "something", "B" -> {"b[1].sqw" -> "true", "b[1].ewq" -> "false", "b[2].tyy" -> "saved", "b[2].bfg" -> "iid:"}, "C" -> "eb9d"} }

You can do convert@lst to get:

 { "A"->{"A1"->{"a"->{124->45,125->45}}, "A2"->"something", "B"->{"b[1]"->{"sqw"->"true","ewq"->"false"}, "b[2]"->{"tyy"->"saved","bfg"->"iid:"}} ,"C"->"eb9d"} }

And if you need it in Association form:

Needs["GeneralUtilities`"] ToAssociations@convert@lst <| "A"-><|"A1"-><|"a"-><|"124"->"45","125"->"45"|>|>, "A2"->"something", "B"-><|"b[1]"-><|"sqw"->"true","ewq"->"false"|>, "b[2]"-><|"tyy"->"saved","bfg"->"iid:"|>|>, "C"->"eb9d"|> |>

Update

For the real case, there are lists that should not be splited. Like this one:

"dc" -> {"creator" -> "unknown", "format" -> "image/jpeg"}

Just add a If in splitAndGroup, like this:

splitAndGroup[list_List]:=Module[{splitedList}, splitedList=MapAt[StringSplit[#,"."]&,list,{All,1}]; If[Length@splitedList[[1,1]]==1,Return@list]; Normal@GroupBy[splitedList,(#[[1,1]]&),MapAt[Last,{All,1}]] ]

Here is one way:

splitAndGroup[list_List]:=Module[{splitedList}, splitedList=MapAt[StringSplit[#,"."]&,list,{All,1}]; Normal@GroupBy[splitedList,(#[[1,1]]&),MapAt[Last,{All,1}]] ] convert[list_List]:=Map[splitAndGroup,lst,{-3}]

Now using:

lst = { "A" -> {"A1" -> {"a.124" -> "45", "a.125" -> "45"}, "A2" -> "something", "B" -> {"b[1].sqw" -> "true", "b[1].ewq" -> "false", "b[2].tyy" -> "saved", "b[2].bfg" -> "iid:"}, "C" -> "eb9d"} }

You can do convert@lst to get:

 { "A"->{"A1"->{"a"->{124->45,125->45}}, "A2"->"something", "B"->{"b[1]"->{"sqw"->"true","ewq"->"false"}, "b[2]"->{"tyy"->"saved","bfg"->"iid:"}} ,"C"->"eb9d"} }

And if you need it in Association form:

Needs["GeneralUtilities`"] ToAssociations@convert@lst <| "A"-><|"A1"-><|"a"-><|"124"->"45","125"->"45"|>|>, "A2"->"something", "B"-><|"b[1]"-><|"sqw"->"true","ewq"->"false"|>, "b[2]"-><|"tyy"->"saved","bfg"->"iid:"|>|>, "C"->"eb9d"|> |>

Here is one way:

splitAndGroup[list_List]:=Module[{splitedList}, splitedList=MapAt[StringSplit[#,"."]&,list,{All,1}]; Normal@GroupBy[splitedList,(#[[1,1]]&),MapAt[Last,{All,1}]] ] convert[list_List]:=Map[splitAndGroup,lst,{-3}]

Now using:

lst = { "A" -> {"A1" -> {"a.124" -> "45", "a.125" -> "45"}, "A2" -> "something", "B" -> {"b[1].sqw" -> "true", "b[1].ewq" -> "false", "b[2].tyy" -> "saved", "b[2].bfg" -> "iid:"}, "C" -> "eb9d"} }

You can do convert@lst to get:

 { "A"->{"A1"->{"a"->{124->45,125->45}}, "A2"->"something", "B"->{"b[1]"->{"sqw"->"true","ewq"->"false"}, "b[2]"->{"tyy"->"saved","bfg"->"iid:"}} ,"C"->"eb9d"} }

And if you need it in Association form:

Needs["GeneralUtilities`"] ToAssociations@convert@lst <| "A"-><|"A1"-><|"a"-><|"124"->"45","125"->"45"|>|>, "A2"->"something", "B"-><|"b[1]"-><|"sqw"->"true","ewq"->"false"|>, "b[2]"-><|"tyy"->"saved","bfg"->"iid:"|>|>, "C"->"eb9d"|> |>

Update

For the real case, there are lists that should not be splited. Like this one:

"dc" -> {"creator" -> "unknown", "format" -> "image/jpeg"}

Just add a If in splitAndGroup, like this:

splitAndGroup[list_List]:=Module[{splitedList}, splitedList=MapAt[StringSplit[#,"."]&,list,{All,1}]; If[Length@splitedList[[1,1]]==1,Return@list]; Normal@GroupBy[splitedList,(#[[1,1]]&),MapAt[Last,{All,1}]] ]

deleted 5 characters in body

Source Link

edited May 8, 2015 at 14:32

Murta

26.5k
6
78
172

Here is one way:

splitAndGroup[list_List]:=Module[{splitedList,head}, splitedList=MapAt[StringSplit[#,"."]&,list,{All,1}]; Normal@GroupBy[splitedList,(#[[1,1]]&),MapAt[Last,{All,1}]] ] convert[list_List]:=Map[splitAndGroup,lst,{-3}]

Now using:

lst = { "A" -> {"A1" -> {"a.124" -> "45", "a.125" -> "45"}, "A2" -> "something", "B" -> {"b[1].sqw" -> "true", "b[1].ewq" -> "false", "b[2].tyy" -> "saved", "b[2].bfg" -> "iid:"}, "C" -> "eb9d"} }

You can do convert@lst to get:

 { "A"->{"A1"->{"a"->{124->45,125->45}}, "A2"->"something", "B"->{"b[1]"->{"sqw"->"true","ewq"->"false"}, "b[2]"->{"tyy"->"saved","bfg"->"iid:"}} ,"C"->"eb9d"} }

And if you need it in Association form:

Needs["GeneralUtilities`"] ToAssociations@convert@lst <| "A"-><|"A1"-><|"a"-><|"124"->"45","125"->"45"|>|>, "A2"->"something", "B"-><|"b[1]"-><|"sqw"->"true","ewq"->"false"|>, "b[2]"-><|"tyy"->"saved","bfg"->"iid:"|>|>, "C"->"eb9d"|> |>

Here is one way:

splitAndGroup[list_List]:=Module[{splitedList,head}, splitedList=MapAt[StringSplit[#,"."]&,list,{All,1}]; Normal@GroupBy[splitedList,(#[[1,1]]&),MapAt[Last,{All,1}]] ] convert[list_List]:=Map[splitAndGroup,lst,{-3}]

Now using:

lst = { "A" -> {"A1" -> {"a.124" -> "45", "a.125" -> "45"}, "A2" -> "something", "B" -> {"b[1].sqw" -> "true", "b[1].ewq" -> "false", "b[2].tyy" -> "saved", "b[2].bfg" -> "iid:"}, "C" -> "eb9d"} }

You can do convert@lst to get:

 { "A"->{"A1"->{"a"->{124->45,125->45}}, "A2"->"something", "B"->{"b[1]"->{"sqw"->"true","ewq"->"false"}, "b[2]"->{"tyy"->"saved","bfg"->"iid:"}} ,"C"->"eb9d"} }

And if you need it in Association form:

Needs["GeneralUtilities`"] ToAssociations@convert@lst <| "A"-><|"A1"-><|"a"-><|"124"->"45","125"->"45"|>|>, "A2"->"something", "B"-><|"b[1]"-><|"sqw"->"true","ewq"->"false"|>, "b[2]"-><|"tyy"->"saved","bfg"->"iid:"|>|>, "C"->"eb9d"|> |>

Here is one way:

splitAndGroup[list_List]:=Module[{splitedList}, splitedList=MapAt[StringSplit[#,"."]&,list,{All,1}]; Normal@GroupBy[splitedList,(#[[1,1]]&),MapAt[Last,{All,1}]] ] convert[list_List]:=Map[splitAndGroup,lst,{-3}]

Now using:

lst = { "A" -> {"A1" -> {"a.124" -> "45", "a.125" -> "45"}, "A2" -> "something", "B" -> {"b[1].sqw" -> "true", "b[1].ewq" -> "false", "b[2].tyy" -> "saved", "b[2].bfg" -> "iid:"}, "C" -> "eb9d"} }

You can do convert@lst to get:

 { "A"->{"A1"->{"a"->{124->45,125->45}}, "A2"->"something", "B"->{"b[1]"->{"sqw"->"true","ewq"->"false"}, "b[2]"->{"tyy"->"saved","bfg"->"iid:"}} ,"C"->"eb9d"} }

And if you need it in Association form:

Needs["GeneralUtilities`"] ToAssociations@convert@lst <| "A"-><|"A1"-><|"a"-><|"124"->"45","125"->"45"|>|>, "A2"->"something", "B"-><|"b[1]"-><|"sqw"->"true","ewq"->"false"|>, "b[2]"-><|"tyy"->"saved","bfg"->"iid:"|>|>, "C"->"eb9d"|> |>

added 37 characters in body

Source Link

edited May 8, 2015 at 14:23

Murta

26.5k
6
78
172

Here is one way:

splitAndGroup[list_List]:=Module[{splitedList,head}, splitedList=MapAt[StringSplit[#,"."]&,list,{All,1}]; Normal@GroupBy[splitedList,(#[[1,1]]&),MapAt[Last,{All,1}]] ] convert[list_List]:=Map[splitAndGroup,lst,{-3}]

Now using:

lst = { "A" -> {"A1" -> {"a.124" -> "45", "a.125" -> "45"}, "A2" -> "something", "B" -> {"b[1].sqw" -> "true", "b[1].ewq" -> "false", "b[2].tyy" -> "saved", "b[2].bfg" -> "iid:"}, "C" -> "eb9d"} }

You can do convert@lst to get:

 { "A"->{"A1"->{"a"->{124->45,125->45}}, "A2"->something>"something", "B"->{"b[1]"->{sqw"sqw"->true>"true",ewq"ewq"->false>"false"}, "b[2]"->{tyy"tyy"->saved>"saved",bfg"bfg"->iid>"iid:"}} ,"C"->eb9d>"eb9d"} }

And if you need it in Association form:

Needs["GeneralUtilities`"] ToAssociations@convert@lst <| "A"-><|"A1"-><|"a"-><|"124"->"45","125"->"45"|>|>, "A2"->"something", "B"-><|"b[1]"-><|"sqw"->"true","ewq"->"false"|>, "b[2]"-><|"tyy"->"saved","bfg"->"iid:"|>|>, "C"->"eb9d"|> |>

Here is one way:

splitAndGroup[list_List]:=Module[{splitedList,head}, splitedList=MapAt[StringSplit[#,"."]&,list,{All,1}]; Normal@GroupBy[splitedList,(#[[1,1]]&),MapAt[Last,{All,1}]] ] convert[list_List]:=Map[splitAndGroup,lst,{-3}]

Now using:

lst = { "A" -> {"A1" -> {"a.124" -> "45", "a.125" -> "45"}, "A2" -> "something", "B" -> {"b[1].sqw" -> "true", "b[1].ewq" -> "false", "b[2].tyy" -> "saved", "b[2].bfg" -> "iid:"}, "C" -> "eb9d"} }

You can do convert@lst to get:

 { "A"->{"A1"->{"a"->{124->45,125->45}}, "A2"->something, "B"->{"b[1]"->{sqw->true,ewq->false},"b[2]"->{tyy->saved,bfg->iid:}} ,"C"->eb9d} }

Here is one way:

splitAndGroup[list_List]:=Module[{splitedList,head}, splitedList=MapAt[StringSplit[#,"."]&,list,{All,1}]; Normal@GroupBy[splitedList,(#[[1,1]]&),MapAt[Last,{All,1}]] ] convert[list_List]:=Map[splitAndGroup,lst,{-3}]

Now using:

lst = { "A" -> {"A1" -> {"a.124" -> "45", "a.125" -> "45"}, "A2" -> "something", "B" -> {"b[1].sqw" -> "true", "b[1].ewq" -> "false", "b[2].tyy" -> "saved", "b[2].bfg" -> "iid:"}, "C" -> "eb9d"} }

You can do convert@lst to get:

 { "A"->{"A1"->{"a"->{124->45,125->45}}, "A2"->"something", "B"->{"b[1]"->{"sqw"->"true","ewq"->"false"}, "b[2]"->{"tyy"->"saved","bfg"->"iid:"}} ,"C"->"eb9d"} }

And if you need it in Association form:

Needs["GeneralUtilities`"] ToAssociations@convert@lst <| "A"-><|"A1"-><|"a"-><|"124"->"45","125"->"45"|>|>, "A2"->"something", "B"-><|"b[1]"-><|"sqw"->"true","ewq"->"false"|>, "b[2]"-><|"tyy"->"saved","bfg"->"iid:"|>|>, "C"->"eb9d"|> |>

Source Link

answered May 8, 2015 at 14:13

Murta

26.5k
6
78
172