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

[文件操作] 【已解决】统计每个TXT文件中【<img】出现的次数,将其加入到每个文件名中。

统计每个TXT文件中【<img】出现的次数,将其加入到每个文件名中。


同一文件夹下有X个子文件夹,每个子文件夹里都有一些TXT文件,都是UTF-8编码。

需求总述:
批量统计文件夹及子文件夹里的每个TXT文件中【<img】出现的次数,将这个数量加入到每个文件名中。

比如:
【郑板桥草书字帖一幅.TXT】 这个文件中 【<img】这串代码出现了19次,则将文件名改为【郑板桥草书字帖一幅(共19张图片).TXT】

测试文件见附件

报酬:5元(以最早实现为准)

目前状态:已经解决

本帖最后由 qixiaobin0715 于 2020-11-12 06:50 编辑

回复 23# WHY

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

TOP

本帖最后由 WHY 于 2020-11-11 22:48 编辑

回复 22# qixiaobin0715


    for 循环内部(语句块内部)应该不能放置标签的吧?可以把 :a 标签放到 for 循环体外面。

TOP

本帖最后由 qixiaobin0715 于 2020-11-12 13:17 编辑

练练手,去掉一层for循环,复习一下call的用法,效率差点。
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /r %%i in ("*.txt") do (
  4.     set n=0
  5.     for /f "delims=" %%a in ('type "%%i"^|findstr /c:"img alt"') do (
  6.         set "str=%%a"
  7. :a
  8.         echo "!str!"|findstr /c:"img alt">nul&&set str=!str:*img alt=!&&set /a n+=1&&call :a
  9.     )
  10.     ren "%%i" "%%~ni(共!n!张图片)%%~xi" 2>nul
  11. )
  12. goto :eof
复制代码

TOP

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

TOP

回复 19# WHY

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

TOP

纯批的话,改一下代码页可以避免乱码问题。
  1. @echo off & setlocal enabledelayedexpansion
  2. chcp 65001
  3. for /f "delims=" %%i in ('dir /b /a-d /s *.txt') do (
  4.     set n=0
  5.     for /f "delims=" %%j in ('type "%%i"') do (
  6.         set "s=%%j"
  7.         set "s=!s:"=!"
  8.         for %%k in ("!s:<img=" "!") do set /a n+=1
  9.         set /a n-=1
  10.     )
  11.     echo ren "%%i" "%%~ni(!n!)%%~xi"
  12. )
  13. pause
复制代码
保存为 test.bat,编码格式选 utf-8 without BOM。
Active code page: 65001
ren "E:\Test\需求.txt" "需求(2).txt"
ren "E:\Test\测试文件\怀素《自叙帖》草书书法图片.txt" "怀素《自叙帖》草书书法图片(45).txt"
ren "E:\Test\测试文件\蔡京《大观御笔记》行书欣赏.txt" "蔡京《大观御笔记》行书欣赏(4).txt"
Press any key to continue . . .
1

评分人数

TOP

回复 14# 三十年前


    是 sed.exe 不是 set,脚本上面一行有下载链接。

TOP

修改和简化后的完整代码:
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /r %%i in ("*.txt") do (
  4.     set n=0
  5.     for /f "delims=" %%a in ('type "%%i"') do (
  6.         set "str=%%a"
  7.         set "str=!str:img alt= <img alt!"
  8.         set "str=!str:"=!"
  9.         for %%k in (!str!) do (
  10.             if "%%k"=="<img" set /a n+=1
  11.         )
  12.     )
  13.     ren "%%i" "%%~ni(共!n!张图片)%%~xi"
  14. )
  15. pause&exit
复制代码

TOP

本帖最后由 qixiaobin0715 于 2020-11-4 14:00 编辑

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

TOP

纯批好像也能解决:
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /r %%i in ("*.txt") do (
  4.     set n=0
  5.     for /f "delims=" %%a in ('type "%%i"') do (
  6.         set str=%%a
  7.         set "str=!str:img alt= <img alt!"
  8.         for %%k in (!str!) do (
  9.             set var=%%k
  10.             if not "!var!"=="!var:<img=!" set /a n+=1
  11.         )
  12.     )
  13.     ren "%%i" "%%~ni(共!n!张图片)%%~xi"
  14. )
  15. pause&exit
复制代码

TOP

回复 13# WHY


    哥,你这代码有问题,第三段中间的 sed 应该是 set 吧?
我改过来后发现运行还是有问题。

TOP

本帖最后由 WHY 于 2020-11-2 00:18 编辑

GNU sed 4.3
  1. @echo off
  2. for /f "delims=" %%i in ('dir /b /a-d /s *.txt') do (
  3.     for /f %%j in ('sed "s/<img/\n&/g" "%%i" ^| find /c "<img"') do (
  4.         echo ren "%%i" "%%~ni(%%j)%%~xi"
  5.     )
  6. )
  7. pause
复制代码

TOP

  1. @if (0)==(0) echo off
  2. for /f "tokens=1*" %%i in ('dir /b /a-d /s *.txt ^| cscript //nologo //e:jscript "%~f0"') do (
  3.     echo ren "%%j" "%%~nj(%%i)%%~xj"
  4. )
  5. pause & exit
  6. @end
  7. function getStrNumber(file){
  8.     var ado = new ActiveXObject('ADODB.Stream');
  9.     ado.Type = 2;
  10.     ado.Mode = 3;
  11.     ado.Charset = 'utf-8';
  12.     ado.Open();
  13.     ado.LoadFromFile(file);
  14.     return ado.ReadText(-1).split('<img').length - 1;
  15. }
  16. while(!WSH.StdIn.AtEndOfStream){
  17.     var f = WSH.StdIn.ReadLine();
  18.     WSH.Echo('' + getStrNumber(f) + ' ' + f);
  19. }
复制代码

TOP

回复 10# chable


    我这边测试 grep 3.0 没有问题
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表