收藏73哥函数 程序---列出文件夹下所有子文件荚或者文件名

树櫴希德

收藏73哥函数 程序---列出文件夹下所有子文件荚或者文件名

命令: (vl-directory-files (GetFolder"\n批量修改子文件夹名称") "*.*" -1) ("."
".." "A" "E" "ES匝道" "F匝道" "sc" "一点点" "万博一1路" "万博一路"
"万博一路坡脚" "京台高速" "港B五标" "湘潭" "积木法" "穗丰年路" "西宁绕城"
"进港南路")

命令: 'VLIDE
命令:
命令: (vl-directory-files (GetFolder"\n批量修改子文件夹名称") "*.*" 1)
("其他参数.txt" "项目名称.txt")

命令: 'VLIDE
命令:
命令: (vl-directory-files (GetFolder"\n批量修改子文件夹名称") "*.*" 0) ("."
".." "A" "E" "ES匝道" "F匝道" "sc" "一点点" "万博一1路" "万博一路"
"万博一路坡脚" "京台高速" "其他参数.txt" "港B五标" "湘潭" "积木法" "穗丰年路"
"西宁绕城" "进港南路" "项目名称.txt")

语法

   (vl-directory-files  [directory pattern directories])
功能
   列出给定目录中的所有文件。

说明

    1）参数 directory 为字符串，指定要收集文件的目录。若未指定该参数或参数为 nil，那么vl-directory-files 使用当前目录。

    2）参数 pattern 为字符串，包含文件名的 DOS 方式。如果未指定该参数或参数为 nil，vl-directory-files 假定为 "*.*"。

    3）directories 为整数型，指定返回的表中是否包含路径名。可以指定下列值之一：

-1  仅列出目录。

0   列出文件和目录（缺省值）。

1   仅列出文件。

返回值：

文件和路径列表。若没有符合指定方式的文件，则返回 nil。

