ivor

@echo off
echo,>输出结果.txt
for /f "delims=" %%a in ('dir /b *.txt') do (
    call :get_line "%%a"
)
goto :EOF
more +2 就是获取第3行的内容
:get_line file
for /f "delims=" %%b in ('more +2 %1') do (
    echo %1 %%b >>输出结果.txt
    goto :EOF
)
复制代码

ivor

回复 3# 屡败屡战


第三行dir后面加上/s即可：    ('dir /s /b *.txt')

ivor

回复 5# 屡败屡战


    论坛里面有很多教程
-Totalcount 3 表示读取三行
powershell：

dir *.txt -Recurse -Exclude "输出结果.txt"| %{if (Get-Content "$_" -Totalcount 3){-JOIN($_," ",(Get-Content "$_" -Totalcount 3)[-1])}} | sc 输出结果.txt
复制代码

7818个文本382M测试结果：

powershell：8秒

2017年12月17日 13:04:16
2017年12月17日 13:04:24

bat：6分钟

13:04:54.53
13:10:25.92

ivor

回复 7# 屡败屡战

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b *.txt') do (
    set line=0
    (for /f "eol= delims=" %%i in (%%~sa) do (
        set /a line+=1
        
        if !line! equ 70 (echo 插入内容 %%i) else (if !line! equ 37 (echo 插入内容 %%i) else (if !line! equ 30 (echo 插入内容 %%i) else (if !line! equ 20 (echo 插入内容 %%i) else (if !line! equ 20 (echo 插入内容 %%i) else (if !line! equ 10 (echo 插入内容 %%i) else (if !line! equ 8 (echo 插入内容 %%i) else (if !line! equ 7 (echo 插入内容 %%i) else (echo %%i))))))))    
    ))>$
    move /y $ "%%~a"
)
复制代码

ivor

回复 9# 屡败屡战

和TXT文件放到一个目录，保存后缀.cmd，双击运行

<# :
@echo off
rem 增强代码兼容性,代码保存为 ".bat"、".cmd"、".ps1"均可执行
powershell Set-ExecutionPolicy -ExecutionPolicy RemoteSigned
more +8 %~f0 > %~dpn0.ps1
powershell %~dpn0.ps1
del %~dpn0.ps1&pause&exit /b
#>
-JOIN("开始时间：",(get-date))
dir *.txt -Recurse -Exclude "输出结果.txt"| %{if (Get-Content "$_" -Totalcount 3){-JOIN($_," ",(Get-Content "$_" -Totalcount 3)[-1])}} | sc 输出结果.txt
-JOIN("结束时间：",(get-date))
复制代码

ivor

如果只替换关键字，建议用notepad++

问题1：.

@echo off
rem 关键字.txt请放至批处理的上层目录
rem 匹配到的文件会移动到上层关键字目录
for /f "delims=" %%a in (..\关键字.txt) do ( 
    echo %%a:
    for /f "delims=" %%b in ('findstr /m /s "%%a" *.txt') do (
        rem 如果有匹配的文件则执行下面
        md ..\%%a 2>nul
        echo %%b
        move "%%b" "..\%%a\"
    )
)
pause
复制代码

回复 11# 屡败屡战


问题2-2.

@echo off
rem 删除上层目录new
rd ..\new /s /q

for /f "delims=" %%a in (..\关键字.txt) do (
    echo %%a
    md ..\new >nul
    for /f "tokens=1,2* delims=:" %%b in ('findstr /v /s "%%a" *.txt') do (
        rem 过滤关键词的行，保存位置上层目录new
        echo,%%c >>"..\new\%%~nxb"
        pause
    )
)
pause
复制代码

ivor

TXT 文件右边界没有限制，谈何居中。只能前面加 制表符和空格，加多少还要看自己实际情况

ivor

Qq250193966，不在线的时候可以留言