[文件操作] [已解决]：将此重命名和压缩的两个批处理合并

Rank: 1

帖子: 17
积分: 35
技术: 0
捐助: 0
注册时间: 2011-11-16

3楼

发表于 2015-3-29 16:25 | 只看该作者

回复 2# DAIC

经测试，合并后的批处理程序仅执行了前一部分，即处理了文件并重命名，但并没有将文件压缩。请问哪里出问题了？

sed.exe gawk.exe grep.exe 下载地址

DAIC

中将

Rank: 8 Rank: 8

帖子: 2874
积分: 7021
技术: 336
捐助: 0
注册时间: 2011-6-2

4楼

发表于 2015-3-29 16:33 | 只看该作者

回复 3# brothersonline

删除代码中的 @echo off
代码保存为 C:\test.bat
使用 Win + R 组合键打开运行窗口
输入 cmd 打开命令行窗口
执行命令 C:\test.bat
结果发出来看看

Rank: 1

帖子: 17
积分: 35
技术: 0
捐助: 0
注册时间: 2011-11-16

5楼

发表于 2015-3-29 16:42 | 只看该作者

回复 4# DAIC

Microsoft Windows [版本 6.1.7601]
版权所有 (c) 2009 Microsoft Corporation。保留所有权利。

C:\Users\Administrator>c:\test.bat

C:\Users\Administrator>cd /d
文件名、目录名或卷标语法不正确。

C:\Users\Administrator>ren "" 1.txt
系统找不到指定的文件。

C:\Users\Administrator>type 1.txt 1>1
系统找不到指定的文件。

C:\Users\Administrator>ren 1.txt ""
系统找不到指定的文件。

C:\Users\Administrator>ren 1 "★"

C:\Users\Administrator>for /F "tokens=2 delims==" %a in ('ftype|find "WinRAR"')
do (
set "rar=%a"
goto :next
)

C:\Users\Administrator>(
set "rar="C:\Program Files\WinRAR\WinRAR.exe" "%1""
goto :next
)

C:\Users\Administrator>""C:\Program Files\WinRAR\WinRAR.exe" "%1"" a -ibck -v838
860 -ep1 -ilogc:.\rar.log -inul "" "★"
'""C:\Program' 不是内部或外部命令，也不是可运行的程序
或批处理文件。

C:\Users\Administrator>

Rank: 1

帖子: 17
积分: 35
技术: 0
捐助: 0
注册时间: 2011-11-16

6楼

发表于 2015-3-29 16:48 | 只看该作者

回复 4# DAIC

我的是32位的win7 ，有没有影响？

sed.exe gawk.exe grep.exe 下载地址

DAIC

中将

Rank: 8 Rank: 8

帖子: 2874
积分: 7021
技术: 336
捐助: 0
注册时间: 2011-6-2

7楼

发表于 2015-3-29 17:00 | 只看该作者

@echo off
cd /d %~dp1
ren "%~nx1" 1.txt
type 1.txt >1
ren 1.txt "%~nx1"
ren 1 "★%~nx1"

for /f "tokens=2 delims==" %%a in ('ftype WinRAR') do (
    set "rar=%%~dparar.exe"
)

"%rar%" a -ibck -v838860 -ep1 -ilogc:.\rar.log -inul "%~nx1" "★%~nx1"
复制代码

代码已更新，你再用原来的拖放的方式试试。

Rank: 1

帖子: 17
积分: 35
技术: 0
捐助: 0
注册时间: 2011-11-16

8楼

发表于 2015-3-29 17:13 | 只看该作者

本帖最后由 brothersonline 于 2015-3-29 17:15 编辑

回复 7# DAIC

仍然不能生成压缩文件，将日志文件您看一下：

-------- 29 三月 2015, 压缩文件 D:\Downloads\方方格子 V2.0.4\说明.txt
17:11:49 错误：损坏的压缩文件说明.txt

另外，直接压缩是没问题的，或将文件拖至第二个批处理，也是可以实现压缩的。

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

9楼

发表于 2015-3-29 17:55 | 只看该作者

本帖最后由 pcl_test 于 2015-3-29 21:54 编辑

回复 8# brothersonline

试试这样

@echo off
setlocal enabledelayedexpansion
For %%a IN (%*) DO (
cd /d "%%~dpa"
ren "%%~nxa" 1.txt
type 1.txt >1
ren 1.txt "%%~nxa"
ren 1 "★%%~na.jpg"

For /f "tokens=2 delims==" %%b IN ('ftype^|find "WinRAR"') DO (
Set rar=%%b
)
Set rar=!rar:~,-5!
!rar! a -ibck -v838860 -ep1 -ilogc:.\rar.log -inul "★%%~na" "★%%~na.jpg"
)
复制代码

