如何获取路径中字符串

bloodtempt

获得图纸路径如下：
F:\\1-进行中的项目\\20-房地产开发有限公司\\1-5#住宅\\
想截取出 “房地产开发有限公司” 代码如何编写？求指教
20-房地产开发有限公司  中20不是固定数字

Andyhon

vl-string-position 可派上用场

namezg

;----------------------------------------------
;法一
(setq str "F:\\1-进行中的项目\\20-房地产开发有限公司\\1-5#住宅\\")
(repeat 2
        (setq i (vl-string-search "-" str 0))
        (setq str (substr str (+ i 2)))
)
(setq i (vl-string-search "\\" str 0))
(setq str (substr str 1 i))
;----------------------------------------------
;法二
(setq str "F:\\1-进行中的项目\\20-房地产开发有限公司\\1-5#住宅\\")
(setq str (vl-string-subst "" "-" str 0))
(setq i (vl-string-search "-" str 0))
(setq str (substr str (+ i 2)))
(setq i (vl-string-search "\\" str 0))
(setq str (substr str 1 i))
;----------------------------------------------

bloodtempt

namezg 发表于 2014-10-30 21:06
;----------------------------------------------
;法一
(setq str "F:\\1-进行中的项目\\20-房地产开发 ...

非常感谢你的帮助

bloodtempt

(defun strsplit        (string delimited / pos lst)
  (while (setq pos (vl-string-search delimited string)) ;当pos存在时执行如下循环
    (setq lst         (cons (substr string 1 pos) lst)
          string (substr string (+ pos 1 (strlen delimited)))
    )
  )
  (reverse (cons string lst))
)

能告诉我这段代码是什么意思么  没太读懂

namezg

命令: (strsplit "123;456;789;" ";")
("123" "456" "789" "")

命令: (strsplit "123;456;789;010" ";")
("123" "456" "789" "010")

命令: (strsplit ";123;456;789;010" ";")
("" "123" "456" "789" "010")

命令: (strsplit ";123;456;789;010;" ";")
("" "123" "456" "789" "010" "")