[LISP函数]：文件操作函数

wkai

2. 
   
3. ;;from wkai [[url]www.xdcad.net[/url]]
   
4. ;;20050930
   
5. ;;功能   :将文本文件读入表中
   
6. ;;参数fn :文件名
   
7. ;;返回值 :文件内容表
   
8. ;;示例:(xdl-file->lst "c:\\1.txt")
   
9. (defun xdl-file->lst(fn / re f LINE)
   
10.   (setq f (open fn "r"))
    
11.   (while (setq line (read-line f))
    
12.     (setq re (cons line re))
    
13.     )
    
14.   (close f)
    
15.   (reverse re)
    
16.   )
    

<br /> ;;from wkai [[url]www.xdcad.net[/url]]<br /> ;;20050930<br /> ;;功能   :将文本文件读入表中<br /> ;;参数fn :文件名<br /> ;;返回值 :文件内容表<br /> ;;示例:(xdl-file->lst "c:\\1.txt")<br /> (defun xdl-file->lst(fn / re f LINE)<br />   (setq f (open fn "r"))<br />   (while (setq line (read-line f))<br />     (setq re (cons line re))<br />     )<br />   (close f)<br />   (reverse re)<br />   )<br />

2. 
   
3. ;;from wkai [[url]www.xdcad.net[/url]]
   
4. ;;20050930
   
5. ;;功能   :将字符串表写入文本文件
   
6. ;;参数lst:字符串表
   
7. ;;    fn :要写入的文件名
   
8. ;;返回值 :无
   
