字符串处理

lslsq · 发表于 2020-10-8 20:24:33

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

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

×

这样一个字符串
“das2-das-daa-sada”
先在需要
1.提取第一个-号之前的字符即”das2”
2.提取第一个-号和最后一个-号之间的字符“das-daa”
3.提取最后一个-号之后的字符“sada”
求大神帮忙

原地踏步 · 发表于 2020-10-8 21:44:17

先把字符串转化为表
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=127470&extra=&highlight=%D7%D6%B7%FB%B4%AE%2B%B1%ED&page=1
再把表中第一个和最后一个提出来，中间的用“-”连接起来就行了。

lslsq · 发表于 2020-10-8 22:08:50

原地踏步发表于 2020-10-8 21:44
先把字符串转化为表
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=127470&extra=&highlight=%D7%D6 ...

谢谢，思路很好，刚刚在论坛里面找到了类似解决方法xd::string:regexps 这个函数可以解决

dnbcgrass · 发表于 2020-10-8 23:39:41

(setq zfc "das2-das-daa-sada")
(setq jgz nil)
(setq i 0)
(while (setq n (vl-string-search "-" zfc i))
   (setq jgz (cons n jgz))
   (setq i (1+ n))
)
(setq jgz (reverse jgz))
(setq fhz (list (substr zfc 1 (car jgz))
               (substr zfc (+ (car jgz) 2) (- (last jgz) (car jgz) 1))
               (substr zfc (+ (last jgz) 2))
      )
)
(princ "\fhz=")(princ fhz)

aimisiyou · 发表于 2020-10-9 00:36:48

本帖最后由 aimisiyou 于 2020-10-9 01:07 编辑

dnbcgrass 发表于 2020-10-8 23:39
(setq zfc "das2-das-daa-sada")
(setq jgz nil)
(setq i 0)

用不上循环吧？直接字符串运算就可以啊
_$  (setq zfc "das2-das-daa-sada")
(setq str1 (substr zfc 1 (vl-string-position (ascii "-") zfc)))
(setq zfc_rever (vl-list->string (reverse (vl-string->list  zfc))))
(setq str3  (vl-list->string (reverse (vl-string->list (substr zfc_rever 1 (vl-string-position (ascii "-") zfc_rever))))))
(setq str2 (substr zfc (+ 2 (strlen str1)) (- (strlen zfc) (strlen str1) (strlen str3) 2)))
"das2-das-daa-sada"
"das2"
"adas-aad-sad-2sad"
"sada"
"das-daa"
_$

dnbcgrass · 发表于 2020-10-9 08:26:54

(setq zfc "das2-das-daa-sada")
(setq zfc1 (substr zfc 1 (vl-string-search "-" zfc 0)))
(setq zfcr (vl-list->string (reverse (vl-string->list zfc))))
(setq zfc3 (substr zfcr 1 (vl-string-search "-" zfcr 0)))
(setq zfc3 (vl-list->string (reverse (vl-string->list zfc3))))
(setq zfc2 (vl-string-subst "" (strcat zfc1 "-") zfc))
(setq zfc2 (vl-string-subst "" (strcat "-" zfc3) zfc2))

dnbcgrass · 发表于 2020-10-9 09:05:46

本帖最后由 dnbcgrass 于 2020-10-9 09:09 编辑

;不用while
(setq zfc "das2-das-daa-sada")
(setq i -1)
(setq jgb (vl-remove 'nil (mapcar '(lambda(x)
                                       (setq i (1+ i))
                                       (if (= x (ascii "-")) i nil)
                                    )
                                    (vl-string->list zfc)
                           )
         )
)
(setq fhz (list (substr zfc 1 (car jgz))
               (substr zfc (+ (car jgz) 2) (- (last jgz) (car jgz) 1))
               (substr zfc (+ (last jgz) 2))
         )
)
(princ "\fhz=")(princ fhz)
(princ)

dnbcgrass · 发表于 2020-10-9 09:41:05

本帖最后由 dnbcgrass 于 2020-10-9 09:43 编辑

;不用循环
(setq zfc "das2-das-daa-sada")
(setq zfclsit (mapcar '(lambda(x)(chr x)) (vl-string->list zfc)))
(setq zfc1 (vl-string-subst "" (apply 'strcat (member "-" zfclsit)) zfc))
(setq zfc3 (vl-string-subst "" (apply 'strcat (reverse (member "-" (reverse zfclsit)))) zfc))
(setq zfc2 (vl-string-subst "" (strcat "-" zfc3) (vl-string-subst "" (strcat zfc1 "-") zfc)))

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

[求助] 字符串处理

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

点评

点评