如何提取文本的数据组成一个表

peraperson · 发表于 2014-3-18 16:29

本帖最后由 peraperson 于 2014-3-20 17:25 编辑

(之前可能写的太啰嗦了，改了一下。。）
我现在有一个图层.txt 的文本里面有内容为 beam column slab 三行数据，(仅做举例用，实际上有多行数据）。请问如何提取这3行数据形成表 ’（“beam" "column" "slab") ?
谢谢

Andyhon · 发表于 2014-3-18 16:29

(while (setq txt (read-line fp))
(setq Txtss (cons txt Txtss))
)
(close fp)
(reverse Txtss)

自贡黄明儒 · 发表于 2014-3-19 10:36

未验证
(command "_.erase" (ssget "X" '((8 . "beam,column,slab"))) "")

peraperson · 发表于 2014-3-19 10:48

自贡黄明儒发表于 2014-3-19 10:36
未验证
(command "_.erase" (ssget "X" '((8 . "beam,column,slab"))) "")

谢谢黄兄。你可能误会了我的意思，我的问题在于我现在有一个文本，里面写有 beam， column， slab 3行数据，我想知道怎么提取这3个数据组成一个表，从而来跟我款选的图元所在的图层做比较。

自贡黄明儒 · 发表于 2014-3-19 11:45

peraperson 发表于 2014-3-19 10:48
谢谢黄兄。你可能误会了我的意思，我的问题在于我现在有一个文本，里面写有 beam， column， slab 3行数 ...

那么表是什么内容？

自贡黄明儒 · 发表于 2014-3-19 12:09

示
(defun readfn (/ fn ftext crtlst)
(setq fn (open (findfile "tcf.ini") "r"))
(while (setq ftext (read-line fn)) (setq crtlst (append crtlst (list ftext))))
(close fn)
(setq textstr (nth 0 crtlst))
crtlst
)

peraperson · 发表于 2014-3-19 13:09

本帖最后由 peraperson 于 2014-3-19 13:23 编辑

自贡黄明儒发表于 2014-3-19 11:45
那么表是什么内容？

简单的说，我的问题就是：我现在有如下图所示的文本，我希望利用这个文本得到 ’（"Beam" "Column" "Slab")这个表，请问如何实现？

peraperson · 发表于 2014-3-20 17:13

本帖最后由 peraperson 于 2014-3-20 17:34 编辑

Andyhon 发表于 2014-3-19 16:43
(while (setq txt (read-line fp))
(setq Txtss (cons txt Txtss))
)

谢谢！

77077 · 发表于 2014-3-21 11:38

盗用院长函数:XYP-TXT2LST

账号		自动登录	找回密码
密码			注册

[已解答] 如何提取文本的数据组成一个表

最佳答案

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源