消息内的数字格式很好

Question

默认情况下，使用 StyleBox 打印字符串时，我们会在字符串内得到格式良好的数字：

StyleBox["some text 1000000"] // DisplayForm

我的意思是，这些数字看起来好像会有额外的小空格：“1 000 000”。

但在 Message 中，所有数字均显示为无格式：

f::NoMoreMemory = 
  "There are less than `1` bytes of free physical memory (`2` bytes \
is free). $Failed is returned.";
Message[f::NoMoreMemory, 1000000, 98000000]

有没有办法让 Message 中的数字进行格式化？

Answer 1

我将使用 Style 来应用 AutoNumberFormatting 选项：

您可以使用它来定位特定消息：

f::NoMoreMemory = 
 "There are less than `1` bytes of free physical memory (`2` bytes is free). $Failed is returned.";

Message[f::NoMoreMemory, 
 Style[1000000, AutoNumberFormatting -> True], 
 Style[98000000, AutoNumberFormatting -> True]]

或者您可以将它与 $MessagePrePrint 一起使用以将其应用到所有消息：

$MessagePrePrint = Style[#, AutoNumberFormatting -> True] &;

Message[f::NoMoreMemory, 1000000, 98000000]

Answer 2

我认为你想要 $MessagePrePrint

$MessagePrePrint = 
   NumberForm[#, DigitBlock -> 3, NumberSeparator -> " "] &;

或者，结合 Sjoerd 的建议：

With[
  {opts =
    AbsoluteOptions[EvaluationNotebook[],
     {DigitBlock, NumberSeparator}]},
  $MessagePrePrint = NumberForm[#, Sequence @@ opts] &];

采用 Brett Champion 的方法，我相信这允许复制和复制。按您的要求粘贴：

$MessagePrePrint = StyleForm[#, AutoNumberFormatting -> True] &;