How to split list to strings?

Question

Considering a list:

lst = {"1", "2", "3", "4", "5", "6"}

How can I have two strings :

str1 = "1, 2, 3"
str2 = "4, 5, 6"

Thanks!

Answer 1

 StringTake[ToString@#, {2, -2}] & /@ Partition[lst, 3]

{"1, 2, 3", 
 "4, 5, 6"} 

Answer 2

Assuming you always want strings with 3 items:

Map[StringJoin @@ Riffle[#, ", "] &, Partition[Map[ToString, lst], 3]]

Answer 3

This is very similar to your previous question and so is the solution:

lst = {"1", "2", "3", "4", "5", "6"}

ToString @ Row[#, ", "] & /@ Partition[lst, 3]

{"1, 2, 3", "4, 5, 6"}

Answer 4

lst = {"1", "2", "3", "4", "5", "6"};
Developer`PartitionMap[StringTrim[ToString@#, "{" | "}"] &, lst, 3]
(* {"1, 2, 3", "4, 5, 6"} *)

Answer 5

This gives exactly the output you wrote down:

str1 = StringDrop[StringDrop[ToString@Partition[lst, 3][[1]], 1], -1]
str2 = StringDrop[StringDrop[ToString@Partition[lst, 3][[2]], 1], -1]

Could be made more elegant of course, and more flexible.

---

EDIT to make it more elegant:

TableForm[StringJoin /@ Partition[lst, 3]]

for display without the commas.