批处理之家 » BAT求助&讨论 » [已解决]求助批处理，文件重命名和统计行数

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 1

帖子: 37
积分: 69
技术: 0
捐助: 0
注册时间: 2015-9-15

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2015-9-15 23:06 | 只看该作者

[文件操作] [已解决]求助批处理，文件重命名和统计行数

怎么实现批量获取文件夹下面txt文件行数，并在 txt文件名后面添加对应文件行数值？

1 评分人数

Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

Rank: 8 Rank: 8

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

2楼

发表于 2015-9-15 23:26 | 只看该作者

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /a-d/b/s *.txt') do (
    for /f "tokens=3 delims=:" %%b in ('find /c /v "" "%%a"') do set n=%%b
    ren "%%a" "%%~na_!n: =!%%~xa"
)
pause
复制代码

Rank: 5 Rank: 5

帖子: 359
积分: 603
技术: 66
捐助: 0
注册时间: 2014-11-19

3楼

发表于 2015-9-15 23:32 | 只看该作者

@echo off & setlocal enabledelayedexpansion
%1(for /f "delims=" %%i in ('%~0 :^|sort') do ren %%i)& pause & exit /b
for /f "tokens=1,* delims= " %%i in ('find /c /v "" *.txt') do (
	set info=%%j
	set ln=!info:*:=!
	for /f "delims=" %%a in ("!ln!") do set fn=!info::%%a=!
	echo;"!fn!" "!fn:~,-4!!ln:~1!.txt"
)
复制代码

人生是一部书/只有这一页最温暖/读懂它的时候/我们在远方流泪...

Rank: 1

帖子: 37
积分: 69
技术: 0
捐助: 0
注册时间: 2015-9-15

4楼

发表于 2015-9-15 23:32 | 只看该作者

回复 2# pcl_test

“存在一个重名文件，或是找不到文件。”
运行后出现这个情况

Rank: 8 Rank: 8

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

5楼

发表于 2015-9-15 23:41 | 只看该作者

回复 4# shimuren

测试没有问题，打包附件上传你的测试文件

Rank: 1

帖子: 37
积分: 69
技术: 0
捐助: 0
注册时间: 2015-9-15

6楼

发表于 2015-9-15 23:45 | 只看该作者

回复 5# pcl_test

问题已经解决谢谢朋友

Rank: 1

帖子: 37
积分: 69
技术: 0
捐助: 0
注册时间: 2015-9-15

7楼

发表于 2015-9-15 23:45 | 只看该作者

回复 3# 回家路上

问题已经解决谢谢朋友

Rank: 1

帖子: 37
积分: 69
技术: 0
捐助: 0
注册时间: 2015-9-15

8楼

发表于 2015-9-16 00:17 | 只看该作者

回复 3# 回家路上

继续求助：如何让该bat支持文件拖拽呢，比如将文本拖拽到bat图标上，就自动统计该txt的行数？
谢谢朋友~

Rank: 5 Rank: 5

帖子: 359
积分: 603
技术: 66
捐助: 0
注册时间: 2014-11-19

9楼

发表于 2015-9-16 13:06 | 只看该作者

回复 8# shimuren

@echo off
:deal
for /f "tokens=3 delims=:" %%i in ('find /c /v "" "%~1"') do set n=%%i
echo;%~1     %n: =%
shift
if "%~1" neq "" goto deal
pause & exit /b
复制代码

1 评分人数

Batcher: 乐于助人技术 + 1

人生是一部书/只有这一页最温暖/读懂它的时候/我们在远方流泪...