快速对文件批量改名

Highflybird · 发表于 2013-5-8 18:19:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

[pcode=lisp,true]
(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)
)
[/pcode]

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

tianyi1230 · 发表于 2013-6-25 21:49:47

高飞鸟就是高手啊

cmssrr520 · 发表于 2013-10-26 16:59:49

佷是需要，多谢上传

sicky111 · 发表于 2013-10-27 22:54:33

请问DOSLib在哪里可以下载？

/db_自贡黄明儒_ · 发表于 2013-10-28 09:45:03

下载大师的东西以备用,感谢分享

cy956 · 发表于 2013-10-28 16:57:39

学习。批量改名还是习惯在win commander里面操作。

aeo · 发表于 2013-10-28 22:33:59

用doslib ??
vl-file-rename 不是现成的?

Highflybird · 发表于 2013-10-30 10:19:25

这个帖子2006发的了，那时候还不知道这么多。{:soso_e113:}
除了用vl-file-rename,还可以用其他办法的。譬如Scripting.FileSystemObjec.

Highflybird · 发表于 2013-10-30 10:19:34

本帖最后由 Highflybird 于 2013-10-30 10:24 编辑

当然还可以用本站的 API.

zteykmgscqh · 发表于 2014-1-3 06:31:56

Highflybird 发表于 2013-10-30 10:19
这个帖子2006发的了，那时候还不知道这么多。
除了用vl-file-rename,还可以用其他办法的。譬 ...

{:soso_e100:}

enn09 · 发表于 2014-4-16 15:29:38

好程序，感谢分享

bzhjl · 发表于 2014-4-22 18:16:17

无法解压的情况倒是经常遇到，确实很有用

ray7891 · 发表于 2017-9-28 17:18:07

这个是个好东西

账号		自动登录	找回密码
密码			立即注册

[飞鸟集] 快速对文件批量改名

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子