Bagaimana cara mengubah sel keluaran dalam sel teks tanpa "" di teks?

Aug 18 2020

Ini adalah bagian dari kode saya:

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

Dan hasil yang saya dapatkan adalah ini:

"Número de indivíduos" | "Máximo" | "Mínimo" | "Mediana" | "Média" | "Desvio Padrão"

Tetapi saya ingin mendapatkan hasil ini tanpa tanda kutip, bagaimana saya bisa melakukan ini?

Jawaban

1 CarlWoll Aug 19 2020 at 19:05

Pada dasarnya, yang mengontrol apakah sebuah string menampilkan tanda kutip atau tidak adalah Cellopsi ShowStringCharacters. Untuk sel keluaran, opsi ini disetel ke False:

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

Salah

Karenanya, sel keluaran tidak akan menampilkan tanda kutip:

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

Jika Anda bersikeras untuk menggunakan CellPrintjuga:

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

kemudian Anda membuat Cellobjek berikut (Anda dapat melihat ini dengan menggunakan Cell | Show Expressiondari menu):

Sel [BoxData [TagBox [GridBox [{{"" <N [UAcute] mero de indiv [IAcute] duos> "", "" <M [AAcute] ximo> "", "" <M [IAcute] nimo> " "," "<Mediani>" "," "<M [EAcute] dia>" "," "<Desvio Padr [ATilde] o>" "}}, AutoDelete-> False, GridBoxDividers -> {" Columns "- > {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic }}}], "Grid"]], GeneratedCell-> True, CellAutoOverwrite-> True, CellChangeTimes -> {3.806851714647841 * ^ 9}]

Perhatikan bahwa sel ini tidak memiliki tipe (misalnya, "Output") sebagai argumen kedua, seperti argumen kedua GeneratedCell -> True. Jadi, nilai opsinya adalah default:

CurrentValue[ShowStringCharacters]

Benar

Inilah sebabnya mengapa menambahkan CellPrint(yang sama sekali tidak perlu) menunjukkan tanda kutip. Jika Anda benar-benar harus menggunakan CellPrint, maka Anda dapat mengubah Anda TextCelluntuk menentukan opsi ini:

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

IntellectualDilettante Aug 19 2020 at 02:20

Keluaran dengan gaya "Cetak"

Kisi [{{"Text 1", Style ["Text 2", RGBColor [0.8, 0.35, 0], Bold, FontFamily -> "Franklin Gothic", FontSize -> 17], "Text 3", Style ["Teks 4 ", RGBColor [0, 0.5, 0.5], FontFamily ->" Garamond "FontSize -> 20]}}, Pembagi -> Semua] // Cetak