@echo off
set A={1,[3,6],10,[20,30],[32,60],[200,3000],5000,[6000,8000],9000,9500}
set B={2,5,31,[300,500],[8000,9000],9500}
md tmp 2>nul
pushd tmp 2>nul||exit
setlocal enabledelayedexpansion

echo %time%
call :expand_num A %A:~1,-1%
call :expand_num B %B:~1,-1%

set /p=A∪B={<nul
call :A∪B A B

:—B
:: 生成非B集合数据文本
for /f "delims==" %%i in ('set num_ 2^>nul') do set %%i=
for /f %%i in (B.txt) do set num_%%i=0
(for /l %%i in (1,1,%max_B%) do (
    if not defined num_%%i echo %%i
))>—B.txt
findstr /beg:—B.txt A.txt>tmpA—B↑.txt

set /p=A交非B={<nul
call :format_str A —B
popd
pause
exit

:A∪B
:: 合并两文本，对每个数值赋值，然后从1开始检测哪些数值已经被赋值，由小到大写入临时文件
copy %1.txt+%2.txt tmp%1%2.txt>nul
if %max_A% gtr %max_B% (
    set max=%max_A%
) else set max=%max_B%
for /f "delims==" %%i in ('set num_ 2^>nul') do set %%i=
for /f %%i in (tmp%1%2.txt) do set num_%%i=0
(for /l %%i in (1,1,%max%) do (
    if defined num_%%i echo %%i
))>tmp%1%2↑.txt

:format_str
:: 检测相邻两行数值的差值是否为1，若为1，则是连续数；若不为1，则数值不连续
set /p num=<tmp%1%2↑.txt
set begin=
for /f %%i in (tmp%1%2↑.txt) do (
    if %%i neq !num! (
        set /a diff=%%i-!num!
        call :judge_range %%i !num! !diff!
    )
    set num=%%i
)
if defined begin (
    set /p=[!begin!,%num%]}<nul
) else set /p=%num%}<nul
echo,&echo %time%
goto :eof

:expand_num
:: 把字符串格式化，然后按顺序展开
set begin=&set end=
(for /f "tokens=1*" %%i in ("%*") do (
    for %%x in (%%j) do (
        set str=%%x
        if "!str:~0,1!"=="[" (
            set num_begin=!str:~1!&set begin=yes
        )
        if "!str:~-1!"=="]" (
            set num_end=!str:~0,-1!&set end=yes
        )
        if not defined begin echo %%x
        if defined end (
            for /l %%y in (!num_begin!,1,!num_end!) do echo %%y
            set begin=&set end=
        )
        set max_%1=%%x
    )
))>%1.txt
goto :eof

:judge_range
:: 判断数值范围的临界值，根据临界值输出格式化字符串
if %3 equ 1 (
    if not defined begin set begin=%2
) else (
    if defined begin (
        set /p=[!begin!,%2],<nul
        set begin=
    ) else (
        set /p=%2,<nul
    )
)
goto :eof
复制代码

@echo off&setlocal enabledelayedexpansion
set A={1,[3,6],10,[20,30],[32,60],[200,3000],5000,[6000,8000],9000,9500}
set B={2,5,31,[300,500],[8000,9000],9500}


::拆分A 和 B的数据集
set/a n=0,m=0

set Av=!a:[=]!
set Av=!Av:]="!

for %%a in (%Av:~1,-1%) do (
	set a!n!=%%~a
	set/a n+=1
)

set Bv=!B:[=]!
set Bv=!Bv:]="!


for %%a in (%Bv:~1,-1%) do (
	set B!m!=%%~a
	set/a m+=1
)


::设置上限
set /a A!n!=2000000000
set /a B!m!=2000000000


