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

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

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

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

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

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

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

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

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

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

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

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

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

那么表是什么内容？

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

示
(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:24

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

自贡黄明儒 发表于 2014-3-19 11:45 static/image/common/back.gif
那么表是什么内容？
简单的说，我的问题就是：我现在有如下图所示的文本，我希望利用这个文本得到 ’（"Beam" "Column" "Slab")这个表，请问如何实现？

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

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

Andyhon 发表于 2014-3-19 16:43 static/image/common/back.gif
(while (setq txt (read-line fp))
(setq Txtss (cons txt Txtss))
)

谢谢！

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

盗用院长函数:XYP-TXT2LST
页: [1]
查看完整版本: 如何提取文本的数据组成一个表