Bagaimana cara mengubah sel keluaran dalam sel teks tanpa "" di teks?
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
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 Expression
dari 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

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