Skip to content

Instantly share code, notes, and snippets.

@whamtet

whamtet/check-spreadsheet.clj

Last active May 30, 2016 15:39
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save whamtet/f37dadaa98ffedd08b75117936a01994 to your computer and use it in GitHub Desktop.
Save whamtet/f37dadaa98ffedd08b75117936a01994 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
check-spreadsheet.clj
(require '[excel-repl.interop :as interop])
(require '[clojure.string :as str])
(defn parse [s]
(if (string? s) (-> s (str/replace " " "") Double/Parse)))
(def our-data (map first (interop/get-values "Sheet2" "S1:S1000")))
(def our-members (filter number? our-data))
(def addresses
(into {}
(for [[memb-num name surname] (interop/get-values "Sheet1" "A2:C60287")]
[(parse memb-num) (str name " " surname)])))
(addresses (last our-members))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment