使用球拍编辑文件中的文本

Question

我有一个球拍程序（包括文件）的其他几个文件，其中一些文件包含我想使用主程序中的函数更新的球拍代码。 IE。这就是我要编辑的文件的样子（基本上）

(define somethings '(
        (some list)
        (some other list)
        (yet another list)))

我希望能够在列表中添加更多内容，我认为有更好的方法可以做到这一点，但由于我是新手，所以我首先尝试了：

(define (update-file arg1 arg2 arg3 . args)
    (call-with-output-file "somefile.rkt" #:exists 'append
       (lambda (output-port)
          (print "\b\b" output-port) ;; have tried several variations of this they all 
          (do other things)          ;; print the backspaces literally rather than 
          (display "))" output-port) ;; removing characters
          (newline output-port))))

我认为问题既是 A：我正在使用 append，它可能只是在最后粘贴东西（但更新和截断似乎不是答案）和 B：打印 \b 不能像我一样工作正在尝试使用它... :)

我现在正绝望地浏览 Racket 的文档，但我是编程新手，所以大部分内容还没有任何意义。是否有某种方法可以使该特定功能起作用，如果是的话，是否值得，或者是否有更好的方法来实现相同的结果？

非常感谢

Answer 1

试试这个：

(call-with-input-file "somefile.rkt"
  (lambda (in)
    (let* ((input  (call-with-input-string (port->string in) read))
           (output (list (car input)  ; define
                         (cadr input) ; somethings
                         (list 'quote
                               (append
                                (car (cdaddr input))      ; old list
                                '((do other things))))))) ; new elements
      (call-with-output-file "somefile.rkt" #:exists 'replace
        (lambda (out)
          (write output out))))))

这是正在发生的事情：

1. 首先，我们将read的内容"somefile.rkt"转换成一个名为input的变量，结果是一个S-Expressions列表
2. 然后，按照 Chris 的建议，我们使用标准操作操作该列表，直到它具有所需的值
3. 最后，我们write将结果返回到同一个文件中，覆盖之前的内容

最后，"somefile.rkt" 将包含以下文本：

(define somethings
  (quote
   ((some list)
    (some other list)
    (yet another list)
    (do other things))))

不用担心quote，这和写' 是一样的。唯一需要注意的是，文本的原始格式将丢失，所有内容都显示在一行中。