[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 路过 于 2021-1-15 23:31 编辑
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f %%p in (Pid.txt) do (set/a c=0
  4.     for /f "delims=" %%a in ('netstat -ano ^| findstr %%p') do (set/a c+=1)
  5.     echo;!c!
  6. )
  7. pause
复制代码
或者
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f %%p in (Pid.txt) do (
  4.     for /f "delims=" %%a in ('netstat -ano ^| findstr %%p ^| find /v /c ""') do (set c=%%a)
  5.     echo;!c!
  6. )
  7. pause
复制代码

TOP

本帖最后由 路过 于 2021-1-16 10:06 编辑

回复 4# netdzb
  1. @echo off
  2. pushd "%~sdp0"
  3. set filename=1.txt
  4. call :RanSTxt 1 %filename%
  5. ping/n 2 127.0>nul
  6. call :RanSTxt 1 %filename%
  7. pause
  8. exit
  9. :RanSTxt [sl] [file]
  10. ::sl最多显示多少行,file 文件名[不支持空格和特殊符号]
  11. setlocal enabledelayedexpansion
  12. set/a sl=%1
  13. set file=%2
  14. for /f %%a in ('type "%file%" ^| find /c /v ""') do (set al=%%a)
  15. set/a q=1+%random% %% %al%,w=q+sl,e=0
  16. for /f "skip=%q% delims=: tokens=1*" %%h in ('echo;^&findstr /in .* "%file%"')  do (echo;%%i
  17.     set/a e+=1
  18. if !e!==%sl% (endlocal&goto :eof))
  19. endlocal
  20. goto :eof
复制代码

TOP

回复 6# lancer

TOP

返回列表