[文本处理] 【已解决】BAT或VBS:如何将多个文本内的数据进行交叉合并

@echo off&setlocal ENABLEDELAYEDEXPANSION
for /r %%a in (*_1.txt) do (
	set "Prefix=%%~dpna"
	set "Prefix=!Prefix:~0,-2!"
	set "All=1234567890"
	set "Ori=1 2 3 4 5 6 7 8 9 0"
	for /f usebackq %%1 in ("!Prefix!_1.txt") do for /f usebackq %%2 in ("!Prefix!_2.txt") do for /f usebackq %%3 in ("!Prefix!_3.txt") do for /f usebackq %%4 in ("!Prefix!_4.txt") do for /f usebackq %%5 in ("!Prefix!_5.txt") do for /f usebackq %%6 in ("!Prefix!_6.txt") do (
		set "Merge=%%1%%2%%3%%4%%5%%6"
		set "Complement=!All!"
		set "Temporary=!Ori!"
		for /l %%i in (0,1,17) do (
			for %%k in (!Merge:~%%i,1!) do (
				set "Complement=!Complement:%%k=!"
				set "Temporary=!Temporary:%%k=-%%k!"
			)
		)
		set "Result="
		for %%p in (!Temporary!) do (
			if %%p lss 0 set "Result=!Result!%%p"
			if "%%p"=="-0" set "Result=!Result!%%p"
		)
		set Result=!Result:-=!
		echo,初始合并值【!Merge!】，处理后合并值【!Result!】,反集【!Complement!】
	)
)
复制代码

@echo off&setlocal ENABLEDELAYEDEXPANSION
for /r %%a in (*_1.txt) do (
	set "Prefix=%%~dpna"
	set "Prefix=!Prefix:~0,-2!"
	set "All=1234567890"
	set "Ori=1 2 3 4 5 6 7 8 9 0"
	for /f usebackq %%1 in ("!Prefix!_1.txt") do for /f usebackq %%2 in ("!Prefix!_2.txt") do for /f usebackq %%3 in ("!Prefix!_3.txt") do for /f usebackq %%4 in ("!Prefix!_4.txt") do for /f usebackq %%5 in ("!Prefix!_5.txt") do for /f usebackq %%6 in ("!Prefix!_6.txt") do (
		set "Merge=%%1%%2%%3%%4%%5%%6"
		set "Complement=!All!"
		set "Temporary=!Ori!"
		for /l %%i in (0,1,17) do (
			for %%k in (!Merge:~%%i,1!) do (
				set "Complement=!Complement:%%k=!"
				set "Temporary=!Temporary:%%k=%%k0!"
			)
		)
		set "Result="
		set "F0=1"
		for %%p in (!Temporary!) do (
			if %%p geq 10 set "Result=!Result!%%p"
			if "%%p"=="0" set "F0=0"
		)
		set "Result=!Result:0=!"
		if !F0! geq 1 set "Result=!Result!0"
		echo,初始合并值【!Merge!】，处理后合并值【!Result!】,反集【!Complement!】
	)
)
复制代码

