提取多行文字的内容到excel，请高手改进一下代码，多谢！！

shasow · 发表于 2015-1-19 02:06:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 shasow 于 2015-1-19 02:21 编辑

下面这段代可以提取多行文字到excel，但问题是，也把多行文字的控制符也提取出来了，我只要文字内容，请高手给改改，不盛感激！！
(defun c:q2()
(setq ffn (getfiled "写出文件" "" "xls" 1))
(princ "\n选取文字...")
(setq ss (ssget))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (or (= sstyp "TEXT") (= sstyp "MTEXT"))
(progn
(setq txt (cdr (assoc 1 ssdata)))
(princ txt ff)
(princ "\n" ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat "\n写出文件: " ffn))
(prin1)
)

见附件测试文件及结果

csharp · 发表于 2015-1-19 07:42:04

V/Alisp 提取的 MText 内容都含有格式字符，解决方案

1 Explode ,但可能会分解为几个独立字串

2 用正则表达式去除格式符（这个论坛可以搜到）

3 自己写去除函数（也可以搜索到）

最好的方法用 ARX 或 .Net 中 MText 的 Text 属性，该属性提取的仅仅是文字内容，不包含格式符号

shasow · 发表于 2015-1-19 10:06:18

感谢csharp，但编程我不会，不知能否帮改一下程序？

iLisp · 发表于 2015-1-19 10:14:21

shasow 发表于 2015-1-19 10:06
感谢csharp，但编程我不会，不知能否帮改一下程序？

你可以使用(xdrx_getpropertyvalue mtext "Textstring")就是去除格式的文字

wx_EKdL75Rx · 发表于 2018-9-5 13:50:34

给你个非常好用的玩玩！能用上的说声谢谢就可以了！

lw5297590 · 发表于 2018-9-5 14:06:53

wx_EKdL75Rx 发表于 2018-9-5 13:50
给你个非常好用的玩玩！能用上的说声谢谢就可以了！

这个程序很好用，谢谢分享

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

[求助] 提取多行文字的内容到excel，请高手改进一下代码，多谢！！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评