如何获取（不显示）节号

Question

通过使用 Insert > 插入自动编号对象 CounterBox["Section"]，可以对笔记本部分进行自动编号。自动编号... 菜单。但是，该对象仅控制节号的显示，我想获取其数值值以在程序中使用。知道该怎么做吗？

编辑
我想使用它的原因在这里概述。

Answer 1

用 TagBox 和已知标签包裹 CounterBox：

Cell[BoxData[TagBox[CounterBox["Section"], "tag"]], "Text"]

然后使用 FrontEnd`ObjectContents 将所有 DynamicBox/CounterBox/ValueBox 转换为文字并选出该 TagBox 的值：

x = First@Cases[FrontEnd`ObjectContents[nb, True], TagBox[x_, "tag"] :> x, \[Infinity]]

如果您只想知道某种类型的计数器有多少个有你可以做的：

x = FE`Evaluate[CurrentValue[{"MaxCounterValue", "Section"}]]

Answer 2

必须有更好的方法来做到这一点，但如果我明白你想做什么，这里有一些可行的方法。

创建一个笔记本来使用：

nb = CreateDocument[{
    Cell["My Title", "Title"],
    Cell["My first section", "Section"],
    Cell["My second section", "Section"],
    Cell[TextData[{"Section ",
       CounterBox["Section"]}], "Section"]}];

选择最后一个单元格，该单元格恰好是“部分”单元格。

SelectionMove[nb, After, Notebook];
SelectionMove[nb, Previous, Cell];

倒数。

cnt = sectionCnt = c = 0;
While[True, Print[c];
  c = NotebookRead[nb];
  If[c === {}, Break[]];
  If[c[[2]] == "Section", sectionCnt++];
  cnt++;
  SelectionMove[nb, Previous, Cell]];

现在 sectionCnt 应该包含您想要的值。您可以轻松地回到原来的位置：

Do[SelectionMove[nb, Next, Cell], {cnt}]