::根据a和b总项数来确定循环次，根据并集规则，进行判断重组
set/a mn=m+n,n=0,m=0
for /l %%a in (0,1,!mn!) do (
	for /f "tokens=1,2" %%m in ("!m! !n!") do (
		for /f "delims=," %%x in ("!A%%n!") do (
		for /f "delims=," %%o in ("!B%%m!") do (

		if %%x gtr %%o (set var=!B%%m!&set cur=m) else (set var=!A%%n!&set cur=n)

		for /f "tokens=1,2 delims=," %%1 in ("!var!,!var!") do (
			if !next! lss %%1 (
				if !fa! equ !end! (set aUb=!aUb!,!fa!) else (set aUb=!aUb!,[!fa!,!end!])
				set fa=%%1
			)

			set ben=%%1
			if !end! lss %%2 set end=%%2
		)))

		set /a !cur!=!cur!+1,next=end+1
	)
)
echo;并集计算：
echo;AUB={!aUb:~2!}

pause
复制代码

@echo off&setlocal enabledelayedexpansion
set "num=1 3-6 10 20-30 32-60 200-3000 5000 6000-8000 9000 9500 2 5 31 300-500 8000-9000 9500"
for %%a in (%num%) do (
    for /f "tokens=1,2 delims=-" %%b in ("%%a") do (
        if "%%c" equ "" (
           if not defined _%%b set "_%%b=a"
           ) else (
           for /l %%d in (%%b,1,%%c) do if not defined _%%d set "_%%d=a"
        )
    )
)
for /l %%a in (1,1,10000) do (
    if defined _%%a (
       set "str=%%a"&set /a strs=str+1
       if not defined _!strs! (
          if not defined flag (
             set "nums=!nums!%%a,"
             ) else (
             set "nums=!nums!%%a],"&set "flag="
          )
          ) else (
          if not defined flag set "nums=!nums![%%a,"&set "flag=a"
       )
    )
)
echo A和B的并集：{!nums:~,-1!}&pause>nul 
复制代码

@echo off&setlocal enabledelayedexpansion
set A={1,[3,6],10,[20,30],[32,60],[200,3000],5000,[6000,8002],9000,9500}
set B={2,5,31,[45,49],55,[300,500],[8000,9000],9500}
::为了处理更多的情况，在楼主的例子上加了一些数据


::拆分A 和 B的数据集
set/a n=0,m=0

set Av=!a:[=]!
set Av=!Av:]="!

for %%a in (%Av:~1,-1%) do (
	set a!n!=%%~a
	set/a n+=1
)

set Bv=!B:[=]!
set Bv=!Bv:]="!


for %%a in (%Bv:~1,-1%) do (
	set B!m!=%%~a
	set/a m+=1
)


::设置上限
set /a A!n!=2000000000
set /a B!m!=2000000000


::根据a和b总项数来确定循环次，根据交集规则，进行判断重组
set/a mn=m+n,n=0,m=0
for /l %%a in (0,1,!mn!) do (
	for /f "tokens=1,2" %%m in ("!m! !n!") do (
		for /f "delims=," %%x in ("!A%%n!") do (
		for /f "delims=," %%o in ("!B%%m!") do (

		if %%x gtr %%o (set var=!B%%m!&set cur=m) else (set var=!A%%n!&set cur=n)

		for /f "tokens=1,2 delims=," %%1 in ("!var!,!var!") do (
			if !end! geq %%1 (
				if !end! geq %%2 (
					if %%1 equ %%2 (set aNb=!aNb!,%%1) else (set aNb=!aNb!,[%%1,%%2])
				) else (
					if %%1 equ !end! (set aNb=!aNb!,%%1) else (set aNb=!aNb!,[%%1,!end!])
				)
			)
			if !end! lss %%2 set ben=%%1&set end=%%2

		)))

		set /a !cur!=!cur!+1
	)
)

echo;交集计算:
echo;aNb={!aNb:~1!}

pause
复制代码

@echo off
::下面代码只包括核心部分，其他处理已被忽略

