你好，朋友，
显示一些错误。请测试。
我不能没有适当的。csv文件，
我已经编辑了我发布的最后一个代码（忘记包括LM:csv->lst和LM:csv replacequotes子函数）-请重试。
亲爱的朋友，
文本形成如图所示。
这里我附上了正确格式的csv文件。请测试。你的帖子#7比帖子#10好，请提供代码的最终版本。
谢谢你。
测试文件。csv
样品图纸2。dxf
你说文本应该从“B”栏而不是“A”栏中摘录，但你的最后一个附件。csv文件文本位于“A”列。
根据您的决定，更改第#10页中的这行代码：
(setq LstRows (mapcar 'cadr (LM:readcsv f)))
收件人：
如果您想从列“A”中提取（这对您最后上载的文件有效）：
(setq LstRows (mapcar 'car (LM:readcsv f)))
如果要从“B”列中提取：
(setq LstRows (mapcar 'cadr (LM:readcsv f)))
如果要从“C”列中提取：
(setq LstRows (mapcar 'caddr (LM:readcsv f)))
等等 哦，对不起，朋友，修改csv文件是不幸的。我为我的错误道歉。我会尝试你的最新代码并给出反馈。
感谢您的友好支持。 亲爱的朋友，
我用以下代码进行了测试：仅用于“B”和“D”列的摘录。但误差未按上图纠正：
请测试并纠正我在lisp编程方面的错误知识。
谢谢你。
样品图纸2。dxf
测试文件。csv 你能至少上传一个截图，看看你的csv里面是什么样子，而不是上传吗。
就像这样（我现在看到的）：
所以我可以知道我们在处理什么（因为我觉得我完全误解了任务，因为提供了.csv文件）。 显然，OP希望你为他提供他需要的，而不是他要求的。两件不同的事不？
这似乎就是为什么OPs的请求没有那么容易得到回答的原因，因为问题/提供的文件不清楚。
虽然他的任务是可以解决的，但为什么需要多发2-3页垃圾邮件才能理解真正的需求是什么。
在这里，您可以看到一个简单的请求，直到我们发现实际上我们必须处理损坏的几何体，而不是“矩形”对象。
“我想要一些小变化”是另一回事（在我看来这不是问题）。
编辑：
无论如何，要将列“B”与列“D”连接起来：
(if (setq LstRows (LM:readcsv f))
(setq LstRows (apply 'append (mapcar '(lambda (x) (list (nth 1 x) (nth 3 x))) LstRows)))
)
但仍然不能解决这个问题，因为我必须从代码中删除重新格式化的字符串-要这样做，我首先必须知道要从csv中操作哪些字符串来填充到文本实体中。 我在这个帖子中的最后一篇帖子。。。
9
页:
1
[2]