qixiaobin0715

好像不行，统计的只是img出现的行数，不是img的数量

@echo off
for /r %%i in ("*.txt") do (
    for /f %%a in ('type "%%i"^|find /c "<img"') do (
        ren "%%i" "%%~ni（共%%a张图片）.txt"
    )
)
pause&exit
复制代码

qixiaobin0715

纯批好像也能解决：

@echo off
setlocal enabledelayedexpansion
for /r %%i in ("*.txt") do (
    set n=0
    for /f "delims=" %%a in ('type "%%i"') do (
        set str=%%a
        set "str=!str:img alt= <img alt!"
        for %%k in (!str!) do (
            set var=%%k
            if not "!var!"=="!var:<img=!" set /a n+=1
        )
    )
    ren "%%i" "%%~ni（共!n!张图片）%%~xi"
)
pause&exit
复制代码

qixiaobin0715

由于UTF-8编码的影响，部分双引号也会出现乱码，为保险起见，在15楼代码7、8行之间插入一行   set "str=!str:"=!"    最好。

qixiaobin0715

修改和简化后的完整代码：

@echo off
setlocal enabledelayedexpansion
for /r %%i in ("*.txt") do (
    set n=0
    for /f "delims=" %%a in ('type "%%i"') do (
        set "str=%%a"
        set "str=!str:img alt= <img alt!"
        set "str=!str:"=!"
        for %%k in (!str!) do (
            if "%%k"=="<img" set /a n+=1
        )
    )
    ren "%%i" "%%~ni（共!n!张图片）%%~xi"
)
pause&exit
复制代码

qixiaobin0715

回复 19# WHY

乱码问题原来可以这样解决，以前不知道，学到了。谢谢！！！

qixiaobin0715

第5行加上findstr过滤一下效率应当能够得到提升：
'type "%%i"^|findstr /c:"img alt"'

qixiaobin0715

练练手，去掉一层for循环，复习一下call的用法，效率差点。

@echo off
setlocal enabledelayedexpansion
for /r %%i in ("*.txt") do (
    set n=0
    for /f "delims=" %%a in ('type "%%i"^|findstr /c:"img alt"') do (
        set "str=%%a"
:a
        echo "!str!"|findstr /c:"img alt">nul&&set str=!str:*img alt=!&&set /a n+=1&&call :a
    )
    ren "%%i" "%%~ni（共!n!张图片）%%~xi" 2>nul
)
goto :eof
复制代码

qixiaobin0715

回复 23# WHY

通常是不行。这里是特例，call循环完成后会继续完成它下面的代码，中间ren会报错，增加 2>nul消除。内层for循环结束一次（每个文件读取完成）后，会正常执行一次ren。这里是非常规的用法。只是博得一笑而已。
报错原因是无法识别%%i。