::先把A、B转换成如下形式
set A=1-1,3-6,10-10,20-30,32-60,200-3000,5000-5000,6000-8000,9000-9000,9500-9500
set B=2-2,5-5,31-31,300-500,8000-9000,9500-9500
::求A交非B
echo %A%,交非,%B%|gawk "BEGIN{FS=\"-\";RS=\",\";ORS=\",\"}{{if($0==\"交非\"){m=1}}{if(m!=1){for(i=$1;i<=$2;i++)a[i]=i}}{if(m==1){for(i=$1;i<=$2;i++)delete a[i]}}}END{x=asort(a,z);for(j=1;j<=x;j++){if(z[j-1]!=z[j]-1||j==1){print \"[\"z[j]}if(z[j+1]!=z[j]+1)print z[j]\"]\"}}"
echo;
::求A∪B
echo %A%,%B%|gawk "BEGIN{FS=\"-\";RS=\",\";ORS=\",\"}{{for(i=$1;i<=$2;i++)a[i]=i}}END{x=asort(a,z);for(j=1;j<=x;j++){if(z[j-1]!=z[j]-1||j==1){print \"[\"z[j]}if(z[j+1]!=z[j]+1)print z[j]\"]\"}}"
echo;
::获取结果后去掉末尾的逗号，把用区间形式的独数重新表示
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set "a=1 3-6 10 20-30 32-60 200-3000 5000 6000-8000 9000 9500 2 5 31 300-500 8000-9000 9500"
for %%a in (%a:-= %) do (
    set /a n+=1
    for %%b in (%a:-= %) do if %%a geq %%b set /a _%%a+=1
　　set ".!_%%a!=%%a"
)
for /l %%a in (1,1,%n%) do set "num=!num! !.%%a!"
for %%a in (%a%) do (
    for /f "tokens=1,2 delims=-" %%b in ("%%a") do (
        if "%%c" neq "" (
           set "#%%b=%%b-"&set "#%%c=-%%c"
           ) else (
           set "#%%b=%%b"
        )
    )
)
set /p=排序后为：<nul&set /a n=0,m=1
for %%a in (%num%) do set /p=!#%%a! <nul&set /a n+=1&set "$!n!=!#%%a!"
for %%a in (%num%) do (
    set "str=!#%%a!"&set /a m+=1,strs=!str:-=!+1
    if "!str:-=!" equ "!str!" (
       if not defined #!strs! (
          if not defined flag set "nums=!nums!%%a,"
          ) else (
          if not defined flag set "nums=!nums![%%a,"&set "flag=a"
       )
       ) else (
       if "!str:~-1,1!" equ "-" (
          if not defined flag set "nums=!nums![%%a,"&set "flag=a"
          ) else (
          for %%b in (!m!) do (
              set "var=!$%%b!"
              if "!var:~,1!" neq "-" if not defined #!strs! if defined flag set "nums=!nums!%%a],"&set "flag="
          )
       )
    )
)
echo.&echo.&echo AB集合的并集为：{!nums:~,-1!}
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
set /p debug=要以调试方式运行吗?[y/n][直接回车=n]:

set LMin=1
:getLUFlag
  set /a "LMin<<=1"
  if %LMin% lss 0 set /a UMax=-(LMin+1)&goto :endLUFlag
goto :getLUFlag
:endLUFlag
echo 小于全集下限的标志数值=%LMin%, 大于全集上限的标志数值=%UMax%

set "X={[-71,-54],[3,6],10,[20,30],  [32,60],[200,  3000  ],5000,[6000,8000],9000,9500}"
set "Y={-66,-33,2,5,31,[300,500],[8000,9000],9500, 9876, 9932}"
(call :initSet X&call :outputSet X&call :initSet Y&call :outputSet Y)
(call :Union X Y XUY&call :outputSet XUY)
echo 任意键退出&pause>nul
exit /b

