是否有一种快速(自动)的方法可以使用 emacs 从目录中的所有文件创建一个长文件?IE
>Text_1.txt
>{contents of Text_1}
>Text_2.txt
>{contents of text2}
>FinalResult.txt
>{contents of Text_1
>contents of Text2}
是否有一种快速(自动)的方法可以使用 emacs 从目录中的所有文件创建一个长文件?IE
>Text_1.txt
>{contents of Text_1}
>Text_2.txt
>{contents of text2}
>FinalResult.txt
>{contents of Text_1
>contents of Text2}
这个怎么样:
(defun insert-my-files ()
(interactive)
(let ((dir (read-directory-name "Directory to insert: ")))
(mapc #'(lambda (file)
(let ((file-full (concat dir file)))
(insert-file-contents file-full)))
(cddr (directory-files dir)))))
用 调用它M-x insert-my-files
,它将插入您提供的目录的内容。
我不知道您是否称其为快速方法,但insert-file
可用于将文件插入现有缓冲区。
但是,对于您正在谈论的特定情况,最快的方法可能是从命令行:cat * > FinalResult.txt