swuecho
6/8/2012 - 3:50 AM

convert all the xsl files to csv files in one directory

convert all the xsl files to csv files in one directory

;;;convert all the xsl files to csv files in one directory
;get all the file names in one directory
(def directory (clojure.java.io/file "C:/Users/echo/Dropbox/7000/data-sets"))
(def files (file-seq directory))
(def filestr (map str files))
;find all the xls files in the directory
(def xlsfiles (filter #(re-find #".xls" %) filestr))
;clojure.string/replace
(defn xsl2csv [x] (save (read-xls x) (clojure.string/replace x #"xls" "csv")))
;convert all the xls file to csv files
(map xsl2csv xlsfiles)