- 帖子
- 12
- 积分
- 28
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2023-9-28
|
本帖最后由 Ru_Evan 于 2023-10-14 13:54 编辑
回复 7# qixiaobin0715
考虑周全,代码精简,运行快速。。十分感谢!!
根据我这边实际情况,稍微改了下,运行得很好,再次感谢。。。
@echo off
set /p "var=提取词组项:"
set /p "out=输出文件名:"
set /a num=1
for /d %%a in (*) do (
pushd "%~dp0\%%a"
for /r %%b in (*.txt) do (
setlocal enabledelayedexpansion
echo,[!num!] "%%b"
(for /f "usebackq delims=" %%i in ("%%b") do (
set "str=%%i"
if "!str:*:=!"=="" (
if not "!str:%var%=!"=="!str!" (
set n=true
) else if defined n (
if "!str:~-1!"==":" (
set n=
) else (
echo,%%i
)
)
)
))>>"%~dp0\%out%.txt"
endlocal
set /a "num+=1"
)
)
pause
exit |
|