Nice trick, the following method does the trick:
In[25]:= step1= StringReplace[#,{"{"->"[","}"->"]"}]&@ ToString@ getRotMat["CubiFace",#]&/@PGinfo[[32]][[7]];
step2 = "[" <> StringJoin@ Riffle[step1, ",\n"] <> "]"
Out[26]= "[[[0, 0, -1], [-1, 0, 0], [0, -1, 0]],
[[1, 1, 1], [0, 0, -1], [0, -1, 0]],
[[0, -1, 0], [-1, 0, 0], [1, 1, 1]],
[[-1, 0, 0], [1, 1, 1], [0, 0, -1]]]"
But I think that the slightly modified version below is more portable:
In[791]:= step1=StringReplace[#,{"{"->"[","}"->"]"}]&@ ToString[#]&/@ getRotMat["CubiFace",#]&/@PGinfo[[32]][[7]]
step2="[" <> StringJoin@ Riffle[step1, ",\n"] <> "]"
Out[791]= {{"[0, 0, -1]", "[-1, 0, 0]", "[0, -1, 0]"}, {"[1, 1, 1]",
"[0, 0, -1]", "[0, -1, 0]"}, {"[0, -1, 0]", "[-1, 0, 0]",
"[1, 1, 1]"}, {"[-1, 0, 0]", "[1, 1, 1]", "[0, 0, -1]"}}
Out[792]= "[[0, 0, -1][-1, 0, 0][0, -1, 0],
[1, 1, 1][0, 0, -1][0, -1, 0],
[0, -1, 0][-1, 0, 0][1, 1, 1],
[-1, 0, 0][1, 1, 1][0, 0, -1]]"
Here is another example using this trick:
In[793]:= (*
List the C2v generators and the corresponding matrices.
*)
showPGinfo[];
C2v=Select[PGinfo, StringMatchQ[#[[2]], "C2v"] &];
(*posC2v=Position[PGinfo, #] & /@ C2v*)
genC2v=C2v[[1]][[7]];
generateGroup[genC2v,"E", RotTimes];
getRotMat[getSGLatt[25],#]&/@%;
step1=StringReplace[#,{"{"->"[","}"->"]"}]&@ ToString[#]&/@ %
step2="[" <> StringJoin@ Riffle[step1, ",\n"] <> "]"
Out[798]= {"[[-1, 0, 0], [0, -1, 0], [0, 0, 1]]", "[[1, 0, 0], [0, 1, \
0], [0, 0, 1]]", "[[1, 0, 0], [0, -1, 0], [0, 0, 1]]", "[[-1, 0, 0], \
[0, 1, 0], [0, 0, 1]]"}
Out[799]= "[[[-1, 0, 0], [0, -1, 0], [0, 0, 1]],
[[1, 0, 0], [0, 1, 0], [0, 0, 1]],
[[1, 0, 0], [0, -1, 0], [0, 0, 1]],
[[-1, 0, 0], [0, 1, 0], [0, 0, 1]]]"