9. ;;示例:(xdl-lst->file '("第一行""第二行") "c:\\1.txt")
   
10. (defun xdl-lst->file(lst fn / f x)
    
11.   (setq f (open fn "w"))
    
12.   (mapcar '(lambda(x)(write-line x f)) lst)
    
13.   (close f)
    
14.   )
    

<br /> ;;from wkai [[url]www.xdcad.net[/url]]<br /> ;;20050930<br /> ;;功能   :将字符串表写入文本文件<br /> ;;参数lst:字符串表<br /> ;;    fn :要写入的文件名<br /> ;;返回值 :无<br /> ;;示例:(xdl-lst->file '("第一行""第二行") "c:\\1.txt")<br /> (defun xdl-lst->file(lst fn / f x)<br />   (setq f (open fn "w"))<br />   (mapcar '(lambda(x)(write-line x f)) lst)<br />   (close f)<br />   )<br />

2. 
   
3. ;;from wkai [[url]www.xdcad.net[/url]]
   
4. ;;20050930
   
5. ;;功能   :替换文本文件中的部分文本
   
6. ;;参数newstr:替换文本
   
7. ;;    oldstr:被替换文本
   
8. ;;     file :被操作的文件
   
9. ;;返回值 :替换次数
   
10. ;;示例:(xdl-file-substr "第一行" "这是替换后的第一行" "c:\\1.txt")
    
11. (defun xdl-file-substr(oldstr newstr   file / RE count)
    
12.   (setq        lst    (xdl-file->lst file)
    
13.         oldstr1 (strcat "*" oldstr "*")
    
14.         count 0
    
15.   )
    
16.   (foreach n  lst
    
17.     (if        (wcmatch n oldstr1)
    
18.       (setq n          (vl-string-subst newstr oldstr n)
    
19.             count (1+ count)
    
20.             )
    
21.       )
    
22.     (SETQ RE (CONS N RE))
    
23.     )
    
24.   (xdl-lst->file (REVERSE re) file)
    
25.   count
    
26.   )
    

<br /> ;;from wkai [[url]www.xdcad.net[/url]]<br /> ;;20050930<br /> ;;功能   :替换文本文件中的部分文本<br /> ;;参数newstr:替换文本<br /> ;;    oldstr:被替换文本<br /> ;;     file :被操作的文件<br /> ;;返回值 :替换次数<br /> ;;示例:(xdl-file-substr "第一行" "这是替换后的第一行" "c:\\1.txt")<br /> (defun xdl-file-substr(oldstr newstr   file / RE count)<br />   (setq        lst    (xdl-file->lst file)<br />         oldstr1 (strcat "*" oldstr "*")<br />         count 0<br />   )<br />   (foreach n  lst<br />     (if        (wcmatch n oldstr1)<br />       (setq n          (vl-string-subst newstr oldstr n)<br />             count (1+ count)<br />             )<br />       )<br />     (SETQ RE (CONS N RE))<br />     )<br />   (xdl-lst->file (REVERSE re) file)<br />   count<br />   )<br />

2. 
   
3. ;;from wkai [[url]www.xdcad.net[/url]]
   
4. ;;20050930
   
5. ;;功能   :替换多个文本文件中的文本
   
6. ;;参数newstr:替换文本
   
7. ;;    oldstr:被替换文本
   
8. ;;filelst:目标文件文件名或者文件名列表
   
9. ;;返回值 :被替换的文件个数
   
10. ;;示例:(xdl-file-substr-m "这是替换后的第一行" "第一行"  '("c:\\1.lsp" "c:\\2.txt"))
    
11. (defun xdl-file-substr-m (old new  filelst / files n count)
    
12.   (setq count 0)
    
13.   (if (listp filelst)()(setq files(list filelst)))
    
14.   (foreach n filelst
    
15.     (if ( > (xdl-file-substr old new  n) 0) (setq count (1+ count)))
    
16.   )
    
17.    
    

<br /> ;;from wkai [[url]www.xdcad.net[/url]]<br /> ;;20050930<br /> ;;功能   :替换多个文本文件中的文本<br /> ;;参数newstr:替换文本<br /> ;;    oldstr:被替换文本<br /> ;;filelst:目标文件文件名或者文件名列表<br /> ;;返回值 :被替换的文件个数<br /> ;;示例:(xdl-file-substr-m "这是替换后的第一行" "第一行"  '("c:\\1.lsp" "c:\\2.txt"))<br /> (defun xdl-file-substr-m (old new  filelst / files n count)<br />   (setq count 0)<br />   (if (listp filelst)()(setq files(list filelst)))<br />   (foreach n filelst<br />     (if ( > (xdl-file-substr old new  n) 0) (setq count (1+ count)))<br />   )<br />    <br />

2. 
   
3. ;;from wkai [[url]www.xdcad.net[/url]]
   
4. ;;20050930
   
5. ;;功能   :获取某路径下所有符合样本的文件名表
   
6. ;;参数path:路径
   
7. ;; pattern:文件名样本
   
8. ;;返回值 :文件名表
   
9. ;;示例:(xdl-file-allinfolder  "c:" "*.exe" t)
   
10. (defun xdl-file-allinfolder(path pattern sub / n re)
    
11.   (setq p (cddr(mapcar '(lambda(x)(strcat path "\" x))(vl-directory-files  path "*" 0))))
    
12.   (foreach n p
    
13.     (if (vl-file-directory-p n)
    
14.       (if sub (setq re (append (xdl-file-allinfolder  n PATTERN sub) re)))
    
15.       (if (wcmatch (strcat (vl-filename-base n)
    
16.                            (if (vl-filename-extension n)
    
17.                              (vl-filename-extension n)
    
18.                              ""
    
19.                            )
    
20.                    )
    
21.                    pattern
    
22.           )
    
23.         (setq re (cons n re))
    
24.       )
    
25.     )
    
26.   )
    
27.   re
    
28.   )
    

<br /> ;;from wkai [[url]www.xdcad.net[/url]]<br /> ;;20050930<br /> ;;功能   :获取某路径下所有符合样本的文件名表<br /> ;;参数path:路径<br /> ;; pattern:文件名样本<br /> ;;返回值 :文件名表<br /> ;;示例:(xdl-file-allinfolder  "c:" "*.exe" t)<br /> (defun xdl-file-allinfolder(path pattern sub / n re)<br />   (setq p (cddr(mapcar '(lambda(x)(strcat path "\" x))(vl-directory-files  path "*" 0))))<br />   (foreach n p<br />     (if (vl-file-directory-p n)<br />       (if sub (setq re (append (xdl-file-allinfolder  n PATTERN sub) re)))<br />       (if (wcmatch (strcat (vl-filename-base n)<br />                            (if (vl-filename-extension n)<br />                              (vl-filename-extension n)<br />                              ""<br />                            )<br />                    )<br />                    pattern<br />           )<br />         (setq re (cons n re))<br />       )<br />     )<br />   )<br />   re<br />   )<br />

2. 
   
3. ;;from wkai [[url]www.xdcad.net[/url]]
   
4. ;;20050930
   
5. ;;功能   :选择一个文件夹,可以创建新文件夹
   
6. ;;参数msg:提示信息
   
7. ;;返回值 :文件夹路径
   
8. ;;示例:(xdl-file-getfolder "选择一个文件夹")
   
9. (defun xdl-file-getfolder (msg / WinShell shFolder path catchit)
   
10.   (vl-load-com)
    
11.   (setq winshell (vlax-create-object "Shell.Application"))
    
12.   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 255))
    
13.   (setq
    
14.     catchit (vl-catch-all-apply
    
15.               '(lambda ()
    
16.                  (setq shFolder (vlax-get-property shFolder 'self))
    
17.                  (setq path (vlax-get-property shFolder 'path))
    
18.                )
    
19.             )
    
20.   )
    
21.   (if (vl-catch-all-error-p catchit)
    
22.     nil
    
23.     path
    
24.   )
    
25. )
    

<br /> ;;from wkai [[url]www.xdcad.net[/url]]<br /> ;;20050930<br /> ;;功能   :选择一个文件夹,可以创建新文件夹<br /> ;;参数msg:提示信息<br /> ;;返回值 :文件夹路径<br /> ;;示例:(xdl-file-getfolder "选择一个文件夹")<br /> (defun xdl-file-getfolder (msg / WinShell shFolder path catchit)<br />   (vl-load-com)<br />   (setq winshell (vlax-create-object "Shell.Application"))<br />   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 255))<br />   (setq<br />     catchit (vl-catch-all-apply<br />               '(lambda ()<br />                  (setq shFolder (vlax-get-property shFolder 'self))<br />                  (setq path (vlax-get-property shFolder 'path))<br />                )<br />             )<br />   )<br />   (if (vl-catch-all-error-p catchit)<br />     nil<br />     path<br />   )<br /> )<br />

jyzas

不错，支持楼主:)

123523058

挺多的函数 不错 用用看看

dnbcgrass

下来学习学习！

lianghui2018

谢谢楼主分享

yoyoho

谢谢楼主分享

bloodtempt

楼主辛苦了，谢谢分享

bloodtempt

楼主辛苦了，谢谢分享

laiz3000

很全面的说:)

cq_qg68

(xdl-file-getfolder "选择一个文件夹")
运行为何显示参数错误？

7325pink

谢谢分享！拜读了！

alhope

非常感谢作者的分享！

MUYIY

感谢分享，