【K:SearchAndLoadFunc】搜索并加载路径下的程序

kucha007

做了个自用的工具箱，程序更新改名后还得调整加载函数。
干脆程序全部扔到指定路径下面，直接搜索并加载得了：
注：此函数不搜索子文件夹中的程序

1. (vl-load-com)
   
2. (defun K:SearchAndLoadFunc (FuncPath / FuncTypes Error i FileNamLst FileNam FilePath xx)
   
3.   ;(setq FuncPath "C:\\FuncPath");搜索程序的目录
   
4.   (setq FuncTypes '("*.LSP" "*.FAS" "*.VLX"));搜索源程序的类型
   
5.   (setvar "SECURELOAD" 0);从所有位置加载文件(信任不警告)
   
6.   (setq Error Nil);清空变量,避免串门
   
7.   (repeat (setq i (length FuncTypes))
   
8.     (if (setq FileNamLst (vl-directory-files FuncPath (nth (setq i (1- i)) FuncTypes) 1))
   
9.       (mapcar
   
10.         '(lambda (FileNam / FilePath)
    
11.             (setq FilePath (strcat FuncPath "\\" FileNam))
    
12.             (if (vl-catch-all-error-p (vl-catch-all-apply  'load (list FilePath)));捕捉到了错误
    
13.                (setq Error (cons FilePath Error))
    
14.             )
    
15.          )
    
16.         FileNamLst
    
17.       )
    
18.     )
    
19.   );加载程序并搜集错误
    
20.   (if Error ;如果有发生错误
    
21.     (progn
    
22.       (princ "\n——★★★ 以下文件未加载成功,请检查！ ★★★——")
    
23.       (foreach xx Error (princ (strcat "\n--> " xx)))
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    

(vl-load-com)<br /> (defun K:SearchAndLoadFunc (FuncPath / FuncTypes Error i FileNamLst FileNam FilePath xx) <br />   ;(setq FuncPath "C:\\FuncPath");搜索程序的目录<br />   (setq FuncTypes '("*.LSP" "*.FAS" "*.VLX"));搜索源程序的类型<br />   (setvar "SECURELOAD" 0);从所有位置加载文件(信任不警告)<br />   (setq Error Nil);清空变量,避免串门<br />   (repeat (setq i (length FuncTypes))<br />     (if (setq FileNamLst (vl-directory-files FuncPath (nth (setq i (1- i)) FuncTypes) 1))<br />       (mapcar <br />         '(lambda (FileNam / FilePath)<br />             (setq FilePath (strcat FuncPath "\\" FileNam))<br />             (if (vl-catch-all-error-p (vl-catch-all-apply  'load (list FilePath)));捕捉到了错误<br />                (setq Error (cons FilePath Error))<br />             )<br />          ) <br />         FileNamLst<br />       )<br />     )<br />   );加载程序并搜集错误<br />   (if Error ;如果有发生错误<br />     (progn<br />       (princ "\n——★★★ 以下文件未加载成功,请检查！ ★★★——")<br />       (foreach xx Error (princ (strcat "\n--> " xx)))<br />     )<br />   )<br />   (princ)<br /> )<br />

用法：

1. (K:SearchAndLoadFunc "C:\\FuncPath")
   

(K:SearchAndLoadFunc "C:\\FuncPath")<br />

xq4u

沙发啊，好代码，谢谢楼主分享。