:initSet
set "%1=!%1: =!" & set "%1=!%1:{=!" & set "%1=!%1:}=!"
set "pnt%1=0" & set "flag=CN"
for %%i in (!%1!) do (
  set "tt=%%i"
  if "!tt:~0,1!"=="[" (
    if "!flag!" equ "L" (echo 集合%1语法错误:%%i&pause&goto :err)
    set "flag=L"
    set /a pnt%1+=1&set "%1L!pnt%1!=!tt:~1!"
  ) else if "!tt:~-1!"=="]" (
    if "!flag!" neq "L" (echo 集合%1语法错误:%%i&pause&goto :err)
    set "flag=R"
    set "%1U!pnt%1!=!tt:~0,-1!"  
  ) else if "!flag!" equ "L"  (echo 集合%1语法错误:%%i&pause&goto :err
  ) else set /a pnt%1+=1&set "%1L!pnt%1!=!tt!"&set "%1U!pnt%1!=!tt!"&set "flag=CN"
)
set /a pnt%1+=1&set "%1L!pnt%1!=!UMax!"&set "%1U!pnt%1!=!UMax!"
exit /b

:Union A B A∪B
(call :copySet %1 A&call :copySet %2 B)
set /a "pntA=1,pntB=1,pntR=0"&(set RL0=%LMin%&set RU0=%LMin%)

:UnionLoop
if "!RL%pntR%!"=="!UMax!" echo 并集完成&goto :returnUnionValue
:UnionSch1
if !AU%pntA%! leq !RU%pntR%! set /a "pntA+=1"&goto :UnionSch1
if !AL%pntA%! leq !RU%pntR%! set "RU!pntR!=!AU%pntA%!"
:UnionSch2
if !BU%pntB%! leq !RU%pntR%! set /a "pntB+=1"&goto :UnionSch2
if !BL%pntB%! leq !RU%pntR%! set "RU!pntR!=!BU%pntB%!"

set "intersec=Y"
if !AL%pntA%! gtr !BU%pntB%! (set "intersec=N") else (
  if !BL%pntB%! gtr !AU%pntA%! set "intersec=N")

set /a pntR+=1
(call :min !AL%pntA%! !BL%pntB%! RL!pntR!)
if "!intersec!"=="Y" (call :max !AU%pntA%! !BU%pntB%! RU!pntR!) else (
  call :min !AU%pntA%! !BU%pntB%! RU!pntR!) 

if /i "!debug!"=="y" (
  echo pntA=!pntA!,pntB=!pntB!,pntR=!pntR!,intersec=!intersec!
  call :outputSet R
)
goto :UnionLoop

:returnUnionValue
(call :copySet R %3)
exit /b

:copySet src dest
for /l %%i in (1 1 10000) do (
  if "!%1L%%i!"=="" (exit /b) else (set %2L%%i=!%1L%%i!&set %2U%%i=!%1U%%i!)
)
exit /b

:min a b min (a,b 以串值调用, min 以变量名调用)
if %1 lss %2 (set %3=%1) else (set %3=%2)
exit /b

:max a b max (a,b 以串值调用, max 以变量名调用)
if %1 gtr %2 (set %3=%1) else (set %3=%2)
exit /b

:outputSet
set /p=%1=<nul
for /l %%i in (1 1 10000) do (
  if "!%1L%%i!"=="" (echo  &exit /b) else set /p=[!%1L%%i!,!%1U%%i!],<nul
)
exit /b

:err
echo 错误, 任意键退出&pause
exit /b
复制代码

