我有问题。 我需要从文本中删除单词并打印输出到文件结果（没有删除单词的文本）。
我试图删除单词：
(deffunction text ($?c)
(implode$(create$ ?c ))
(delete$ (?c) 1 3)
(printout t (?c) crlf))
这里有将其打印到文件的示例，但是如何使用上一个函数的结果进行打印？
CLIPS> (open "on.txt" data "w")
TRUE
CLIPS> (printout data 5)
CLIPS> (close data)
TRUE
CLIPS> (open "on.txt" data "r")
TRUE
CLIPS> (read data)
5
CLIPS> (close data)
我会对任何信息感到满意。