[讨论]：有办法取出字串中的特定文字吗

stgpmin · 发表于 2006-10-13 23:18:54

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

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

×

我想写一个程式是可以拿来列算式，假如字串是这样"95+92+98=285"，要怎样写可以取出等号后面"285"的字串呢，请各位大大帮帮忙。

aeo · 发表于 2006-10-13 23:53:15

vl-string-search
找到后用 substr

dezhang · 发表于 2006-10-13 23:55:10

(defun c:tt (/ aa numall text nu)
(setq aa "95+92+98=285")
(setq numall (strlen aa))
(setq text "")
(while (null (equal "=" (setq nu (substr aa numall))))
  (setq aa (substr aa 1 (1- numall)))
  (setq text (strcat nu text))
  (setq numall (1- numall)))
  )

雨箭风刀 · 发表于 2006-10-14 00:19:25

vl-string-position

stgpmin · 发表于 2006-10-15 12:41:23

感謝各位大大的幫忙我寫好了

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

[讨论]：有办法取出字串中的特定文字吗

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

相关帖子