[求助]：如何过滤字符串中的空格?

zhanyu80 · 发表于 2005-9-7 14:35:58

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

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

×

如题~!

舟自横 · 发表于 2005-9-7 15:40:19

你是指的删除字符串中的空格吗?
(VL-LIST->STRING (VL-REMOVE 32 (VL-STRING->LIST " Y O U ")))
论坛上有的..

ttthhh_hb · 发表于 2005-9-10 00:41:17

;;; Trims leading and trailing spaces from strings.
(defun ai_strtrim (s)
  (cond
((/= (type s) 'str) nil)
(t (ai_strltrim (ai_strrtrim s)))
  )
)
(defun ai_strltrim (s)
  (cond
((eq s "") s)
((/= " " (substr s 1 1)) s)
(t (ai_strltrim (substr s 2)))
  )
)
(defun ai_strrtrim (s)
  (cond
((eq s "") s)
((/= " " (substr s (strlen s) 1)) s)
(t (ai_strrtrim (substr s 1 (1- (strlen s)))))
  )
)

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

[求助] [求助]：如何过滤字符串中的空格?

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

相关帖子