I have this type of thing again and again in a long list: Row[{"F", ",", "G"}] and Row[{"B[Flat]", ",", "A"}] etc. I want these automatically replaced by "F","G" and "B[Flat]","A" etc.
$\begingroup$
$\endgroup$
Add a comment
|
2 Answers
$\begingroup$
$\endgroup$
2
{Row[{"F", ",", "G"}], Row[{"B[Flat]", ",", "A"}]} /. Row[x_] :> Select[x, # != "," &]
(* {{"F", "G"}, {"B[Flat]", "A"}} *)
answered May 10, 2020 at 17:37
-
-
$\begingroup$ @QuasarSupernova You are welcome. Thanks for the accept. $\endgroup$ Commented May 11, 2020 at 1:07
$\begingroup$
$\endgroup$
1
Row[DeleteCases[First[Row[{"F", ",", "G"}]], ","]]
-
1$\begingroup$ This gives FG. I want F,G $\endgroup$ Commented May 10, 2020 at 17:50