|
123456789101112131415161718192021222324252627282930313233343536 |
- /* ====================================================================
- Licensed to the Apache Software Foundation (ASF) under one or more
- contributor license agreements. See the NOTICE file distributed with
- this work for additional information regarding copyright ownership.
- The ASF licenses this file to You under the Apache License, Version 2.0
- (the "License"); you may not use this file except in compliance with
- the License. You may obtain a copy of the License at
-
- http://www.apache.org/licenses/LICENSE-2.0
-
- Unless required by applicable law or agreed to in writing, software
- distributed under the License is distributed on an "AS IS" BASIS,
- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
- See the License for the specific language governing permissions and
- limitations under the License.
- ==================================================================== */
-
- (ns poi.core
- (:gen-class)
- (:use [clojure.java.io :only [input-stream]])
- (:import [org.apache.poi.ss.usermodel WorkbookFactory DataFormatter]))
-
-
- (defn sheets [wb] (map #(.getSheetAt wb %1) (range 0 (.getNumberOfSheets wb))))
-
- (defn print-all [wb]
- (let [df (DataFormatter.)]
- (doseq [sheet (sheets wb)]
- (doseq [row (seq sheet)]
- (doseq [cell (seq row)]
- (println (.formatAsString (.getAddress cell)) ": " (.formatCellValue df cell)))))))
-
- (defn -main [& args]
- (when-let [name (first args)]
- (let [wb (WorkbookFactory/create (input-stream name))]
- (print-all wb))))
|