从lis项中删除字符串

reza · 发表于 2022-7-5 15:32:15

大家好：
我有这样一个列表：

(" 1 -30.0000 1158.3733 1" " 25 -29.7469 1158.5000 1" " 138 -29.3861 1158.6920 1")

如何将其转换为以下内容？

("-30.0000 1158.3733" "-29.7469 1158.5000" "-29.3861 1158.6920")

谢谢你的指导

pBe · 发表于 2022-7-5 15:37:29

我认为该列表来自一个外部文件[csv/txt]。，您需要做的是在将值传递到列表之前分离各个项目。
向我们展示您用于构建列表的代码，我们将从中学习。

reza · 发表于 2022-7-5 15:42:06

你好
感谢您的回复
此代码为1deltxt。lsp到pars导出数据文件。
列表到文件。lsp

reza · 发表于 2022-7-5 15:46:56

文本文件包括：
1-导出列表。txt文件
2-通道。txt文件

pBe · 发表于 2022-7-5 15:51:01

好的，等等。。。

reza · 发表于 2022-7-5 15:53:01

谢谢
当然

pBe · 发表于 2022-7-5 15:55:12

你打算如何处理转换后的列表？你需要这张积分表吗？
是否转换为浮点而不是字符串？这些代码是你自己写的吗？

BIGAL · 发表于 2022-7-5 16:00:10

作为一名土木工程师，我做了很多关于点的事情，比如Pbe，期望输出的底线是什么。可以从头开始分离txt文件，直接制作点列表。

reza · 发表于 2022-7-5 16:04:52

我需要这个列表来发送一个名为“CSDP”的程序

但在这方面，这个问题对我来说很重要
如何使用Lisp或Visual Lisp指令解决此问题
无论此信息中使用的是什么软件。

我在一个论坛上发布了第一个应用程序。
第二个程序使用Lisp中可用的函数。

pBe · 发表于 2022-7-5 16:09:11

来自最近的线程

根据您的要求进行了修改

copy


(defun _csv->lst ( str / pos)
[color="blue"](setq str (vl-string-left-trim  " "  str))   [/color] 
(if (setq pos (vl-string-position [color="blue"]32[/color] str))
   (cons (substr str 1 pos) (_csv->lst (substr str (+ pos 2)) [color="blue"]32[/color] ))
   (list str)
   )
)

导致

copy

 (strcat (cadr x) " " (caddr x))

[编程交流] 从lis项中删除字符串

发表回复

精选推荐