@echo off&setlocal enabledelayedexpansion
(set LOut=')&(set UOut=Z)& rem 在集合最后面加一个假子集 [UOut, UOut] 作为尾部标志
rem echo 小于全集下限的标志=%LOut%, 大于全集上限的标志=%UOut%
call :getUniverseLU& rem echo 全集U={[!universeL!,!universeU!]}

set "I={[1,100000]}"& rem 题目指定的小全集
set "X={1,[3,6],10,[20,30],[32,60],[200,3000],5000,[6000,8000],9000,9500}"
set "Y={2,5,31,[300,500],[8000,9000],9500}"
(call :initSet I) & (call :initSet X) & (call :initSet Y)
(call :outputSet X) & (call :outputSet Y)

call :Union X Y X∪Y
call :Complement Y Y1
call :Inter I Y1 _Y
call :Inter X _Y X∩_Y

call :Simplify X∪Y
call :outputSet X∪Y
call :Simplify X∩_Y
call :outputSet X∩_Y

echo 任意键退出&pause>nul
exit /b

:Union A B A∪B
(call :copySet %1 A&call :copySet %2 B&call :clearSet R)
set /a "pntA=1,pntB=1,pntR=0"&(set RL0=%LOut%&set RU0=%LOut%)
:UnionLoop
if "!RL%pntR%!"=="!UOut!" (call :copySet R %3)&exit /b
:UnionSch1
if !AU%pntA%! leq !RU%pntR%! set /a "pntA+=1"&goto :UnionSch1
if !AL%pntA%! leq !RU%pntR%! set "RU!pntR!=!AU%pntA%!"
:UnionSch2
if !BU%pntB%! leq !RU%pntR%! set /a "pntB+=1"&goto :UnionSch2
if !BL%pntB%! leq !RU%pntR%! set "RU!pntR!=!BU%pntB%!"

set "intersec=Y"
if !AL%pntA%! gtr !BU%pntB%! (set "intersec=N") else (
  if !BL%pntB%! gtr !AU%pntA%! set "intersec=N")
set /a "pntR+=1"
(call :min !AL%pntA%! !BL%pntB%! RL!pntR!)
if "!intersec!"=="Y" (call :max !AU%pntA%! !BU%pntB%! RU!pntR!) else (
  call :min !AU%pntA%! !BU%pntB%! RU!pntR!) 
goto :UnionLoop
exit /b

:Inter A B A∩B
(call :copySet %1 A&call :copySet %2 B&call :clearSet R)
set /a "pntA=1,pntB=1,pntR=0"&(set RL0=%LOut%&set RU0=%LOut%)
:InterLoop
if "!RL%pntR%!"=="!UOut!" (call :copySet R %3)&exit /b
:InterSch1
if !AU%pntA%! lss !BL%pntB%! set /a "pntA+=1"&goto :InterSch1
:InterSch2
if !BU%pntB%! lss !AL%pntA%! set /a "pntB+=1"&goto :InterSch2
if !AU%pntA%! lss !BL%pntB%! goto :InterSch1

set /a "pntR+=1"
(call :max !AL%pntA%! !BL%pntB%! RL!pntR!)
(call :min !AU%pntA%! !BU%pntB%! RU!pntR!)

if !AU%pntA%! lss !BU%pntB%! (set /a "pntA+=1") else set /a "pntB+=1"
goto :InterLoop
exit /b

:copySet src dest
call :clearSet %2
for /l %%i in (1 1 10000) do (
  if "!%1L%%i!"=="" (exit /b) else (set %2L%%i=!%1L%%i!&set %2U%%i=!%1U%%i!)
)
exit /b

:min a b min (a,b 以串值调用, min 以变量名调用)
if %1 lss %2 (set %3=%1) else (set %3=%2)
exit /b

:max a b max (a,b 以串值调用, max 以变量名调用)
if %1 gtr %2 (set %3=%1) else (set %3=%2)
exit /b

:outputSet
(set lastout=')
set /p=%1={<nul
if "!%1L1!"=="" echo }&exit /b
for /l %%i in (1 1 10000) do (
  if "!%1L%%i!"=="" (if %%i neq 1 (echo }) else echo })&exit /b
  if "!%1L%%i!"=="!UOut!" (
    (if %%i neq 1 (echo }) else echo })&exit /b
  ) else if !%1L%%i! gtr !lastout! (
    if !%1L%%i! neq !%1U%%i! (
      set /p=[!%1L%%i!,!%1U%%i!],<nul
    ) else set /p=!%1L%%i!,<nul
    (set lastout=!%1U%%i!)
  )
)
exit /b

