Hộp thoại Clojure để chọn tệp có bộ lọc cho các phần mở rộng của tệp

Question

Đây là trình thu thập thông tin liên tục cho người mới bắt đầu sử dụng lipster trên Clojure và Java. Tôi có mã này để chọn tệp nhưng tôi muốn lọc các tiện ích mở rộng của tệp mà tôi đang tìm kiếm.

(import javax.swing.JFileChooser) 
(defn tlt-get-file [ ] 
     (let [ filechooser (JFileChooser. "C:/") 
       retval (.showOpenDialog filechooser nil) ] 
      (if (= retval JFileChooser/APPROVE_OPTION) 
      (do 
       (println (.getSelectedFile filechooser)) 
       (.getSelectedFile filechooser)) 
       ""))) 

Trợ giúp của bạn luôn được đánh giá cao.

Answer 1

(import '(javax.swing JFileChooser) 
     '(javax.swing.filechooser FileNameExtensionFilter)) 
(defn tlt-get-file [ ] 
     (let [ extFilter (FileNameExtensionFilter. "Text File" (into-array ["txt"])) 
       filechooser (JFileChooser. "C:/") 
       dummy (.setFileFilter filechooser extFilter) 
       retval (.showOpenDialog filechooser nil) ] 
      (if (= retval JFileChooser/APPROVE_OPTION) 
      (do 
       (println (.getSelectedFile filechooser)) 
       (.getSelectedFile filechooser)) 
       ""))) 

Answer 2

Bạn cần set the file filter, bạn có thể thực hiện bằng cách mở rộng lớp FileFilter hoặc sử dụng triển khai được cài sẵn như FileNameExtensionFilter. Lưu ý rằng FNEF lấy các đối số biến trong Java, có nghĩa là nó lấy một mảng trong bytecode JVM thực tế. Vì vậy, một cái gì đó như

(FileNameExtensionFilter. 
"Text files only" 
(into-array ["txt"])) 

sẽ là một bộ lọc đơn giản, hợp lý.

Hoặc nếu bạn muốn làm điều gì đó chuyên biệt hơn, như chỉ chấp nhận các tiện ích mở rộng có J trong đó, bạn có thể tự triển khai chế độ lọc. Đáng buồn thay, Java đã chọn để làm cho một lớp trừu tượng 100% thay vì một giao diện, vì vậy bạn không thể sử dụng reify. Trong một thế giới lý tưởng bạn có thể viết

(reify java.io.FileFilter 
    (getDescription [this] "Java loves Js!") 
    (accept [this f] 
    (boolean (re-find #"\..*j[^.]*$" (.getName f))))) 

nhưng Java yêu lớp, vì vậy thay vào đó bạn cần

(proxy [java.io.FileFilter] [] 
    (getDescription [] "Java loves Js!") 
    (accept [f] 
    (boolean (re-find #"\..*j[^.]*$" (.getName f)))))