2. (defun t1(patha a1 b1)
   
3.   (if(vl-file-directory-p patha)
   
4.     (foreach x(vl-directory-files patha(strcat"*"a1"*")-1)
   
5.       (if(vl-string-search a1 x)
   
6.         (vl-file-rename(strcat patha"\"x)(strcat patha"\"(vl-string-subst b1 a1 x)))))))
   
7. (defun GetFolder(msg / WinShell shFolder path)
   
8.     (setq winshell (vlax-create-object "Shell.Application")
   
9.           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
   
10.     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))
    
11.                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))
    
12. 
    
13. (defun c:t1(/ patha a b)
    
14.   (vl-load-com)
    
15.   (if(and(setq patha(GetFolder"\n批量修改子文件夹名称"))
    
16.          (setq a(getstring"要被替换的字符")b(getstring"替换为")))
    
17.     (t1 patha a b)))
    
18. 
    
19. 
    
20. ;文件夹名称都可以批量改，文件名当然也可以
    
21. ;仔细看下vl-directory-files的用法。。。。你就可以参照t1自己写一个改文件名的了
    

(defun t1(patha a1 b1)<br />   (if(vl-file-directory-p patha)<br />     (foreach x(vl-directory-files patha(strcat"*"a1"*")-1)<br />       (if(vl-string-search a1 x)<br />         (vl-file-rename(strcat patha"\"x)(strcat patha"\"(vl-string-subst b1 a1 x)))))))<br /> (defun GetFolder(msg / WinShell shFolder path)<br />     (setq winshell (vlax-create-object "Shell.Application")<br />           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))<br />     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))<br />                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))<br /> <br /> (defun c:t1(/ patha a b)<br />   (vl-load-com)<br />   (if(and(setq patha(GetFolder"\n批量修改子文件夹名称"))<br />          (setq a(getstring"要被替换的字符")b(getstring"替换为")))<br />     (t1 patha a b)))<br /> <br /> <br /> ;文件夹名称都可以批量改，文件名当然也可以<br /> ;仔细看下vl-directory-files的用法。。。。你就可以参照t1自己写一个改文件名的了<br />

树櫴希德

1. (defun GetFolder(msg / WinShell shFolder path catchit);选取文件夹
   
2.       (setq shFolder(vlax-invoke-method (vlax-create-object "Shell.Application")'BrowseForFolder 0 msg 1))
   
3.       (setq  catchit(vl-catch-all-apply'(lambda()(setq shFolder(vlax-get-property shFolder'self))
   
4.             (setq path(vlax-get-property shFolder'path)))))
   
5.       (if(vl-catch-all-error-p catchit)nil path))
   
6. (defun xdirectory(folder)
   
7.       (setq folder(list(list folder)))
   
8.       (while(car(setq folder(cons(apply'append(mapcar'(lambda(x)(mapcar'(lambda(y)(strcat x"\\"y))(cddr(vl-directory-files X nil -1))))
   
9.                  (car folder)))folder))))(apply'append folder))
   
10. (defun getpath(msg ext / path paths files)
    
11.   (and(setq path(GETFOLDER msg))
    
12.       (setq paths(XDIRECTORY path))
    
13.       (setq files(apply'append(mapcar'(lambda(x)(mapcar'(lambda(y)(strcat x "\\"y))(VL-DIRECTORY-FILES x ext 1)))paths)))
    
14.       )(list paths files))
    
15. (defun StrType(a / b c d e);;字符串分离全角、符号、字母、数字,存在问题：连续小数点与数字相连不能精确分离数字和小数点
    
16.     (setq b(vl-string->list a))
    
17.     (while b
    
18.       (setq a(car b)b(cdr b)c(last d))
    
19.       (if(or(not d)
    
20.       (and(< 0 a 32)(< 0 c 32));;非打印字符
    
21.       (or(= 46 a)(= 46 c)(and(< 47 a 58)(< 47 c 58)));数字和小数点
    
22.       (vl-every'(lambda(x)(vl-some'(lambda(y)(<(car y)x(cadr y)))'((31 48)(57 65)(90 98)(122 129))))(list a c));其它字符包括小数点
    
23.       (vl-every'(lambda(x)(vl-some'(lambda(y)(<(car y)x(cadr y)))'((64 91)(96 123))))(list a c));;字母
    
24.       (and(> a 128)(> c 128)));;全角字符
    
25.   (if(> a 128)(setq d(vl-list*(car b)a d)b(cdr b))(setq d(cons a d)))
    
26.   (setq e(cons(reverse d)e)d(if(> a 128)(list(car b)a)(List a))b(if(> a 128)(cdr b)b))))
    
27.     (mapcar'vl-list->string(reverse(cons(reverse d)e))))
    
28. 
    
29. (defun c:tt(/ wdapp docs fs)
    
30.   (and(setq wdapp(vlax-create-object"word.application"))
    
31.       (setq docs(vlax-get-property wdapp 'documents)
    
32.       files(cadr(getpath"选择文件夹，批量修改WORD文件名""*.doc*")))
    
33.       (vl-every(function(lambda(x / doc i a b)
    
34.       (setq doc(vlax-invoke-method docs'open x)Paragraphs(vlax-get-property doc'Paragraphs)i 0)
    
35.       (while(not a)
    
36.         (or(WCMATCH(setq i(1+ 0)a(vlax-get-property(vlax-get-property(vlax-invoke-method Paragraphs'item i)'range)'TEXT))"*\r")
    
37.            (setq a nil)))
    
38.       (vlax-invoke-method doc'close)
    
39.       (if a(progn(setq a(substr a 1(1-(strlen a))))
    
40.            (while(vl-position a fs)
    
41.        (setq a(if(numberp(setq as(StrType a)b(read(last as))))
    
42.           (apply'strcat(append(reverse(cdr(reverse as)))(list(itoa(1+ b)))))
    
43.           (strcat a"1"))))
    
44.            (setq fs(cons a fs))
    
45.            (vl-file-rename x(strcat(VL-FILENAME-DIRECTORY x)"\\"a(VL-FILENAME-EXTENSION x)))))t))files)
    
46.       (vlax-invoke-method wdapp'quit)))

(defun GetFolder(msg / WinShell shFolder path catchit);选取文件夹<br />       (setq shFolder(vlax-invoke-method (vlax-create-object "Shell.Application")'BrowseForFolder 0 msg 1))<br />       (setq  catchit(vl-catch-all-apply'(lambda()(setq shFolder(vlax-get-property shFolder'self))<br />             (setq path(vlax-get-property shFolder'path)))))<br />       (if(vl-catch-all-error-p catchit)nil path))<br /> (defun xdirectory(folder)<br />       (setq folder(list(list folder)))<br />       (while(car(setq folder(cons(apply'append(mapcar'(lambda(x)(mapcar'(lambda(y)(strcat x"\\"y))(cddr(vl-directory-files X nil -1))))<br />                  (car folder)))folder))))(apply'append folder))<br /> (defun getpath(msg ext / path paths files)<br />   (and(setq path(GETFOLDER msg))<br />       (setq paths(XDIRECTORY path))<br />       (setq files(apply'append(mapcar'(lambda(x)(mapcar'(lambda(y)(strcat x "\\"y))(VL-DIRECTORY-FILES x ext 1)))paths)))<br />       )(list paths files))<br /> (defun StrType(a / b c d e);;字符串分离全角、符号、字母、数字,存在问题：连续小数点与数字相连不能精确分离数字和小数点<br />     (setq b(vl-string->list a))<br />     (while b<br />       (setq a(car b)b(cdr b)c(last d))<br />       (if(or(not d)<br />       (and(< 0 a 32)(< 0 c 32));;非打印字符<br />       (or(= 46 a)(= 46 c)(and(< 47 a 58)(< 47 c 58)));数字和小数点<br />       (vl-every'(lambda(x)(vl-some'(lambda(y)(<(car y)x(cadr y)))'((31 48)(57 65)(90 98)(122 129))))(list a c));其它字符包括小数点<br />       (vl-every'(lambda(x)(vl-some'(lambda(y)(<(car y)x(cadr y)))'((64 91)(96 123))))(list a c));;字母<br />       (and(> a 128)(> c 128)));;全角字符<br />   (if(> a 128)(setq d(vl-list*(car b)a d)b(cdr b))(setq d(cons a d)))<br />   (setq e(cons(reverse d)e)d(if(> a 128)(list(car b)a)(List a))b(if(> a 128)(cdr b)b))))<br />     (mapcar'vl-list->string(reverse(cons(reverse d)e))))<br /> <br /> (defun c:tt(/ wdapp docs fs)<br />   (and(setq wdapp(vlax-create-object"word.application"))<br />       (setq docs(vlax-get-property wdapp 'documents)<br />       files(cadr(getpath"选择文件夹，批量修改WORD文件名""*.doc*")))<br />       (vl-every(function(lambda(x / doc i a b)<br />       (setq doc(vlax-invoke-method docs'open x)Paragraphs(vlax-get-property doc'Paragraphs)i 0)<br />       (while(not a)<br />         (or(WCMATCH(setq i(1+ 0)a(vlax-get-property(vlax-get-property(vlax-invoke-method Paragraphs'item i)'range)'TEXT))"*\r")<br />            (setq a nil)))<br />       (vlax-invoke-method doc'close)<br />       (if a(progn(setq a(substr a 1(1-(strlen a))))<br />            (while(vl-position a fs)<br />        (setq a(if(numberp(setq as(StrType a)b(read(last as))))<br />           (apply'strcat(append(reverse(cdr(reverse as)))(list(itoa(1+ b)))))<br />           (strcat a"1"))))<br />            (setq fs(cons a fs))<br />            (vl-file-rename x(strcat(VL-FILENAME-DIRECTORY x)"\\"a(VL-FILENAME-EXTENSION x)))))t))files)<br />       (vlax-invoke-method wdapp'quit)))

树櫴希德

表内汉语根据声母首字母排序

1. ;[llsheng_73]■■■(275988734) 2022/9/19 17:52:06
   
2. (defun sortn(l keys funs fuzz / n mposition);;;keys关键字列号要么为nil要么为表，funs各个关键字的排序方式,通常为<或>,也可以为自定义序列,比如'("张三""李四")
   
3.   (defun mposition(e l / i)(if(setq i(vl-position e l))i(length l)))
   
4.   (or(listp(car l))(setq l(mapcar'list l)))
   
5.   (or(listp funs)(setq funs(list funs)))
   
6.   (if(zerop(setq n(length keys)))(setq n(length(car l))))
   
7.   (while(<(length funs)n)(setq funs(cons(car funs)funs)))
   
8.   (mapcar(function(lambda(x)(nth x l)))
   
9.    (vl-sort-i(if keys(mapcar(function(lambda(x)(mapcar'(lambda(y)(nth y x))keys)))l)l)
   
10.        (function(lambda(x y / n )(setq n 0)
    
11.           (while(and(equal(car x)(car y)fuzz)(cdr x)(cdr y))(setq x(cdr x)y(cdr y)n(1+ n)))
    
12.             (if(listp(setq n(nth n funs)))
    
13.         (<(mposition(car x)n)(mposition(car y)n))
    
14.         (n(car x)(car y))))))))
    
15. 
    
16. ;[llsheng_73]■■■(275988734) 2022/9/19 17:52:18
    
17. ;_$ (SORTN'(("上海""崇明区")("北京""朝阳区")("上海""静安区")("北京""房山区")("重庆""酉阳")("四川""成都"))'(0 1)'(("北京""上海")("静安区""朝阳区""房山区""崇明区""成都""酉阳"))0)
    
18. (("北京" "朝阳区") ("北京" "房山区") ("上海" "静安区") ("上海" "崇明区") ("四川" "成都") ("重庆" "酉阳"))
    
19. 
    

;[llsheng_73]■■■(275988734) 2022/9/19 17:52:06<br /> (defun sortn(l keys funs fuzz / n mposition);;;keys关键字列号要么为nil要么为表，funs各个关键字的排序方式,通常为<或>,也可以为自定义序列,比如'("张三""李四")<br />   (defun mposition(e l / i)(if(setq i(vl-position e l))i(length l)))<br />   (or(listp(car l))(setq l(mapcar'list l)))<br />   (or(listp funs)(setq funs(list funs)))<br />   (if(zerop(setq n(length keys)))(setq n(length(car l))))<br />   (while(<(length funs)n)(setq funs(cons(car funs)funs)))<br />   (mapcar(function(lambda(x)(nth x l)))<br />    (vl-sort-i(if keys(mapcar(function(lambda(x)(mapcar'(lambda(y)(nth y x))keys)))l)l)<br />        (function(lambda(x y / n )(setq n 0)<br />           (while(and(equal(car x)(car y)fuzz)(cdr x)(cdr y))(setq x(cdr x)y(cdr y)n(1+ n)))<br />             (if(listp(setq n(nth n funs)))<br />         (<(mposition(car x)n)(mposition(car y)n))<br />         (n(car x)(car y))))))))<br /> <br /> ;[llsheng_73]■■■(275988734) 2022/9/19 17:52:18<br /> ;_$ (SORTN'(("上海""崇明区")("北京""朝阳区")("上海""静安区")("北京""房山区")("重庆""酉阳")("四川""成都"))'(0 1)'(("北京""上海")("静安区""朝阳区""房山区""崇明区""成都""酉阳"))0)<br /> (("北京" "朝阳区") ("北京" "房山区") ("上海" "静安区") ("上海" "崇明区") ("四川" "成都") ("重庆" "酉阳"))<br /> <br />

树櫴希德

1. (defun GetFolder(msg / WinShell shFolder path)
   
2.     (setq winshell (vlax-create-object "Shell.Application")
   
3.           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
   
4.     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))
   
5.                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))
   
6. (defun tpzx ( patha / i xx xxx)
   
7.     (setq i 1)(vl-load-com)
   
8.   (if(vl-file-directory-p patha)
   
9.     (foreach x(vl-directory-files patha "*" 1)
   
10.       (setq xx (strcat (rtos i 2 0 ) x)) (setq xxx (strcat patha "\\" xx) )
    
11. 
    
12.         (vl-file-rename (strcat patha"\\"x) xxx )  (setq i (1+ i))   ))  )
    
13. 
    
14. 
    
15.         (defun c:tt1 ( / patha)
    
16.     (vl-load-com)
    
17. 
    
18. (if(setq patha(GetFolder"\n批量修改子文件夹名称"))
    
19.          
    
20.     (tpzx patha ))
    
21.    
    
22.     )
    
23. 
    
24.     ;(vl-directory-files (GetFolder"\n批量修改子文件夹名称") "*" 1)

(defun GetFolder(msg / WinShell shFolder path)<br />     (setq winshell (vlax-create-object "Shell.Application")<br />           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))<br />     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))<br />                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))<br /> (defun tpzx ( patha / i xx xxx)<br />     (setq i 1)(vl-load-com)<br />   (if(vl-file-directory-p patha) <br />     (foreach x(vl-directory-files patha "*" 1)<br />       (setq xx (strcat (rtos i 2 0 ) x)) (setq xxx (strcat patha "\\" xx) )<br /> <br />         (vl-file-rename (strcat patha"\\"x) xxx )  (setq i (1+ i))   ))  )<br /> <br /> <br />         (defun c:tt1 ( / patha)<br />     (vl-load-com)<br /> <br /> (if(setq patha(GetFolder"\n批量修改子文件夹名称"))<br />          <br />     (tpzx patha ))<br />     <br />     )<br /> <br />     ;(vl-directory-files (GetFolder"\n批量修改子文件夹名称") "*" 1)

taotao001

学习一下

mattran

厉害~~~~~~~~~~~~~~~~~~~

树櫴希德

1. (defun GetFolder(msg / WinShell shFolder path)
   
2.     (setq winshell (vlax-create-object "Shell.Application")
   
3.           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
   
4.     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))
   
5.                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))
   
6. 
   
7. (vl-directory-files(GetFolder"\n批量修改子文件夹名称") "*"1)

(defun GetFolder(msg / WinShell shFolder path)<br />     (setq winshell (vlax-create-object "Shell.Application")<br />           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))<br />     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))<br />                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))<br /> <br /> (vl-directory-files(GetFolder"\n批量修改子文件夹名称") "*"1)

树櫴希德

批量文件名后面递增加数字T1.LSP

1. (defun t1(patha a1  / i)
   
2.   (setq i 1)
   
3.   (if(vl-file-directory-p patha)
   
4.     (foreach x(vl-directory-files patha "*" 1)
   
5.       (if(vl-string-search a1 x)
   
6.         (vl-file-rename(strcat patha"\\"x)(strcat patha"\\"(vl-string-subst  (strcat (rtos i 2 0) a1)  a1  x))))
   
7.       (setq i (1+ i)) )
   
8.     ))
   
9. (defun GetFolder(msg / WinShell shFolder path)
   
10.     (setq winshell (vlax-create-object "Shell.Application")
    
11.           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
    
12.     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))
    
13.                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))
    
14. 
    
15. (defun c:t1( / patha  )
    
16.   (vl-load-com)
    
17.   (if(setq patha(GetFolder"\n批量修改子文件夹名称"))
    
18.          
    
19.     (t1 patha ".")))

(defun t1(patha a1  / i)<br />   (setq i 1)<br />   (if(vl-file-directory-p patha)<br />     (foreach x(vl-directory-files patha "*" 1)<br />       (if(vl-string-search a1 x)<br />         (vl-file-rename(strcat patha"\\"x)(strcat patha"\\"(vl-string-subst  (strcat (rtos i 2 0) a1)  a1  x))))<br />       (setq i (1+ i)) )<br />     ))<br /> (defun GetFolder(msg / WinShell shFolder path)<br />     (setq winshell (vlax-create-object "Shell.Application")<br />           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))<br />     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))<br />                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))<br /> <br /> (defun c:t1( / patha  )<br />   (vl-load-com)<br />   (if(setq patha(GetFolder"\n批量修改子文件夹名称"))<br />          <br />     (t1 patha ".")))

树櫴希德

1. (defun XD::Internet:Ping (address / out ws)
   
2.   (and (setq ws (vlax-get-or-create-object "WScript.Shell"))
   
3.        (setq out (vlax-invoke
   
4.                    ws
   
5.                    'run
   
6.                    (strcat "ping.exe -w 80 -n 1  " address) ;;ping.exe -w 80 -n 1  ping.exe -n 1
   
7.                    0
   
8.                    :vlax-true
   
9.                  )
   
10.        )
    
11.        (vlax-release-object ws)
    
12.        (zerop out)
    
13.   )
    
14. )
    
15. 
    
16. (setq a(XD::Internet:Ping "baidu.com"))
    
17. (princ(if a "网络通畅" "无网络"))

(defun XD::Internet:Ping (address / out ws)<br />   (and (setq ws (vlax-get-or-create-object "WScript.Shell"))<br />        (setq out (vlax-invoke<br />                    ws<br />                    'run<br />                    (strcat "ping.exe -w 80 -n 1  " address) ;;ping.exe -w 80 -n 1  ping.exe -n 1<br />                    0<br />                    :vlax-true<br />                  )<br />        )<br />        (vlax-release-object ws)<br />        (zerop out)<br />   )<br /> )<br /> <br /> (setq a(XD::Internet:Ping "baidu.com"))<br /> (princ(if a "网络通畅" "无网络"))

判断是否断网

f4800

收藏73哥函数 程序---列出文件夹下所有子文件荚或者文件名

走走逛逛瞧瞧

xj6019

虽然感觉不大用的到，特别感谢楼主的源码，谢谢，已收藏