Board logo

标题: [已解决]20求优化批处理并在写出文本时计算出每个文件的大小并从大到小排序 [打印本页]
作者: 小渣飞    时间: 2019-8-2 10:42     标题: [已解决]20求优化批处理并在写出文本时计算出每个文件的大小并从大到小排序

本帖最后由 小渣飞 于 2019-8-3 15:48 编辑

搬了论坛的一些代码零零散散写了个小脚本，想要写出来的结果是这样的
原来是这样：
文件已找到。["C:\Program Files\360\360safe\360AppLoader.exe"]

改之后想要这样的效果

文件已找到，大小为 [378KB] ["C:\Program Files\360\360safe"]
文件已找到，大小为 [342KB] ["C:\Program Files\360\360safe\360DeskAna.exe"]

难的话价钱可以加=-=
  1. @echo off&setlocal enabledelayedexpansion

  2. :main

  3. color 0c

  4. if not exist %temp%\~found md %temp%\~found||(

  5. call:_colstr 0c:"文件夹创建失败，按任意键退出。"&pause>nul&exit

  6. )

  7. set "file=0"&set "s="&set "e="&set "t="&set "k="&set "n="&set "d="&set "y="

  8. :return

  9. set "num=%random%"

  10. if exist %temp%\~found\found_%num%.log (echo 发现同名文件[found_%num%.log]，正在更换，如长时间未能成功请清理文件夹 [%temp%\~found] 。&title 发现同名文件[found_%num%.log]，正在更换可用文件。&cls&goto return)

  11. cls

  12. echo.>%temp%\~found\found_%num%.log

  13. title 全盘查找。

  14. set "var="

  15. echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.

  16. call:_colstr 0f:"要查找的文件 [需添加文件扩展名，如查找同类文件可使用通配符]";\t

  17. echo *.*

  18. echo.

  19. call:_colstr 0e:"禁止输入以下等特殊符号："

  20. echo [ ^| / \^" ^< ^> ? : * ]

  21. echo.

  22. call:_colstr 08:"%num%";0a:"在这里输入需要查找的文件："

  23. set /p "var="

  24. echo %var%|find /i "*." >nul && set "int=同类" || set "int=指定"

  25. echo %var%|find /i " " >nul && (echo.&echo 值不能为空或输入的字符串内含有空格。&pause>nul&goto:main)

  26. if "%var%"=="/del*" (echo 正在执行删除操作，请稍后。&del %temp%\~found&goto main) else (if "%var%"=="/help" (goto help) else (if "%var%"=="<" (goto main) else (if "%var%"==">" (goto main) else (if "%var%"=="|" (goto main) else (if "%var%"=="*" (goto main) else (if "%var%"==":" (goto main) else (if "%var%"=="/" (goto main) else (if "%var%"=="\" (goto main) else (if "%var%"=="?" (goto main) else (if "%var%"=="/exit" (exit)))))))))))

  27. 

  28. 

  29. 

  30. call:k

  31. color 00

  32. title 正在查找%var%中... ...

  33. set "#time=:::::::::::::::::::: %date% / %time% Start ::::::::::::::::::::"

  34. echo.

  35. color 07&echo 正在全盘查找文件 [ %var% ]

  36. echo.

  37. for %%a in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (

  38. if exist %%a:\ (

  39. cd /d %%a:\

  40. for /f "delims=" %%b in ('dir /s /a-d /b %var% 2^>nul') do (

  41. set /a "file+=1"

  42. if exist "%%b" (

  43. echo 文件已找到。["%%b"]>>%temp%\~found\found_%num%.log))))

  44. call:k

  45. set/a D=D2-D1,K=K2-K1

  46. if %K% leq 0 set/a K+=8640000,D-=1

  47. if %D% leq 0 (set "s=%K%0毫秒")else set "s=%D%天%K%0毫秒"

  48. 

  49. pushd %temp%\~found

  50. ren found_%num%.log data_%num%.log

  51. (

  52. echo.

  53. echo %#time%

  54. echo.

  55. echo 查找%int%文件 [ %var% ]，共找到 [ %file% ] 个文件，耗时 [ %s% ] 。

  56. )>>found_%num%.log

  57. type data_%num%.log>>found_%num%.log

  58. echo.>>found_%num%.log

  59. 

  60. find "文件已找到。" found_%num%.log >nul||(

  61. echo 没有找到任何文件，输入 [ /help ] 获取帮助。

  62. echo.

  63. )>>found_%num%.log

  64. 

  65. echo ::::::::::::::::::: %date% / %time% Finished :::::::::::::::::::>>found_%num%.log

  66. title 共找到 [ %file% ] 个文件，耗时 [ %s% ] 已生成文本报告。

  67. type %temp%\~found\found_%num%.log&color 0f

  68. echo.

  69. call:_colstr 0e:"正在拷贝路径至粘贴板，请稍后。";\n;&mshta vbscript:clipboarddata.setdata("text","%temp%\~found\found_%num%.log")(close)

  70. echo.

  71. call:_colstr 查找完毕，共找到;\t;[;\t;0a:"%file%";\t;];\t;个文件，耗时;\t;[;\t;0a:"%s%";\t;];\t;0f:"已生成文本报告。";\n;

  72. echo.

  73. call:_colstr 路径;\t;[ "%temp%\~found\found_%num%.log" ];\t;0e:"已复制。";\n;

  74. echo.&echo.

  75. call:_colstr \t;\t;\t;\t;\t;\t;\t;\t;\t;\t;\t;\t;\t;\t;J;0b:"e";0e:"ff";0f:"r";0a:"e";0d:"y";06:"2";05:"9";04:"7";03:"1";f8:"@outlook.com";\t;\t;

  76. echo.&echo.&pause>nul

  77. call:_colstr 0e:"正在清理粘贴板，请稍后。";&mshta.exe "javascript:clipboardData.clearData();close();"

  78. popd&goto main

  79. :help

  80. title 帮助。

  81. cls&echo.

  82. 

  83. call:_colstr 0e:"正在计算相关数据，请稍后。";\n;

  84. set "cnt=0"&set "f="&set "d="

  85. for /f "delims=" %%i in ('dir/b/a-d "%temp%\~found\*.log" 2^>nul') do set /a "cnt+=1"

  86. for /f "tokens=3 delims= " %%i in ('dir /s /a /-c "%temp%\~found" ^|findstr 个文件') do (set f=%%i)

  87. if %f% gtr 1024 (set /a "f>>=10"&set "d=KB") else (if %f% gtr 1024 (set /a "f>>=10"&set "d=MB"))

  88. cls

  89. echo.&echo.

  90. call:_colstr 0e:"禁止输入以下等特殊符号："

  91. echo [ ^| / \^" ^< ^> ? : * ]

  92. echo.

  93. call:_colstr 0f:"查找时输入尽量正确的";0e:"文件名";+;0e:"扩展名";0f:"如";0f:"[";0a:"WeChat.exe";0f:"]";\n;

  94. echo.

  95. call:_colstr 0f:"如需查找同类文件如图片" [ *.png/*.jpg ] ;0f:"可使用";0e:"通配符" 0f:"["; * ;0f:"]" . ;0f:"[" 文件扩展名 ;0f:"]";\n

  96. echo.

  97. call:_colstr 0f:"共找到";\t;0f:"[";\t;0a:"%cnt%";\t;0f:"]";\t;0f:"个报告文件，占用空间";\t;0f:"[";\t;0e:"%f%%d%";\t;0f:"]";\t; ;0f:"如需删除可在界面输入";\t;/del*;\n

  98. echo.

  99. call:_colstr 0f:"文件记录位于";\t;[;\t;%temp%\~found;\t;];\t;0f:"格式为";\t;*.log;\n

  100. echo.&echo.

  101. call:_colstr 0f:"如需额外帮助请联系邮箱：";J;0b:"e";0e:"ff";0f:"r";0a:"e";0d:"y";06:"2";05:"9";04:"7";03:"1";f8:"@outlook.com";\t;\t;\t;\t;0f:"联系微信：";J;0b:"e";0e:"ff";0f:"r";0a:"e";0d:"y";06:"2";05:"9";04:"7";03:"1";\n;

  102. echo.

  103. echo 按任意键返回。

  104. echo.

  105. pause>nul&goto main

  106. 

  107. rem /*--------- colstr 函数 -------------

  108. rem /*\?"<:>|

  109. :_colstr [^<colorcode^>:"<color str>"^|"<common str>"^|^<escape Char^>];... 

  110. for /f "tokens=1* delims=:" %%a in ("%~1")do (

  111.   if %%a:%%b.==%%a:"%%~b". (set col=%%a

  112.     for %%z in ("LBlue=9";"LGreen=A";"LAqua=B";"LRed=C";"LPurple=D";

  113.                 "LYellow=E";"LWhite=F";"Black=0";"Blue=1";"Green=2";

  114.                 "Aqua=3";"Red=4";"Purple=5";"Yellow=6";"White=7";"Gray=8";

  115.                )do set col=!col:%%~z!

  116.       if exist "%%~b?" del/a/q "%%~b?"2>nul

  117.       set/p= <nul>"%%~b"2>nul&findstr/a:!col! .* "%%~b?"2>nul 3>&2

  118.     ) else if %1==\n (echo.

  119.     ) else if %1==\b (set/p=<nul

  120.     ) else if %1==\q (set/p=""^"<nul

  121.     ) else if %1==\t (set/p= <nul &rem 注意=后面不是空格，是制表符

  122.     ) else (set/p"=%~1"<nul)

  123. )&(if %2. neq . (shift&endlocal&goto:_colstr))&exit/b

  124. rem ------------------------------------*/

  125. 

  126. :k

  127. set "E=%date%"&set "T=%time%"&set "K=%time:~0,2%"&set/a "N+=1"

  128. set/a D%N%=1%E:~8,2%%%100,M=1%E:~5,2%%%100-1,Y=%E:~0,4%,"K%N%=%K: =%*360000+(1%T:~3,2%-100)*6000+(1%T:~6,2%-100)*100+1%T:~9,2%-100"

  129. for /l %%a in (1,1,%M%) do set/a "K=^!(%%a-4)|^!(%%a-6)|^!(%%a-9)|^!(%%a-11)","D%N%+=^!(%%a-2)*(28+^!((^!(Y%%4)&^!^!(Y%%100))|^!(Y%%400)))+K*30+(^!^!(%%a-2)&^!K)*31"

  130. set/a D%N%+=(Y-1)*365+Y/4-Y/100+Y/400
复制代码
作者: zaqmlp    时间: 2019-8-2 13:22

本帖最后由 zaqmlp 于 2019-8-2 13:28 编辑 
  1. @echo off&setlocal enabledelayedexpansion

  2. :main

  3. color 0c

  4. if not exist %temp%\~found md %temp%\~found||(

  5. call:_colstr 0c:"文件夹创建失败，按任意键退出。"&pause>nul&exit

  6. )

  7. set "file=0"&set "s="&set "e="&set "t="&set "k="&set "n="&set "d="&set "y="

  8. :return

  9. set "num=%random%"

  10. if exist %temp%\~found\found_%num%.log (echo 发现同名文件[found_%num%.log]，正在更换，如长时间未能成功请清理文件夹 [%temp%\~found] 。&title 发现同名文件[found_%num%.log]，正在更换可用文件。&cls&goto return)

  11. cls

  12. cd .>%temp%\~found\data_%num%.log

  13. title 全盘查找。

  14. set "var="

  15. echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.

  16. call:_colstr 0f:"要查找的文件 [需添加文件扩展名，如查找同类文件可使用通配符]";\t

  17. echo *.*

  18. echo.

  19. call:_colstr 0e:"禁止输入以下等特殊符号："

  20. echo [ ^| / \^" ^< ^> ? : * ]

  21. echo.

  22. call:_colstr 08:"%num%";0a:"在这里输入需要查找的文件："

  23. set /p "var="

  24. echo %var%|find /i "*." >nul && set "int=同类" || set "int=指定"

  25. echo %var%|find /i " " >nul && (echo.&echo 值不能为空或输入的字符串内含有空格。&pause>nul&goto:main)

  26. if "%var%"=="/del*" (echo 正在执行删除操作，请稍后。&del %temp%\~found&goto main) else (if "%var%"=="/help" (goto help) else (if "%var%"=="<" (goto main) else (if "%var%"==">" (goto main) else (if "%var%"=="|" (goto main) else (if "%var%"=="*" (goto main) else (if "%var%"==":" (goto main) else (if "%var%"=="/" (goto main) else (if "%var%"=="\" (goto main) else (if "%var%"=="?" (goto main) else (if "%var%"=="/exit" (exit)))))))))))

  27. 

  28. 

  29. 

  30. call:k

  31. color 00

  32. title 正在查找%var%中... ...

  33. set "#time=:::::::::::::::::::: %date% / %time% Start ::::::::::::::::::::"

  34. echo.

  35. color 07&echo 正在全盘查找文件 [ %var% ]

  36. echo.

  37. for %%a in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (

  38. if exist %%a:\ (

  39. cd /d %%a:\

  40. for /f "delims=" %%b in ('dir /s /a-d /b "%var%" 2^>nul') do (

  41. set /a "file+=1"

  42. if exist "%%b" (

  43. echo %%~zb^|"%%b">>%temp%\~found\data_%num%.log))))

  44. call:k

  45. set/a D=D2-D1,K=K2-K1

  46. if %K% leq 0 set/a K+=8640000,D-=1

  47. if %D% leq 0 (set "s=%K%0毫秒")else set "s=%D%天%K%0毫秒"

  48. 

  49. >"%tmp%\t.t" echo;var list=WSH.StdIn.ReadAll().replace(/^^\s*^|\s*$/g,'').split(/[\r\n]+/);

  50. >>"%tmp%\t.t" echo;list.sort(function(a,b){return Number(b.split('^|')[0])-Number(a.split('^|')[0])});

  51. >>"%tmp%\t.t" echo;for(var i=0;i^<list.length;i++){var line=list[i].split('^|');WSH.echo('文件已找到，大小为['+getsize(Number(line[0]))+']['+line[1]+']');}

  52. >>"%tmp%\t.t" echo;function getsize(s){var size='';if(s^>=1073741824){size = (s/1073741824).toFixed(2) + 'GB';}else if(s^>=1048576){size = (s/1048576).toFixed(2) + 'MB';}else if(s^>=1024){size = (s/1024).toFixed(2) + 'KB';}else {size = s + 'B';};return size;}

  53. 

  54. pushd %temp%\~found

  55. rem ren found_%num%.log data_%num%.log

  56. (

  57. echo.

  58. echo %#time%

  59. echo.

  60. echo 查找%int%文件 [ %var% ]，共找到 [ %file% ] 个文件，耗时 [ %s% ] 。

  61. )>found_%num%.log

  62. type data_%num%.log|cscript -nologo -e:jscript "%tmp%\t.t">>found_%num%.log

  63. echo.>>found_%num%.log

  64. 

  65. find "文件已找到" found_%num%.log >nul||(

  66. echo 没有找到任何文件，输入 [ /help ] 获取帮助。

  67. echo.

  68. )>>found_%num%.log

  69. 

  70. echo ::::::::::::::::::: %date% / %time% Finished :::::::::::::::::::>>found_%num%.log

  71. title 共找到 [ %file% ] 个文件，耗时 [ %s% ] 已生成文本报告。

  72. type %temp%\~found\found_%num%.log&color 0f

  73. echo.

  74. call:_colstr 0e:"正在拷贝路径至粘贴板，请稍后。";\n;&mshta vbscript:clipboarddata.setdata("text","%temp%\~found\found_%num%.log")(close)

  75. echo.

  76. call:_colstr 查找完毕，共找到;\t;[;\t;0a:"%file%";\t;];\t;个文件，耗时;\t;[;\t;0a:"%s%";\t;];\t;0f:"已生成文本报告。";\n;

  77. echo.

  78. call:_colstr 路径;\t;[ "%temp%\~found\found_%num%.log" ];\t;0e:"已复制。";\n;

  79. echo.&echo.

  80. call:_colstr \t;\t;\t;\t;\t;\t;\t;\t;\t;\t;\t;\t;\t;\t;J;0b:"e";0e:"ff";0f:"r";0a:"e";0d:"y";06:"2";05:"9";04:"7";03:"1";f8:"@outlook.com";\t;\t;

  81. echo.&echo.&pause>nul

  82. call:_colstr 0e:"正在清理粘贴板，请稍后。";&mshta.exe "javascript:clipboardData.clearData();close();"

  83. popd&goto main

  84. :help

  85. title 帮助。

  86. cls&echo.

  87. 

  88. call:_colstr 0e:"正在计算相关数据，请稍后。";\n;

  89. set "cnt=0"&set "f="&set "d="

  90. for /f "delims=" %%i in ('dir/b/a-d "%temp%\~found\*.log" 2^>nul') do set /a "cnt+=1"

  91. for /f "tokens=3 delims= " %%i in ('dir /s /a /-c "%temp%\~found" ^|findstr 个文件') do (set f=%%i)

  92. if %f% gtr 1024 (set /a "f>>=10"&set "d=KB") else (if %f% gtr 1024 (set /a "f>>=10"&set "d=MB"))

  93. cls

  94. echo.&echo.

  95. call:_colstr 0e:"禁止输入以下等特殊符号："

  96. echo [ ^| / \^" ^< ^> ? : * ]

  97. echo.

  98. call:_colstr 0f:"查找时输入尽量正确的";0e:"文件名";+;0e:"扩展名";0f:"如";0f:"[";0a:"WeChat.exe";0f:"]";\n;

  99. echo.

  100. call:_colstr 0f:"如需查找同类文件如图片" [ *.png/*.jpg ] ;0f:"可使用";0e:"通配符" 0f:"["; * ;0f:"]" . ;0f:"[" 文件扩展名 ;0f:"]";\n

  101. echo.

  102. call:_colstr 0f:"共找到";\t;0f:"[";\t;0a:"%cnt%";\t;0f:"]";\t;0f:"个报告文件，占用空间";\t;0f:"[";\t;0e:"%f%%d%";\t;0f:"]";\t; ;0f:"如需删除可在界面输入";\t;/del*;\n

  103. echo.

  104. call:_colstr 0f:"文件记录位于";\t;[;\t;%temp%\~found;\t;];\t;0f:"格式为";\t;*.log;\n

  105. echo.&echo.

  106. call:_colstr 0f:"如需额外帮助请联系邮箱：";J;0b:"e";0e:"ff";0f:"r";0a:"e";0d:"y";06:"2";05:"9";04:"7";03:"1";f8:"@outlook.com";\t;\t;\t;\t;0f:"联系微信：";J;0b:"e";0e:"ff";0f:"r";0a:"e";0d:"y";06:"2";05:"9";04:"7";03:"1";\n;

  107. echo.

  108. echo 按任意键返回。

  109. echo.

  110. pause>nul&goto main

  111. 

  112. rem /*--------- colstr 函数 -------------

  113. rem /*\?"<:>|

  114. :_colstr [^<colorcode^>:"<color str>"^|"<common str>"^|^<escape Char^>];... 

  115. for /f "tokens=1* delims=:" %%a in ("%~1")do (

  116.   if %%a:%%b.==%%a:"%%~b". (set col=%%a

  117.     for %%z in ("LBlue=9";"LGreen=A";"LAqua=B";"LRed=C";"LPurple=D";

  118.                 "LYellow=E";"LWhite=F";"Black=0";"Blue=1";"Green=2";

  119.                 "Aqua=3";"Red=4";"Purple=5";"Yellow=6";"White=7";"Gray=8";

  120.                )do set col=!col:%%~z!

  121.       if exist "%%~b?" del/a/q "%%~b?"2>nul

  122.       set/p= <nul>"%%~b"2>nul&findstr/a:!col! .* "%%~b?"2>nul 3>&2

  123.     ) else if %1==\n (echo.

  124.     ) else if %1==\b (set/p=<nul

  125.     ) else if %1==\q (set/p=""^"<nul

  126.     ) else if %1==\t (set/p= <nul &rem 注意=后面不是空格，是制表符

  127.     ) else (set/p"=%~1"<nul)

  128. )&(if %2. neq . (shift&endlocal&goto:_colstr))&exit/b

  129. rem ------------------------------------*/

  130. 

  131. :k

  132. set "E=%date%"&set "T=%time%"&set "K=%time:~0,2%"&set/a "N+=1"

  133. set/a D%N%=1%E:~8,2%%%100,M=1%E:~5,2%%%100-1,Y=%E:~0,4%,"K%N%=%K: =%*360000+(1%T:~3,2%-100)*6000+(1%T:~6,2%-100)*100+1%T:~9,2%-100"

  134. for /l %%a in (1,1,%M%) do set/a "K=^!(%%a-4)|^!(%%a-6)|^!(%%a-9)|^!(%%a-11)","D%N%+=^!(%%a-2)*(28+^!((^!(Y%%4)&^!^!(Y%%100))|^!(Y%%400)))+K*30+(^!^!(%%a-2)&^!K)*31"

  135. set/a D%N%+=(Y-1)*365+Y/4-Y/100+Y/400
复制代码
作者: 小渣飞    时间: 2019-8-2 13:45

回复 2# zaqmlp


    给你转了哈你看看
作者: zaqmlp    时间: 2019-8-2 14:30

回复 3# 小渣飞


    收到



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2