求助批处理实现志愿者疫情物质发放统计表插入递增数字

myacg · 发表于 2022-2-5 15:16:10

大家新年好。
我在做一个志愿者发放物资的统计表，求助一下。
文件夹有很多txt文件，排版也不统一乱七八糟，内容大概如下。
2022年2月4日物资发放表
负责人 XXX
工作人员 XX  XX  XX
志愿者 XX  XX  XX  XX
单号红星村 XXX 地址 XXXXXXXXXX
  单号榕树镇 XXX 地址 XXXXXXXXXX
XX单号吉安村 XXX 地址 XXXXXXXXXX
单号红星村 XXX 地址 XXXXXXXXXX
单号红星村 XXX 地址 XXXXXXXXXX
单号榕树镇 XXX 地址 XXXXXXXXXX
单号红星村 XXX 地址 XXXXXXXXXX
000单号吉安村 XXX 地址 XXXXXXXXXX
单号红星村 XXX 地址 XXXXXXXXXX
单号榕树镇 XXX 地址 XXXXXXXXXX
单号榕树镇 XXX 地址 XXXXXXXXXX
单号红星村 XXX 地址 XXXXXXXXXX
单号吉安村 XXX 地址 XXXXXXXXXX
ss单号红星村 XXX 地址 XXXXXXXXXX
单号吉安镇 XXX 地址 XXXXXXXXXX
单号红星村 XXX 地址 XXXXXXXXXX
ff单号榕树镇 XXX 地址 XXXXXXXXXX
单号吉安村 XXX 地址 XXXXXXXXXX

不同之处是村名如“红星村，榕树镇，吉安村”我想在每个村名后面按顺序插入一个递增的数字和符号"-"。变成
2022年2月4日物资发放表
负责人 XXX
工作人员 XX  XX  XX
志愿者 XX  XX  XX  XX
单号红星村-001 XXX 地址 XXXXXXXXXX
  单号榕树镇-001 XXX 地址 XXXXXXXXXX
单号吉安村-001 XXX 地址 XXXXXXXXXX
XXX单号红星村-002 XXX 地址 XXXXXXXXXX
单号红星村-003 XXX 地址 XXXXXXXXXX
单号榕树镇-002 XXX 地址 XXXXXXXXXX
00单号吉安村-002 XXX 地址 XXXXXXXXXX
单号红星村-004 XXX 地址 XXXXXXXXXX
  单号榕树镇-003 XXX 地址 XXXXXXXXXX
fff单号吉安村-003 XXX 地址 XXXXXXXXXX
单号红星村-005 XXX 地址 XXXXXXXXXX
xx单号红星村-006 XXX 地址 XXXXXXXXXX
单号榕树镇-004 XXX 地址 XXXXXXXXXX
用bat处理，请大佬帮帮忙，谢谢。

flashercs · 发表于 2022-2-5 16:37:23

本帖最后由 flashercs 于 2022-2-5 16:39 编辑

@echo off
setlocal EnableDelayedExpansion
cd /d "%~dp0"
@REM 统计数据
set srcfile="data.txt"
set dstfile="data2.txt"
(
for /f "usebackq tokens=1,2*" %%A in (%srcfile%) do (
set f1=%%A
if "!f1:单号=!"=="!f1!" (
echo.%%A %%B %%C
) else (
if not defined %%B (
set %%B=1001
) else (
set /a %%B+=1
)
echo.%%A %%B-!%%B:~-3! %%C
)
)
)>%dstfile%
endlocal
pause
exit /b

复制代码

idwma · 发表于 2022-2-5 16:41:27

本帖最后由 idwma 于 2022-2-5 16:59 编辑

注意先备份文件呀

#@&cls&powershell "type %~s0|out-string|iex"&pause&exit
dir *.txt|%{
$a=@{}
sc $_.fullname $(foreach($i in gc -readcount 0 $_.fullname){
if($i -match '..村|..镇'){
$a[$matches[0]]+=1
$i -replace '^(.*?)(..村|..镇)(.*)$',"`$1`$2-$('{0:d3}' -f [int]$a[$matches[0]])`$3"
}else{$i}
})
}

复制代码

myacg · 发表于 2022-2-5 18:37:36

回复 2# flashercs
谢谢啊，可用。
可惜的是有行前有空格的会跳过，之前统计的人太潦草了，要先手动去空格。

myacg · 发表于 2022-2-5 18:39:38

回复 3# idwma
格式会乱掉，幸亏你提醒先备份，不过还是谢谢你。

qixiaobin0715 · 发表于 2022-2-7 09:32:59

回复 4# myacg
2楼代码不会出现你说的行首有空格会跳过。并且还会将行首空格去掉。

		自动登录	找回密码
密码			注册

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

[文本处理] 求助批处理实现志愿者疫情物质发放统计表插入递增数字

评分