（已解决）bat脚本中如何显示正在运行的程序数量？

xfgc

各位大佬们，想咨询一下，bat是否能实现如下功能，1.计算正在运行的特定程序的数量；2.当运行程序的数量小于某一值（比如 40 ）时，自动运行下一个程序，直到满足运行程序的数量为40

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. call fds
   
5. 
   
6. set filnavn1=1.fds
   
7. set mappenavn1="1"
   
8. set path1=%mappenavn1%
   
9. 
   
10. set filnavn2=2.fds
    
11. set mappenavn2="2"
    
12. set path2=%mappenavn2%
    
13. 
    
14. set filnavn3=3.fds
    
15. set mappenavn3="3"
    
16. set path3=%mappenavn3%
    
17. 
    
18. set filnavn4=4.fds
    
19. set mappenavn4="4"
    
20. set path4=%mappenavn4%
    
21. 
    
22. 
    
23. if not exist "%path1%" mkdir %path1%
    
24. copy %filnavn1% %path1%
    
25. 
    
26. if not exist "%path2%" mkdir %path2%
    
27. copy %filnavn2% %path2%
    
28. 
    
29. if not exist "%path3%" mkdir %path3%
    
30. copy %filnavn3% %path3%
    
31. 
    
32. if not exist "%path4%" mkdir %path4%
    
33. copy %filnavn4% %path4%
    
34. 
    
35. cd %mappenavn1%
    
36. start cmd /k call fds_local -p 4 %filnavn1%
    
37. cd..
    
38. 
    
39. cd %mappenavn2%
    
40. start cmd /k call fds_local -p 4 %filnavn2%
    
41. cd..
    
42. 
    
43. rem 定义包含 fds 文件的文件夹列表
    
44. set "folders=Folder1 Folder2 Folder3 Folder4"
    
45. 
    
46. REM 设置特定程序名称
    
47. set program_name=fds.exe
    
48. 
    
49. REM 设置计数器
    
50. set /a count=0
    
51. 
    
52. REM 遍历 tasklist 输出的每一行
    
53. for /f "skip=3 tokens=1" %%a in ('tasklist ^| findstr /i /c:"%program_name%"') do (
    
54.     REM 如果行不为空，则增加计数器
    
55.     if not "%%a"=="" (
    
56.         set /a count+=1
    
57.     )
    
58. )
    
59. 
    
60. REM 如果特定程序的数量小于8，则启动下一个程序
    
61. if %count% LSS 8 (
    
62. rem 获取下一个未运行的 fds 文件
    
63.     for %%i in (%folders%) do (
    
64.         cd "%%i"
    
65.         for %%j in (%fds_files%) do (
    
66.             tasklist  | findstr /i "fds.exe" > nul
    
67.             if errorlevel 1 (
    
68.                 rem 启动下一个 fds 文件任务
    
69.                 start cmd /c call fds_local -p 4 %%i.fds
    
70.                 goto :next_file
    
71.             )
    
72.         )
    
73.         cd ..
    
74.     )
    
75. )
    
76. 
    
77. 
    
78. :next_file
    
79. rem 等待一段时间后继续检查
    
80. timeout /t 5
    
81. goto start
    
82. 
    
83. rem 如果没有正在运行的 fds，则显示 "All simulations completed." 并暂停脚本
    
84. echo All simulations completed.
    
85. pause
    
86. exit
    
87. 
    

复制代码

77七

请直接完整描述下需求，像顶楼的两点，我觉得ai也没必要写86行吧...

Batcher

回复 1# xfgc


能否举例说明这段代码跟你的需求之间有什么关联或者差距？
如果需要上传文件，请用使用网盘。

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html

xfgc

回复 2# 77七
想要实现的功能放在了百度网盘里面，恳请各位大佬赐教，纯小白，上面的代码都是一点一点搜出来写的
链接：https://pan.baidu.com/s/13la4gk2MY8PDnl_Xjo6gAA?pwd=1234
提取码：1234

xfgc

