如何快速对文件批量改名？

highflybir

如何快速对文件批量改名？
我这里 提供 一个例子，用了doslib,
这样的话就可以按照自己要求的方式改名了。

3. (defun acadver (/ version)
4.   (setq version (getvar "acadver"))
5.   (setq version (substr version 1 2))
6.   (cond
7.     ( (= version "15")
8.       (arxload "c:\\program files\\DOSLib 6.1\\doslib15.arx");for R2000-2002
9.     )
10.     ( (= version "16")
11.       (arxload "c:\\program files\\DOSLib 6.1\\doslib16.arx");for R2004-2006
12.     )
13.     ( (= version "16")
14.       (arxload "c:\\program files\\DOSLib 7.5\\doslib17.arx");for R2007-2008
15.     )
16.   )
17. )
18. (acadver)
19. (defun c:test (/ lst OldName NewName)
20.   (setq lst (dos_dir "e:\\highflybird\\lisp\\qq\\*.重命名" 1));我要改名的文件路径及其类型
21.   (foreach n lst
22.     (setq OldName (strcat "e:\\highflybird\\lisp\\qq\" n))
23.     (setq NewName (vl-string-subst ".rar" ".重命名" OldName))
24.     (dos_rename OldName NewName)
25.   )
26.   (princ)
27. )

(defun acadver (/ version)   (setq version (getvar "acadver"))   (setq version (substr version 1 2))   (cond     ( (= version "15")       (arxload "c:\\program files\\DOSLib 6.1\\doslib15.arx");for R2000-2002     )     ( (= version "16")       (arxload "c:\\program files\\DOSLib 6.1\\doslib16.arx");for R2004-2006     )     ( (= version "16")       (arxload "c:\\program files\\DOSLib 7.5\\doslib17.arx");for R2007-2008     )   ) ) (acadver) (defun c:test (/ lst OldName NewName)   (setq lst (dos_dir "e:\\highflybird\\lisp\\qq\\*.重命名" 1));我要改名的文件路径及其类型   (foreach n lst     (setq OldName (strcat "e:\\highflybird\\lisp\\qq\" n))     (setq NewName (vl-string-subst ".rar" ".重命名" OldName))     (dos_rename OldName NewName)   )   (princ) )

这个例子是源于用qq下载时，会对rar类型的文件重命名，所以当文件数目较多时，有必要用批量改名程序。
当然你也可以按照你自己的方式来改名。譬如说从网站上下载了一些都是数字为名字的文件，而这些数字又不是连续的，这时候如果是rar文件类型的话，就可能出现无法解压的现象。用批量改名就显得很有必要了。

xujinhua

正在学习这个，谢谢你

无痕

从ｘｄｃａｄ下载的多个ｒａｒ文件我一般用一个批处理．
（下面代码保存为*.bat,拷贝到下载文件的目录．双击执行)

1. ren *-*.part*. xdcad-*.part*.rar

复制代码

phoenixdjq

请问版主，doslib是不是需要安装呀，如果是的话，版主能不能提供一个程序呀

一直不知道这么DOSLIB怎么用，如果把使用方法能说的详细一点，先谢了。

highflybir

你可以搜索本论坛有关DOSLIB的话题。

鬼魔

不错，支持下

以前我都是用ACDSEE改的

highflybir

当然不用doslib,也完全可以完成对文件的重命名，删除，拷贝，列出所有文件等操作。
下面是一个例子，能完成批量改文件后缀名的程序。

3. (vl-load-com)
4. (defun c:test (/ file path ext lst OldName NewName)
5.   (if (setq file (getfiled "选择文件" "C:/" "" 8))
6.     (progn
7.       (setq path (vl-filename-directory file))
8.       (setq ext (vl-filename-extension file))
9.       (if ext
10. ;;我要改名的文件路径及其类型
11. (setq lst (vl-directory-files path (strcat "*" ext)))
12. (setq lst (cdr (cdr (vl-directory-files path nil))))
13.       )
14.       (foreach n lst
15. (setq OldName (strcat path "\" n))
16. (if ext
17.    (setq NewName (vl-string-subst ext ".rar" OldName))
18.    (setq newName (strcat oldname ".rar"))
19. )
20. (vl-file-rename OldName NewName)
21.       )
22.     )
23.   )
24.   (princ)
25. )

(vl-load-com) (defun c:test (/ file path ext lst OldName NewName)   (if (setq file (getfiled "选择文件" "C:/" "" 8))     (progn       (setq path (vl-filename-directory file))       (setq ext (vl-filename-extension file))       (if ext ;;我要改名的文件路径及其类型 (setq lst (vl-directory-files path (strcat "*" ext))) (setq lst (cdr (cdr (vl-directory-files path nil))))       )       (foreach n lst (setq OldName (strcat path "\" n)) (if ext    (setq NewName (vl-string-subst ext ".rar" OldName))    (setq newName (strcat oldname ".rar")) ) (vl-file-rename OldName NewName)       )     )   )   (princ) )

色龙

批量改文件的用VB做比较省事

328302216

来了就留脚印,支持高飞鸟

smartstar

也来学习学习。

vlisp2012

改天学习一下doslib。