Как преобразовать выходную ячейку в текстовую, не имея «» в тексте?

Question

Это часть моего кода:

Grid[{{"Número de indivíduos", "Máximo", "Mínimo", "Mediana", "Média", "Desvio Padrão"}},
Dividers -> Center] // TextCell // CellPrint

И в результате я получаю следующее:

"Número de indivíduos" | «Максимо» | «Минимо» | «Медиана» | «Медиа» | "Desvio Padrão"

Но я хочу получить этот результат без кавычек, как мне это сделать?

Answer 1

По сути, то, что определяет, отображаются ли в строке кавычки или нет, - это Cellопция ShowStringCharacters. Для выходных ячеек этот параметр установлен на False:

CurrentValue[{StyleDefinitions, "Output", ShowStringCharacters}]

Ложь

Следовательно, выходные ячейки не будут отображать кавычки:

Grid[
    {{"Número de indivíduos", "Máximo", "Mínimo", "Mediana", "Média", "Desvio Padrão"}},
    Dividers -> Center
] // TextCell

Если вы также настаиваете на использовании CellPrint:

Grid[
    {{"Número de indivíduos", "Máximo", "Mínimo", "Mediana", "Média", "Desvio Padrão"}},
    Dividers -> Center
] // TextCell //CellPrint

затем вы создаете следующий Cellобъект (вы можете увидеть это, используя Cell | Show Expressionиз меню):

Ячейка [BoxData [TagBox [GridBox [{{"" <N [UAcute] mero de indiv [IAcute] duos> "", "" <M [AAcute] ximo> "", "" <M [IAcute] nimo> " "," "<Mediana>" "," "<M [EAcute] dia>" "," "<Desvio Padr [ATilde] o>" "}}, AutoDelete-> False, GridBoxDividers -> {" Столбцы "- > {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic }}}], «Сетка»]], GeneratedCell-> True, CellAutoOverwrite-> True, CellChangeTimes -> {3.806851714647841 * ^ 9}]

Обратите внимание, что эта ячейка не имеет типа (например, «Вывод») в качестве второго аргумента, в отличие от второго аргумента GeneratedCell -> True. Итак, значение параметра - значение по умолчанию:

CurrentValue[ShowStringCharacters]

Правда

Вот почему добавление CellPrint(которое совершенно не нужно) показывает кавычки. Если вам действительно необходимо использовать CellPrint, вы можете изменить свой, TextCellуказав этот параметр:

TextCell[
    Grid[
        {{"Número de indivíduos", "Máximo", "Mínimo", "Mediana", "Média", "Desvio Padrão"}},
        Dividers -> Center
    ],
    ShowStringCharacters->False
] //CellPrint

Answer 2

Вывод со стилем «Печать»

Сетка [{{"Текст 1", Стиль ["Текст 2", RGBColor [0.8, 0.35, 0], Полужирный, FontFamily -> "Франклин Готический", FontSize -> 17], "Текст 3", Стиль ["Текст 4 ", RGBColor [0, 0.5, 0.5], FontFamily ->" Garamond "FontSize -> 20]}}, Dividers -> All] // Печать