在功能中使用剪贴板

Question

如何在函数中使用剪贴板的内容？

当我使用Paste[]它时,将其复制到活动笔记本的当前单元格中.另一方面,我可以使用表达式轻松地将表达式放到剪贴板中CopyToClipboard[expr].

Answer 1

您可以尝试使用ClipboardNotebook []

In[1]:= CopyToClipboard[expression]

In[2]:= an[ToExpression[NotebookGet[ClipboardNotebook[]][[1, 1, 1]]]]

Out[2]= an[expression]

虽然你应该比我在上面的代码中更加小心.例如,参见Szabolcs的Mathematica技巧.