@echo off
setlocal enabledelayedexpansion

call fds

set filnavn1=1.fds
set mappenavn1="1"
set path1=%mappenavn1%

set filnavn2=2.fds
set mappenavn2="2"
set path2=%mappenavn2%

set filnavn3=3.fds
set mappenavn3="3"
set path3=%mappenavn3%

set filnavn4=4.fds
set mappenavn4="4"
set path4=%mappenavn4%


if not exist "%path1%" mkdir %path1%
copy %filnavn1% %path1%

if not exist "%path2%" mkdir %path2%
copy %filnavn2% %path2%

if not exist "%path3%" mkdir %path3%
copy %filnavn3% %path3%

if not exist "%path4%" mkdir %path4%
copy %filnavn4% %path4%

cd %mappenavn1%
start cmd /k call fds_local -p 4 %filnavn1%
cd..

cd %mappenavn2%
start cmd /k call fds_local -p 4 %filnavn2%
cd..

rem 定义包含 fds 文件的文件夹列表
set "folders=Folder1 Folder2 Folder3 Folder4"

REM 设置特定程序名称
set program_name=fds.exe

REM 设置计数器
set /a count=0

REM 遍历 tasklist 输出的每一行
for /f "skip=3 tokens=1" %%a in ('tasklist ^| findstr /i /c:"%program_name%"') do (
    REM 如果行不为空，则增加计数器
    if not "%%a"=="" (
        set /a count+=1
    )
)

REM 如果特定程序的数量小于8，则启动下一个程序
if %count% LSS 8 (
 rem 获取下一个未运行的 fds 文件
    for %%i in (%folders%) do (
        cd "%%i"
        for %%j in (%fds_files%) do (
            tasklist  | findstr /i "fds.exe" > nul
            if errorlevel 1 (
                rem 启动下一个 fds 文件任务
                start cmd /c call fds_local -p 4 %%i.fds
                goto :next_file
            )
        )
        cd ..
    )
)


:next_file
rem 等待一段时间后继续检查
timeout /t 5
goto start

rem 如果没有正在运行的 fds，则显示 "All simulations completed." 并暂停脚本
echo All simulations completed.
pause
exit
复制代码

@echo off
cd /d "%~dp0"
:loop
for /f %%a in ('tasklist ^|find /i /c "fds.exe"') do (
	if %%a lss 40 (
		call :1
	) else (
		timeout 5 >nul
		goto :loop
	)
)
if not defined m (
	echo All simulations completed.
	pause
	exit
) else (
	timeout 1 >nul
	goto :loop
)

	:1
	set m=
	for /r %%i in (*.fds) do (
		if not defined _"%%i" (
			set _"%%i"=1
			set m=1
			start cmd /k call fds_local -p 4 "%%i"
			exit /b
		)
	)
	exit /b
复制代码

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

	:1
	set m=
	for /r %%i in (*.fds) do (
		if not defined _"%%i" (
			set _"%%i"=1
			set m=1
			md "%%~ni"
			pushd "%%~ni"
			start cmd /k call fds_local -p 4 "%%i"
			popd
			exit /b
		)
	)
	exit /b
复制代码