[文本处理] 【已解决】批处理文本内容的检查相关，谢谢你了

灯塔彭于晏

谢谢你了先。

现有一个1.txt，内容如下：

[#魔法少女まどか☆マギカ ひとりぼっちはさびしいけれど - 九十九  - pixiv|https://baidu.com/artworks/21383799]
[#魔法少女まどか☆マギカ よろしい、ならば - hatsuko  - pixiv|https://baidu.com/artworks/17587458]
[#魔法少女まどか☆マギカ . - 望月けい  - pixiv|https://baidu.com/artworks/88431986]
[#赤い影 世界を変える力が - hatsuko  - pixiv|https://baidu.com/artworks/16996640]
[#魔法少女まどか☆マギカ 魔法少女 - vient  - pixiv|https://baidu.com/artworks/31068063]
[#魔法少女まどか☆マギカ 奇迹の呗 - 觉醒  - pixiv|https://baidu.com/artworks/17345647]
魔法少女小圆
[#魔法少女まどか☆マギカ ひとりぼっちはさびしいけれど - 九十九  - pixiv|https://baidu.com/artworks/21383799]
[#魔法少女まどか☆マギカ よろしい、ならば - hatsuko  - pixiv|https://baidu.com/artworks/17587458]
[#魔法少女まどか☆マギカ . - 望月けい  - pixiv|https://baidu.com/artworks/88431986]
[#赤い影 世界を変える力が - hatsuko  - pixiv|https://baidu.com/artworks/16996640]
[#魔法少女まどか☆マギカ 魔法少女 - vient  - pixiv|https://baidu.com/artworks/31068063]
[#魔法少女まどか☆マギカ 奇迹の呗 - 觉醒  - pixiv|https://baidu.com/artworks/17345647]
魔法少女小圆
鹿目圆
晓美焰
[#魔法少女まどか☆マギカ ひとりぼっちはさびしいけれど - 九十九  - pixiv|https://baidu.com/artworks/21383799]
[#魔法少女まどか☆マギカ よろしい、ならば - hatsuko  - pixiv|https://baidu.com/artworks/17587458]
[#魔法少女まどか☆マギカ . - 望月けい  - pixiv|https://baidu.com/artworks/88431986]
[#赤い影 世界を変える力が - hatsuko  - pixiv|https://baidu.com/artworks/16996640]
[#魔法少女まどか☆マギカ 魔法少女 - vient  - pixiv|https://baidu.com/artworks/31068063]
[#魔法少女まどか☆マギカ 奇迹の呗 - 觉醒  - pixiv|https://baidu.com/artworks/17345647]
魔法少女小圆
鹿目圆
复制代码

上述内容为 3组内容（实际上更多） ，每组内容为6个[#开头的行 + 几个中文字的行 ，其中 [#开头的行是固定为6个的，不能多也不能少，而中文字的行，几行都行，没有要求。
每行内容最后的数字，和桌面上的  数字.jpg 文件是对应的。

现在的需求是：
1、检查1.txt中，每组内容中 [# 开头的行，是否为固定6个 。因为有时候会保存出错，[#少了1个或者多了1个。
2、检查1.txt中，每组内容最后的数字，在桌面上是否存在对应的 数字.jpg 文件。

比如文本中第一行的：[#魔法少女まどか☆マギカ ひとりぼっちはさびしいけれど - 九十九  - pixiv|https://baidu.com/artworks/21383799] ， 桌面上应该要有一个 21383799.jpg 的文件。

检查的结果分别输出到A.txt（记录[#数量不对的行数）和B.txt （记录缺少文件的数字，每行1个）中  ，如果都对，就不输出相关TXT。

谢谢~谢谢！

灯塔彭于晏

抱歉，我似乎上传不了附件，就劳烦您复制代码保存了。抱歉！

newswan

@echo off
setlocal enabledelayedexpansion

set path=%gnupath%;%path%
set r=0
set n=0
for /f "delims=" %%a in (1.txt) do (
    set /a r+=1
    set s=%%a
    if "!s:~0,1!"=="[" (
        set /a n+=1
        for /f "usebackq delims=" %%a in (`echo "%%a" ^| grep -E -o '[0-9]+'`) do (
            if not exist "%USERPROFILE%\desktop\%%a.jpg" echo !r!: %%a >>a.txt
        )
    ) else (
        if !n! neq 0 (
            if !n! neq 6 echo !r!: !n! >>b.txt
        )
        set /a n=0
    )
)
复制代码

语法错误，已修改

灯塔彭于晏

回复 3# newswan


    似乎是没有效果的。

qixiaobin0715

@echo off
set n=0
setlocal enabledelayedexpansion
for /f "tokens=1* delims=:" %%a in ('findstr /n .* 1.txt') do (
    set "str=%%b"
    if "!str:~,2!"=="[#" (
        set "str1=%%~nb"
        if not exist "%HOMEPATH%\Desktop\!str1:~,-1!.jpg" echo,%%a：不存在文件!str1:~,-1!.jpg！>>b.txt
        set /a n+=1
    ) else (
        if not !n!==0 if not !n!==6 echo,第%%a行上面一组有!n!行组成！>>a.txt
        set n=0
    )
)
pause
复制代码

批处理文件和1.txt放在同一个目录。

xp3000

@echo off&Setlocal EnableDelayedExpansion
set m=0&set n=0&type nul>"不存在的文件.TXT"&echo 开始读取文件 1.txt……
@for /f "delims=" %%a in ('type 1.txt^|findstr /n .*') do (set /a n+=1&set A=%%a
    @for /f tokens^=1^,2^,3^,*^ delims^=:""^| %%c in ('echo "!A!"^|findstr /r /n /C:"^\[.*http.*\]"') do (
        set C=%%c&set D=%%d&set E=%%e&set F=%%~f&set F=!F:^]^"=!&set fn=%%~nf&set fn=!fn:^]^"=!)
    if !n!==!D! (set /a m+=1
    if !m! equ 1 echo._____________________&echo.
        echo 检测第!n!行：!F!
    if not exist "%USERPROFILE%\desktop\!fn!.jpg" (echo 桌面没有：!fn!.jpg&echo !fn!.jpg>>"不存在的文件.TXT") else (echo 桌面发现：!fn!.jpg)
             ) else (
    if !m! neq 0 echo.& echo   以上段落共：!m! 行&echo._____________________&echo.
          echo  !n!行非匹配，中断行!D!&set m=0
    )
)
echo._____________________&echo.&echo    1.txt 共 !n! 行&echo.
pause
复制代码

整理了下，全部下划杠分段好看一点