一个字符串分割的函数

Lisphk · 发表于 2016-12-25 14:01:31

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

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

×

; (KGA_String_Split "aabbaaccaa" "aa" nil) => ("" "bb" "cc" "")
; (KGA_String_Split "aabbaaccaa" "AA" nil) => ("aabbaaccaa")
; (KGA_String_Split "aabbaaccaa" "AA" T)   => ("" "bb" "cc" "")
; (KGA_String_Split "aabbaaccaa" "" nil)   => nil
(defun KGA_String_Split (str sub ignoreCaseP / i j len lst srchStr)
  (if (/= 0 (setq len (strlen sub)))
    (progn
      (if ignoreCaseP
        (progn
          (setq srchStr (strcase str))
          (setq sub (strcase sub))
        )
        (setq srchStr str)
      )
      (setq i 0)
      (while (setq j (vl-string-search sub srchStr i))
        (setq lst (cons (substr str (1+ i) (- j i)) lst))
        (setq i (+ j len))
      )
      (reverse (cons (substr str (1+ i)) lst))
    )
  )
)

xvjiex · 发表于 2021-11-22 06:06:11

感谢分享一个字符串分割的函数

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

[每日一码] 一个字符串分割的函数

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

相关帖子

浏览过的版块