3

我想编写一个自定义 OpenOffice 函数，该函数运行一个 shell 命令并将结果放入调用它的单元格中。我有一个基本的宏工作，但我找不到捕获命令输出的方法。

Function MyTest( c1 )
    MyTest = Shell("bash -c "" echo hello "" ")
End Function

以上总是返回0。查看Shell命令的文档，我认为它实际上并没有返回 STDOUT。

我将如何捕获输出以便可以在我的函数中返回它？

4

2 回答 2

1

您可以将输出重定向到一个临时文件，然后用另一个命令读入该文件的内容吗？

例如，Shell("bash -c "" echo hello > tmp.txt "" ")

于 2010-07-14T20:31:14.040 回答
1

Kimbal Robinson 的答案有效，但有使用文件的缺点。它很慢（与仅使用内存相比），并且您必须在之后删除文件（尽管将其放在 /tmp 中，通常最终会自动删除）。

另一种方法是通过剪贴板传输数据：

Dim myCommand As String
myCommand = "echo hello world"
Shell ("bash", 1, "-c "" " & myCommand & " | xclip -selection clipboard"" ", true)
' setting the 4th parameter to true ensures that the Shell function will wait until '
' the command terminates before returning '

' then paste the content of the clipboard '
Dim dh As Object
dh = createUnoService("com.sun.star.frame.DispatchHelper")
dh.executeDispatch(StarDesktop.CurrentFrame, ".uno:Paste", "", 0, Array())

这会将命令的输出粘贴到活动文档的当前点。

请注意，如果命令发出多行，则会弹出“文本导入”对话框（我不知道如何防止这种情况）。

于 2013-05-02T11:29:00.087 回答