[编程申请]：将字符串中的第一个空格及这个空格以前的字符全部去掉

lengliqun · 发表于 2007-8-27 13:00:04

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

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

×

求lsp程序，将字符串中的第一个空格及这个空格以前的字符全部去掉。谢谢。
*-*4

zxq0220 · 发表于 2007-8-27 19:07:51

(DEFUN C:TEST ( / SS I ENT TXT J)
(IF (SETQ SS (SSGET '((0 . "TEXT")))) (PROGN
(SETQ I -1)
(REPEAT (SSLENGTH SS)
(SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
TXT (CDR (ASSOC 1 ENT))
J 1)
(WHILE (AND (< J (LENGTH TXT)) (/= (SUBSTR TXT J 1) " "))
(SETQ J (1+ J))
)
(IF (< J (LENGTH TXT)) (PROGN
(SETQ TXT (SUBSTR TXT J)
ENT (SUBST (CONS 1 TXT) (ASSOC 1 ENT) ENT))
(ENTMOD ENT)
))
)
))
(PRINC)
)

gysjy · 发表于 2007-8-27 21:14:50

上述代码中两处LENGTH有误，应为STRLEN。

lengliqun · 发表于 2007-8-27 22:24:45

CAD2004测试，将LENGTH替换成STRLEN后可运行，可将字符串中的第一个空格以前的字符全部去掉，但没有删掉第一个空格，
如“123口456”会变成“口456”(口为空格)，我希望是“456”，请坐改改，谢谢。

gysjy · 发表于 2007-8-27 22:50:00

最初由 lengliqun 发布
[B]CAD2004测试，将LENGTH替换成STRLEN后可运行，可将字符串中的第一个空格以前的字符全部去掉，但没有删掉第一个空格，
如“123口456”会变成“口456”(口为空格)，我希望是“456”，请坐改改，谢谢。 [/B]

(DEFUN C:TEST ( / SS I ENT TXT J)
(IF (SETQ SS (SSGET '((0 . "TEXT")))) (PROGN
(SETQ I -1)
(REPEAT (SSLENGTH SS)
(SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
TXT (CDR (ASSOC 1 ENT))
J 1)
(WHILE (AND (< J (strlen TXT)) (/= (SUBSTR TXT J 1) " "))
(SETQ J (1+ J))
)
(IF (< J (strlen TXT)) (PROGN
(SETQ TXT (SUBSTR TXT (1+ J))
ENT (SUBST (CONS 1 TXT) (ASSOC 1 ENT) ENT))
(ENTMOD ENT)
))
)
))
(PRINC)
)

lengliqun · 发表于 2007-8-28 12:29:06

多谢zxq0220和gysjy 两位大侠，cad2004测试可用。谢谢。

雨箭风刀 · 发表于 2007-8-29 00:36:41

(defun c:xx (/ ss n e ent str str2)
(if (setq ss (ssget '((0 . "*TEXT") (1 . "* *"))))
(repeat (setq n(sslength ss))
(setq n (1- n)
e (ssname ss n)
ent (entget e)
str (cdr (assoc 1 ent))
str2 (substr str (+ 2 (vl-string-position (ascii " ") str)))
)
(entmod (subst (cons 1 str2) (assoc 1 ent) ent))
))
)

lengliqun · 发表于 2007-8-29 08:50:51

上楼雨箭风刀长老的程序cad2004测试可用，谢谢。

GTJ116600 · 发表于 2013-5-25 23:55:25

留个印，学习

dyjwyqz5221 · 发表于 2018-6-6 17:40:26

我给你写一个，试试咋样

dyjwyqz5221 · 发表于 2018-6-6 17:41:40

(defun c:tt( /  ss a b)
(if (setq ss (ssget '((0 . "text"))))
(progn
(xdrx_begin)
     (xdrx_sysvar_push '("osmode" 0 "cmdecho" 0))
(mapcar
'(lambda(x)
(setq a (XD::Obj:DXF x 1))
(setq b (xd::string:regexpr "(\\S+)(\\s+)(\\S+)" a "$3" ""))
(entmod (subst (cons 1 b) (cons 1 a) (entget x)))
)
(xdrx_pickset->ents ss)
)
(xdrx_sysvar_pop)
        (xdrx_end)
)
(princ)
)

dyjwyqz5221 · 发表于 2018-6-6 17:43:10

本帖最后由 dyjwyqz5221 于 2018-6-6 17:57 编辑

[Actionscript3] 纯文本查看 复制代码

(defun c:tt( /  ss a b)
        (if (setq ss (ssget '((0 . "text"))))
                (progn
                        (xdrx_begin)
                             (xdrx_sysvar_push '("osmode" 0 "cmdecho" 0))
                        (mapcar
                                '(lambda(x)
                                        (setq a (XD::Obj:DXF x 1))
                                        (setq b (xd::string:regexpr "(\\S+)(\\s+)(\\S+)" a "$3" ""))
                                        (entmod (subst (cons 1 b) (cons 1 a) (entget x)))
                                )
                                (xdrx_pickset->ents ss)
                        )
                        (xdrx_sysvar_pop)
                        (xdrx_end)
                )
        )
        (princ)
)

dyjwyqz5221 · 发表于 2018-6-6 17:45:17

前面那个少了个“）”

Lisphk · 发表于 2018-6-6 17:48:33

dyjwyqz5221 发表于 2018-6-6 17:45
前面那个少了个“）”

不用重复发，可以点回复旁边的编辑，编辑帖子的。

dyjwyqz5221 · 发表于 2018-6-6 17:49:32

用的正则法则，通用

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

[编程申请]：将字符串中的第一个空格及这个空格以前的字符全部去掉

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

相关帖子

评分

点评

评分