回复 3# Batcher
感谢您提供的上传方法，想要实现的功能放在了百度网盘里面，恳请各位大佬赐教，纯小白，上面的代码都是一点一点搜出来写的
链接：https://pan.baidu.com/s/13la4gk2MY8PDnl_Xjo6gAA?pwd=1234
提取码：1234

77七

回复 4# xfgc


  

1. @echo off
   
2. cd /d "%~dp0"
   
3. :loop
   
4. for /f %%a in ('tasklist ^|find /i /c "fds.exe"') do (
   
5.         if %%a lss 40 (
   
6.                 call :1
   
7.         ) else (
   
8.                 timeout 5 >nul
   
9.                 goto :loop
   
10.         )
    
11. )
    
12. if not defined m (
    
13.         echo All simulations completed.
    
14.         pause
    
15.         exit
    
16. ) else (
    
17.         timeout 1 >nul
    
18.         goto :loop
    
19. )
    
20. 
    
21.         :1
    
22.         set m=
    
23.         for /r %%i in (*.fds) do (
    
24.                 if not defined _"%%i" (
    
25.                         set _"%%i"=1
    
26.                         set m=1
    
27.                         start cmd /k call fds_local -p 4 "%%i"
    
28.                         exit /b
    
29.                 )
    
30.         )
    
31.         exit /b

复制代码

aloha20200628

“...目前想要实现的功能是，我需要跑50个fds.exe文件，假设我的电脑有40核，我只能同时跑10个fds.exe文件，希望通过这个代码可以实现这50个fds.exe文件自动跑完：当每次运行的10个fds.exe文件中的其中1个运行结束之后，后面的fds.exe文件可以自动运行，保证一直都是10个fds.exe文件在跑，直到50个全部跑完...”

以下代码根据以上条件和要求。代码存为test.bat，放到fds.exe文件所在目录运行

1. 
   
2. @echo off &setlocal enabledelayedexpansion
   
3. set/a "n=0,k=0"
   
4. :[loop]
   
5. if !k! lss 10 (start "" fds.exe &set/a "n+=1")
   
6. if !n! geq 50 goto[end]
   
7. timeout /t 5
   
8. for /f %%k in (' tasklist^|find /c /i "fds.exe" ') do set "k=%%k"
   
9. goto[loop]
   
10. :[end]
    
11. echo,All simulations completed
    
12. exit/b
    

复制代码

xfgc

回复 6# 77七
十分感谢大佬，该问题已经差不多被解决了，现在只有一个小问题，就是 fds.exe运行的时候是在根目录运行，不是在单独的文件夹里面运行，因为一个fds文件运行产生的其他文件非常多，希望能实现fds文件在各自的文件夹中运行。再次感谢您解决了我的难题。以下是bat代码的说明和示例：
链接：https://pan.baidu.com/s/1Itw47oPJ0WaF8evCpW4BNA?pwd=1234
提取码：1234

xfgc

回复 7# aloha20200628
感谢您的回复，目前问题已经差不多被解决了，现在只有一个小问题，就是 fds.exe运行的时候是在根目录运行，不是在单独的文件夹里面运行，因为一个fds文件运行产生的其他文件非常多，希望能实现fds文件在各自的文件夹中运行。再次感谢您的帮助。以下是bat代码的说明和示例：
链接：https://pan.baidu.com/s/1Itw47oPJ0WaF8evCpW4BNA?pwd=1234
提取码：1234

77七

回复 8# xfgc


    修改第21-31行为：

1.         :1
   
2.         set m=
   
3.         for /r %%i in (*.fds) do (
   
4.                 if not defined _"%%i" (
   
5.                         set _"%%i"=1
   
6.                         set m=1
   
7.                         md "%%~ni"
   
8.                         pushd "%%~ni"
   
9.                         start cmd /k call fds_local -p 4 "%%i"
   
10.                         popd
    
11.                         exit /b
    
12.                 )
    
13.         )
    
14.         exit /b

复制代码

xfgc

回复 10# 77七
非常非常感谢大佬，问题已经完全解决！！！