如何将变量的内容写入REBOL2中的文本文件？

新手问题在这里。。。 我想将“what”函数的输出写入文本文件

以下是我所做的：

我创建了一个名为“text”的变量，并将“what”的输出分配给它

文本：[什么]

现在我想把“text”变量的内容写入一个txt文件

---

感谢您的帮助。提前谢谢

不幸的是，

what

函数实际上没有返回值：

在控制台中尝试以下操作：

 print ["Value of `what` is: " what]

因此

写入%filename.txt[什么]

将不起作用

相反，您可以做的是查看

what

source what

返回：

what: func [
    "Prints a list of globally-defined functions."
    /local vals args here total
][
    total: copy []
    vals: second system/words
    foreach word first system/words [
        if any-function? first vals [
            args: first first vals
            if here: find args /local [args: copy/part args here]
            append total reduce [word mold args]
        ]
        vals: next vals
    ]
    foreach [word args] sort/skip total 2 [print [word args]]
    exit
]

请注意，此函数仅打印（它不返回它找到的值）。我们可以修改脚本以执行您想要的操作：

new-what: func [
    "Returns a list of globally-defined functions."
    /local vals args here total collected
][
    collected: copy []
    total: copy []
    vals: second system/words
    foreach word first system/words [
        if any-function? first vals [
            args: first first vals
            if here: find args /local [args: copy/part args here]
            append total reduce [word mold args]
        ]
        vals: next vals
    ]
    foreach [word args] sort/skip total 2 [append collected reduce [word tab args newline]]
    write %filename.txt collected
    exit
]

这个函数有点粗糙（设置了文件名，但它会返回您想要的内容）。您可以扩展该函数以接受文件名或执行任何您想要的操作。

选项卡

和

换行符

可以使文件输出更加美观

需要注意的重要事项如下：

打印返回未设置

使用

source

了解函数的作用

write%filename value

将一次性向文件中写入一个值。如果你

打开一个文件，你可以写更多次

---

非常简单：如果您只想保存一些文本，请使用

write

，然后使用

read

恢复它；如果要存储某些数据，请使用

save

，然后使用

load

恢复数据

>> write %file.txt "Some Text"
>> read %file.txt
== "Some Text"

>> text: [what]
>> save/all %file.r text
>> load %file.r
== [what]

---

您可以在以下提示下获得有关每个单词的更多信息：

帮助保存

或联机查看：，以及。

将语句输出写入文件的最简单方法是使用

echo %file.log
what

使用

echo none

结束此操作

>> help echo
USAGE:
      ECHO target 

DESCRIPTION:
     Copies console output to a file.
     ECHO is a function value.

ARGUMENTS:
     target -- (Type: file none logic)

(SPECIAL ATTRIBUTES)
     catch