（XD::File:SplitPath）文件名路径分解成字符串表

Lispboy

1. (defun XD::File:SplitPath (fname / temp)
   
2.   (if (setq temp (xd::string:regexps
   
3.                    "^[a-zA-Z]+:|[\\\\]+.*|[/]+.*"
   
4.                    (vl-filename-directory fname)
   
5.                    ""
   
6.                  )
   
7.       )
   
8.     (list (car temp)
   
9.           (strcat (setq temp (cadr temp))
   
10.                   (if (or (= "\\" temp) (= "/" temp))
    
11.                     ""
    
12.                     (car (xd::string:regexps "[/|\\\\]+" temp ""))
    
13.                   )
    
14.           )
    
15.           (vl-filename-base fname)
    
16.           (vl-filename-extension fname)
    
17.     )
    
18.     (list ""
    
19.           ""
    
20.           (vl-filename-base fname)
    
21.           (if (setq ext (vl-filename-extension fname))
    
22.             ext
    
23.             ""
    
24.           )
    
25.     )
    
26.   )
    
27. )

(defun XD::File:SplitPath (fname / temp)<br />   (if (setq temp (xd::string:regexps<br />                    "^[a-zA-Z]+:|[\\\\]+.*|[/]+.*"<br />                    (vl-filename-directory fname)<br />                    ""<br />                  )<br />       )<br />     (list (car temp)<br />           (strcat (setq temp (cadr temp))<br />                   (if (or (= "\\" temp) (= "/" temp))<br />                     ""<br />                     (car (xd::string:regexps "[/|\\\\]+" temp ""))<br />                   )<br />           )<br />           (vl-filename-base fname)<br />           (vl-filename-extension fname)<br />     )<br />     (list ""<br />           ""<br />           (vl-filename-base fname)<br />           (if (setq ext (vl-filename-extension fname))<br />             ext<br />             ""<br />           )<br />     )<br />   )<br /> )

命令: (xd::file:splitpath fn)
("D:" "\\xdsoft\\sys\\" "xdrx" ".lsp")

/db_自贡黄明儒_

fnsplitl           

Lispboy

/db_自贡黄明儒_ 发表于 2018-3-20 20:27

不一样的

命令: (fnsplitl "c:\\abc\\def\\123.txt")
("C:\\abc\\def\\" "123" ".txt")


命令: (xd::file:splitpath "c:\\abc\\def\\123.txt")
("c:" "\\abc\\def\\" "123" ".txt")



命令: (xdrx_system_splitpath "c:\\abc\\def\\123.txt")
("c:" "\\abc\\def\\" "123" ".txt")