:clearSet
for /l %%i in (1 1 10000) do (
  if "!%1L%%i!"=="" (exit /b) else (set %1L%%i=&set %1U%%i=)
)
exit /b

:err
echo 错误, 任意键退出&pause
exit /b

:getUniverseLU
set "universeL=1"
:get_uniLU
  set /a "universeL<<=1"
  if %universeL% lss 0 (set /a "universeU=-(universeL+1), universeL=0"&exit /b) else goto :get_uniLU
exit /b

:Complement A compA
(call :copySet %1 A&call :clearSet R)
(set /a pntA=0, pntN=pntA+1, pntR=0)
if !AL1! neq !universeL! (
  set tL=!universeL!& set /a "tU=AL1-1"
) else (
  set /a "pntA+=1"
  if !AU1! lss !universeU! (
    set /a "tL=AU1+1"
    if "!AL2!" neq "!UOut!" (set /a tU=AL2-1) else set "tU=!universeU!"
  ) else ( rem 补为空
    (set /a "pntR+=1"&set RL!pntR!=!UOut!&set RU!pntR!=!UOut!)&(call :copySet R %2)&exit /b
  )
)
:ComplementLoop
if !tU! geq !tL! (
  (set /a "pntR+=1"&set RL!pntR!=!tL!&set RU!pntR!=!tU!)
  if !tU! geq !universeU! (
    (set /a "pntR+=1"&set RL!pntR!=!UOut!&set RU!pntR!=!UOut!)&(call :copySet R %2)&exit /b
  )
)
set /a "pntA+=1, pntN=pntA+1"
set /a "tL=AU!pntA!+1"
if !AL%pntN%!==!UOut! (set "tU=!universeU!") else set /a "tU=!AL%pntN%!-1"
goto :ComplementLoop
exit /b

:Simplify A 仅用于最后输出之前(不再做任何运算), 将相邻子集合并
(call :copySet %1 A)&(set /a pntA=0, pntN=pntA+1)&set "AU0=!LOut!"
:SimplifyLoop
if "!AL%pntN%!"=="!UOut!" (call :copySet A %1)&exit /b
set /a "tt=AL!pntN!-1"
if "!AU%pntA%!" equ "!tt!" (
  set "AU!pntA!=!AU%pntN%!"
  set /a "pntN+=1"
) else set /a "pntA=pntN,pntN+=1"
goto :SimplifyLoop
exit /b

:initSet
set "%1=!%1: =!" & set "%1=!%1:{=!" & set "%1=!%1:}=!"
set "pnt%1=0" & set "flag=CN"
for %%i in (!%1!) do (
  set "tt=%%i"
  if "!tt:~0,1!"=="[" (
    if "!flag!" equ "L" (echo 集合%1语法错误:%%i&pause&goto :err)
    set "flag=L"
    set /a pnt%1+=1&set "%1L!pnt%1!=!tt:~1!"
  ) else if "!tt:~-1!"=="]" (
    if "!flag!" neq "L" (echo 集合%1语法错误:%%i&pause&goto :err)
    set "flag=R"
    set "%1U!pnt%1!=!tt:~0,-1!"  
  ) else if "!flag!" equ "L"  (echo 集合%1语法错误:%%i&pause&goto :err
  ) else set /a pnt%1+=1&set "%1L!pnt%1!=!tt!"&set "%1U!pnt%1!=!tt!"&set "flag=CN"
)
set /a pnt%1+=1&set "%1L!pnt%1!=!UOut!"&set "%1U!pnt%1!=!UOut!"
exit /b
复制代码