1 评分人数

Batcher: 乐于助人技术 + 1

Rank: 1

帖子: 17
积分: 35
技术: 0
捐助: 0
注册时间: 2011-11-16

10楼

发表于 2015-3-29 21:40 | 只看该作者

回复 9# pcl_test

代码中：
ren "%~nx1" 1.txt
type 1.txt >1
ren 1.txt "%~nx1"
ren 1 "★%~nx1"
不可以动，这是处理文件中的特殊信息用的，只是我没弄懂它的意思，如果可能最好在前面再加上一个命令，将文件名改为以jpg为扩展名的文件。
再执行上述命令，麻烦了！

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

11楼

发表于 2015-3-29 21:55 | 只看该作者

回复 10# brothersonline
已在9楼更改

Rank: 1

帖子: 17
积分: 35
技术: 0
捐助: 0
注册时间: 2011-11-16

12楼

发表于 2015-3-29 22:10 | 只看该作者

本帖最后由 brothersonline 于 2015-3-29 22:14 编辑

回复 11# pcl_test

是先将文件修改扩展名为“JPG”，是不是这样：

@echo off
setlocal enabledelayedexpansion
For %%a IN (%*) DO (
cd /d "%%~dpa"
ren "%%~nxa" "%%~na.jpg" ::将文件扩展名修改为“JPG”
ren "%%~na.jpg" 1.txt
type 1.txt >1
ren 1.txt "%%~nxa"
ren 1 "★%%~nxa" ::再将文件名改回来（一般为doc或docx）

For /f "tokens=2 delims==" %%b IN ('ftype^|find "WinRAR"') DO (
Set rar=%%b
)
Set rar=!rar:~,-5!
!rar! a -ibck -v838860 -ep1 -ilogc:.\rar.log -inul "★%%~na" "★%%~nxa"
)

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

13楼

发表于 2015-3-29 22:21 | 只看该作者

本帖最后由 pcl_test 于 2015-3-29 22:26 编辑

回复 12# brothersonline
嗯，是的，::注释不要跟命令行在同一行

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

14楼

发表于 2015-3-29 22:35 | 只看该作者

回复 12# brothersonline
问题得到解决后请在标题最前面注明[已解决]
http://www.bathome.net/thread-3473-1-1.html

Rank: 1

帖子: 17
积分: 35
技术: 0
捐助: 0
注册时间: 2011-11-16

15楼

发表于 2015-3-30 00:06 | 只看该作者

回复 13# pcl_test

测试了一下，将“考试申报表”拖放至此批处理，结果如下：

ECHO 处于打开状态。

E:\我的文档\0>setlocal enabledelayedexpansion

E:\我的文档\0>For %a IN (E:\我的文档\0\考试申报表.doc) DO (
cd /d "%~dpa"
ren "%~nxa"  "%~na.jpg"
ren "%~na.jpg" 1.txt
type 1.txt  1>1
ren 1.txt "%~nxa"
ren 1 "★%~nxa"
For /F "tokens=2 delims==" %b IN ('ftype|find "WinRAR"') DO (Set rar=%b )
Set rar=!rar:~,-5!
!rar! a -ibck -v838860 -ep1 -ilogc:.\rar.log -inul "★%~na" "★%~nxa"
)

E:\我的文档\0>(
cd /d "E:\我的文档\0\"
ren "考试申报表.doc"  "考试申报表.jpg"
ren "考试申报表.jpg" 1.txt
type 1.txt  1>1
ren 1.txt "考试申报表.doc"
ren 1 "★考试申报表.doc"
For /F "tokens=2 delims==" %b IN ('ftype|find "WinRAR"') DO (Set rar=%b )
Set rar=!rar:~,-5!
!rar! a -ibck -v838860 -ep1 -ilogc:.\rar.log -inul "★考试申报表" "★考试申报表
.doc"
)
系统资源不足，无法完成请求的服务。
系统找不到指定的文件。
系统找不到指定的文件。
系统找不到指定的文件。

E:\我的文档\0>(Set rar="C:\Program Files\WinRAR\WinRAR.exe" "%1" )

E:\我的文档\0>(Set rar="C:\Program Files\WinRAR\WinRAR.exe" "%1" )

E:\我的文档\0>(Set rar="C:\Program Files\WinRAR\WinRAR.exe" "%1" )

E:\我的文档\0>Pause
请按任意键继续. . .

文件夹中出现“★考试申报表.doc”和“★考试申报表. rar”，但是文件大小为0