从列表方案

Question

删除字符例如

我有一个文件testing.txt读取

read 3 4 

考虑

(define file(open-input file "testing.txt")) 

我想删除r在read代替整个字，我想更新文件没有第一个字符r，我知道我不能使用这个使用cdr file，因为它会删除单词read。

有什么建议吗？

Answer 1

一些提示你的功课。这将返回一个列表，文件的每一行列表中的一个字符串：

(define lines (file->lines "testing.txt")) 

这个过程将输入text写在给定path一个文件，覆盖文件的内容：

(define (write-to-a-file path txt) 
    (call-with-output-file path 
    (lambda (output-port) 
     (display txt output-port)) 
    #:exists 'replace)) 

您可以使用程序string->list，list->string（见documentation）car和cdr操纵由file->lines返回的列表，并编写使用write-to-a-file生成的文本。现在你拥有了你自己需要解决的所有问题。