[文件操作] [已解决]请求用批处理将目录内同名文件用RAR打包为自解压文件

semiuel

要求，如下：
把目录中的所有同名文件（即同文件名，后缀名不同），打包成同名的WINRAR自解压文件。
  如：目录内有文件 1.txt、1.pdf、1.doc、1.xls、2.pdf、2.txt、2.log，那么要求打包成1.exe，2.exe。
1.exe和2.exe都是WINRAR自解压文件。

WINRAR安装在默认目录.

请高手帮忙.


参照4楼方法做了一个小小的修改.

@echo off
set SrcFolder=D:\test
set rarPath=C:\Program Files\WinRAR
for %%a in ("%SrcFolder%\*.*") do (
  md "%SrcFolder%\%%~na" 2>nul
  move /y "%%a" "%SrcFolder%\%%~na" 2>nul
)
for /f "delims=" %%a in ('dir /ad /b "%SrcFolder%\"') do (
  "%rarPath%\rar.exe" a -sfx -ep "%SrcFolder%\%%~na.exe" "%SrcFolder%\%%a"

)
复制代码

RAR.EXE加了一个"-EP"参数,不记录路径信息,这样打包后的EXE文件没有路径信息.
另外,本批处理程序不能跟需要处理的文件放在同一目录.

新解决方案见8楼.
不需要把文件移动到相应子目录就可以直接压缩.

[ 本帖最后由 semiuel 于 2009-5-16 00:16 编辑 ]

tireless

@echo off
path %path%;"e:\Program Files\WinRAR"
cd /d "D:\test"

md 自解压文件
for %%a in (*) do (
  if not exist 自解压文件\%%~na.exe (
    dir/a-d/b "%%~na.??????????"|rar a -idq -sfx "自解压文件\%%~na" -n@ -x"%~f0"
  )
)
复制代码

[ 本帖最后由 tireless 于 2009-5-18 23:10 编辑 ]

Batcher

当出现不带扩展名的文件时,自解压压缩包里会有这个文件,但文件被移动到子目录时,那个文件不见了.

没看懂啥意思，“文件被移动到子目录”是什么意思？你说的我的代码在移动文件的时候吗？
我那个代码会把没有扩展名的文件先移动到一个系统临时目录里面。

Batcher

不能打包exe文件，这一点正是8楼的方法的缺陷所在。

tireless

那就再加 10 个问号...

你的要求是打包成同名的 exe，如果有 test.exe，打包后要如何改名？

semiuel

楼上是从赢政过来的吧?我看到你在那个帖子的回复了.
如果需要处理的文件里带EXE文件和扩展名超过10个字符的文件,怎么办?

[attach]1335[/attach]

[ 本帖最后由 semiuel 于 2009-5-16 10:22 编辑 ]

tireless

改成这样，避免批处理自身被打包：

@echo off
path %path%;"C:\Program Files\WinRAR"
cd /d "D:\test" ||pause&&exit/b

echo 打包中，请稍等...
for /f "delims=" %%a in ('dir/b/a-d') do (
  if not exist "%%~na.exe" (
    dir /b "%%~na.??????????"|rar a -idq -sfx "%%~na" -n@ -x"%~f0"
  )
)
echo 完成。请按任意键退出...
pause>nul

不会漏掉没有扩展名的文件，dir test.???????? 会列出所有文件名为 test 的文件，包括没有扩展名的。

[ 本帖最后由 tireless 于 2009-5-16 10:17 编辑 ]

semiuel

原帖由 Batcher 于 2009-5-16 08:19 发表
请用此代码分别测试如下场景，看看是不是你想要的结果。

1、文件列表：
a.txt
a.exe

2、文件列表：
a.BatHome
a.BatHomeBacher

因为在他的使用过程中不会出现EXE文件和扩展名超过10字符

10楼的程序我试了一下,有一个问题.
当出现不带扩展名的文件时,自解压压缩包里会有这个文件,但文件被移动到子目录时,那个文件不见了.

[ 本帖最后由 semiuel 于 2009-5-16 10:08 编辑 ]

Batcher

1、本批处理程序可以跟需要处理的文件放在同一目录
2、可以兼容没有扩展名的文件

@echo off
set SrcFolder=D:\test
set rarPath=C:\Program Files\WinRAR
rd /s /q "%temp%\BatHome"
md "%temp%\BatHome"
for %%a in ("%SrcFolder%\*.*") do (
  if "%%~xa" equ "" (
    move "%%a" "%temp%\BatHome"
  )
)
for %%a in ("%SrcFolder%\*.*") do (
  if "%%~nxa" neq "%~nx0" (
    md "%SrcFolder%\%%~na"
    move /y "%%a" "%SrcFolder%\%%~na"
  )
)
for /f "delims=" %%a in ('dir /ad /b "%SrcFolder%\"') do (
  "%rarPath%\rar.exe" a -sfx -ep "%SrcFolder%\%%~na.exe" "%SrcFolder%\%%a"
)
for %%a in ("%temp%\BatHome\*.*") do (
  "%rarPath%\rar.exe" a -ep "%SrcFolder%\%%~na.exe" "%%a"
)
复制代码

Batcher

请用此代码分别测试如下场景，看看是不是你想要的结果。

1、文件列表：
a.txt
a.exe

2、文件列表：
a.BatHome
a.BatHomeBacher

semiuel

我在赢政天下论坛发现新解,效果比4楼的好.

@echo off
path %path%;"C:\Program Files\WinRAR"
cd /d "D:\test" ||pause&&exit/b

echo 打包中，请稍等...
for /f "delims=" %%a in ('dir/b/a-d') do (
  if not exist "%%~na.exe" (
    dir /b "%%~na.??????????"|rar a -idq -sfx "%%~na" -n@
  )
)
echo 完成。请按任意键退出...
pause>nul
复制代码

semiuel

呵呵,不好意思啊~是我考虑不周.
也习惯了其它论坛的问题解决就锁帖的行为.
今天早上试了一下,确实有个小问题.
就是当文件没有扩展名的时候,批处理不会压缩这个文件.

namejm

　　随着认识的不断深入，有些当时已经解决的问题，可能还存在更完美的解决方案，还有继续讨论的价值，论坛一向不提倡对技术讨论帖子进行锁定，除非是已经出现了违规行为。

semiuel

谢谢楼上两位,问题解决了,请锁帖.

Batcher

@echo off
set SrcFolder=D:\test
set rarPath=C:\Program Files\WinRAR
for %%a in ("%SrcFolder%\*.*") do (
  md "%SrcFolder%\%%~na" 2>nul
  move /y "%%a" "%SrcFolder%\%%~na" 2>nul
)
for /f "delims=" %%a in ('dir /ad /b "%SrcFolder%\"') do (
  "%rarPath%\rar.exe" a -sfx "%%~na.exe" "%SrcFolder%\%%a"
)
复制代码