@echo off
for /l %%i in (1001 1 1210) do (
    set s=%%i
    setlocal enabledelayedexpansion
    set s=!s:~1!
    (for /f %%a in (!s!_1.txt) do (
        for /f %%b in (!s!_2.txt) do (
            for /f %%c in (!s!_3.txt) do (
                for /f %%d in (!s!_4.txt) do (
                    for /f %%e in (!s!_5.txt) do (                        
                        for /f %%f in (!s!_6.txt) do (
                            set str=%%a%%b%%c%%d%%e%%f
                            set n1=&set n2=
                            for /l %%l in (0,1,9) do (
                                if "!str:%%l=!" neq "!str!" (
                                   set n1=!n1!%%l
                                ) else  set n2=!n2!%%l
                            )
                            set n=!n1!A9876543210
                            if "!n:~10,1!" == "3" (
                               if not defined _!n1! (
                                  set _!n1!=0&echo,!n1!
                               )
                            ) else if "!n:~10,1!" == "7" (
                                if not defined _!n2! (
                                   set _!n2!=0&echo,!n2!
                                )
                            )
                        )
                    )
                )
            )
        )
    ))>d:\数据2\!s!.txt
    endlocal
)
pause
复制代码

  for /l %%l in (0,1,9) do ...(
复制代码

for %%l in (1 2 3 4 5 6 7 8 9 0) do (
复制代码

@echo off
setlocal enabledelayedexpansion
title 合并数据
cd /d "D:\数据1\"
set "fdir=D:\数据2\"
if not exist "%fdir%" md "%fdir%"
for /l %%i in (1001 1 1210) do (
set num=%%i
set num=!num:~1!
copy "!num!_1.txt" "%fdir%!num!.txt"
for /l %%j in (2 1 6) do (
for /f "delims=" %%a in ('type "%fdir%!num!.txt"') do (
for /f "delims=" %%b in ('type "!num!_%%j.txt"') do (
>>$ echo,%%a%%b
)
)
move $ "%fdir%!num!.txt"
)
)
pause
复制代码

@echo off
setlocal enabledelayedexpansion
title 去除每行合并数据中的重复数字并排序
cd /d "D:\数据2\"
for /f "delims=" %%a in ('dir /b *.txt') do (
for /f "delims=" %%b in ('type "%%a"') do (
>$1 echo,%%b
>$2 echo 1234567890
set /p num=<$2
for /l %%b in (0 1 9) do (
findstr "%%b" "$1" >nul 2>nul || (>$2 echo !num:%%b=!)
set /p num=<$2
)
>>$3 echo,!num!
)
move /y $3 "%%a"
)
del $*
pause
复制代码

@echo off
setlocal enabledelayedexpansion
title 取反集（未出现的数）并排序
cd /d "D:\数据2\"
for /f "delims=" %%a in ('dir /b *.txt') do (
for /f "delims=" %%b in ('type "%%a"') do (
>$1 echo,%%b
>$2 echo 1234567890
set /p num=<$2
for /l %%b in (0 1 9) do (
findstr "%%b" "$1" >nul 2>nul && (>$2 echo !num:%%b=!)
set /p num=<$2
)
echo "!num!"
if /i "!num:~0,1!" == "e" (
cd.>>$3
) else (
>>$3 echo,!num!
)
)
move /y $3 "%%a"
)
del $*
pause
复制代码

@echo off
title 去除每个文档里的重复行
cd /d "D:\数据2\"
for /f "delims=" %%a in ('dir /b *.txt') do (
for /f "delims=" %%b in ('type "%%a"') do (
if not defined %%b set %%b=PK & >>$ echo %%b
)
for /f "delims=" %%c in ('type $') do set %%c=<nul
move $ "%%a"
)
pause
复制代码

@echo off
setlocal enabledelayedexpansion
title 提取数字
cd /d "D:\数据2\"
for /f "delims=" %%a in ('dir /b *.txt') do (
cd.>$
for /f "delims=" %%b in ('type "%%a"') do (
set "str=%%b"
::如果第三位数不为空
if not "!str:~2,1!"=="" (
::如果第四位数为空，此处改为!str:~4,1!可提取3~4位的数
if "!str:~3,1!"=="" (
::提取3位的数，调整相应的截取位置即可提取不同位数的数
>>$ echo !str!
)
)
)
move $ "%%a"
)
pause
复制代码

@echo off&setlocal ENABLEDELAYEDEXPANSION
for /r %%a in (*_1.txt) do (
	set "Prefix=%%~dpna"
	set "Prefix=!Prefix:~0,-2!"
	set "All=1234567890"
	set "Ori=1 2 3 4 5 6 7 8 9 0"
	(for /f usebackq %%1 in ("!Prefix!_1.txt") do for /f usebackq %%2 in ("!Prefix!_2.txt") do for /f usebackq %%3 in ("!Prefix!_3.txt") do for /f usebackq %%4 in ("!Prefix!_4.txt") do for /f usebackq %%5 in ("!Prefix!_5.txt") do for /f usebackq %%6 in ("!Prefix!_6.txt") do (
		set "Merge=%%1%%2%%3%%4%%5%%6"
		set "Complement=!All!"
		set "Temporary=!Ori!"
		for /l %%i in (0,1,17) do (
			for %%k in (!Merge:~%%i,1!) do (
				set "Complement=!Complement:%%k=!"
				set "Temporary=!Temporary:%%k=%%k0!"
			)
		)
		set "Result="
		set "F0=1"
		for %%p in (!Temporary!) do (
			if %%p geq 10 set "Result=!Result!%%p"
			if "%%p"=="0" set "F0=0"
		)
		set "Result=!Result:0=!"
		if !F0! geq 1 set "Result=!Result!0"
		if !Result! gtr 100 if !Result! lss 999 if not defined _!Result! set _!Result!=1&echo,!Result!
	))>!Prefix!.txt
)
rem 修改 25 行 gtr  lss 值，可筛选输出的值， >100 and <999 只输出3位数， >100 and <9999 可输出 3-4位数。
复制代码