markdown 文件按行切割

Posted 2021-05-06

(ns alexcoding.sandbox.splitfile)

(require '[clojure.string :as str])

(def filenumberflag (atom 0))

(with-open [rdr (clojure.java.io/reader "/tmp/yuliaoku.txt")]
  (doseq [chunk (partition 1500 (line-seq rdr)) ]
    (with-open [w (clojure.java.io/writer (str "/tmp/yuliaoku_" (format "%03d" @filenumberflag) ".txt") :append true)]
      (doseq [line chunk]
        (.write w line)
        (.newLine w)))
    (swap! filenumberflag inc)
    (println @filenumberflag)
    ))