如何从序列中去除双引号（“）字符

Question

我有一个序列序列，每个序列类似于以下：

(“9990999”“43”“ROADWAY”“MORISON，VAN X DMD”“43 ROADWAY”“SOMETHINGTON”“XA”“00000”“501”“18050”“2500”“1180”“14370”“0 ")

clojure-csv 在这里对我没有帮助，因为它——它应该——用嵌入的逗号引用字段。我想要在每个字段周围不带引号的管道分隔输出，其中一些包含嵌入的逗号。

我已经研究了多种删除双引号字符的方法，包括以下内容，但引号保持不变。

(filter (fn [x] (not (= (str (first (str x))) (str (first (str \")))))) d1)

其中 d1 是上面的序列。

除了答案之外，我更感兴趣的是指向文档的指针。我一直在玩这个，但无济于事。

Answer 1

据我了解，您有一系列字符串。 Clojure 为序列提供了一个非常具体的 toString 实现，你可以看到它here。

如果您输入(str d1) 或直接在repl 中输入d1 并按回车，您将或多或少看到您输入的内容：字符串序列（字符串打印为双引号中的字符序列）。

现在如果你想连接所有的字符串，你可以这样做：

(apply str d1)

如果你想用逗号分隔打印它，你可以这样做：

(apply str (interpose "," d1))

输出是 CSV 格式，我建议使用clojure-csv。

最后，如果您只是想打印列表，但字符串周围没有双引号，您可以这样做：

(print d1)

希望这会有所帮助。

---

EDIT1（由于问题的变化而更新）：

这可以通过以下方式轻松实现：

(apply str (interpose "|" d1))

如果您将print 它或spit 它放入一个您看不到它们的文件中，请不要注意整个结果周围的双引号，这正是 Clojure 打印字符串 readably 的方式。

或者，如果您有多个这样的序列想要一次输出，您仍然可以使用 clojure-csv，但使用不同的分隔符：

(ns csv-test.core
  (:require [clojure-csv.core :as csv]))

(def d1 (list "9990999" "43" "ROADWAY" "MORRISON, VAN X DMD" "43 ROADWAY" "SOMETHINGTON" "XA" "00000" "501" "18050" "2500" "1180" "14370" "0"))
(print (csv/write-csv [d1]  :delimiter "|"))
;;prints:
;;9990999|43|ROADWAY|MORRISON, VAN X DMD|43 ROADWAY|SOMETHINGTON|XA|00000|501|18050|2500|1180|14370|0