[文本处理] 批处理如何合并逻辑上属于同行的内容？

@echo off
setlocal enabledelayedexpansion
set d=0

for /f "tokens=*" %%a in (test.txt) do (
 if not defined r0 (set r0=%%a)
 set p=%%a
 set k=f
 set q=!p: =!
 if "!q:｜｜=!" neq "!q!" (
  for /f %%b in ('echo;%%a') do (
   set/a e=!d!-1
   call set t=%%r!e!%%
   for /f %%c in ('echo;!t!') do (
    set r!e!=%%c%%b!t:%%c=!
   )
   set k=y
  )
 )
 if "!k!"=="f" (
  set r!d!=%%a
  set /a d+=1
 )
)
for /l %%a in (0,1,!d!) do (echo;!r%%a!>>Result.txt)
pause
复制代码

@echo off & setlocal enabledelayedexpansion
(for /f "tokens=1* delims= " %%i in ('type test.txt') do (
	set line=%%j
	set line=!line: =!
	if "!line:｜｜=!" equ "!line!" (
		if defined adr (
			echo;!adr!       !num!
		)
		set adr=%%i&set num=%%j
	)else (
		set adr=!adr!%%i
	)
)
echo;!adr!       !num!
)>结果.txt
pause & exit /b
复制代码

@echo off & setlocal enabledelayedexpansion
(for /f "delims=" %%i in ('type test1.txt') do (
	set line=%%i
	set line=!line: =!
	if "!line:｜｜=!" equ "!line!" (
		if defined adr echo;!adr!       !num!
		set num=｜!line:*｜=!
		for /f "delims=" %%a in ("!num!") do set adr=!line:%%a=!
	)else (
		if "!line!" neq "" (
			set n=｜!line:*｜=!
			for /f "delims=" %%a in ("!n!") do set adr=!adr!!line:%%a=!
		)
	)
)
echo;!adr!       !num!
)>结果.txt
pause & exit /b
复制代码

@if(0)==(0) echo off&cscript -nologo -e:jscript "%~f0"<"test1.txt"&pause & exit/b@end
var t1=t2='';
var arr = WScript.StdIn.ReadAll().split(/\s*\r?\n/);
arr.push('#');
for (var i=0;i<arr.length;i++){
      if (def==0&&!/｜\s+｜+/.test(arr[i])){
          WSH.Echo(t1.replace(/\s+/g,'')+'        '+t2.replace(/｜[\s｜]*$/,''));
          def=1;t1=t2='';
      }
      var str1 = arr[i].replace(/｜.+$/g,'');
      var str2 = arr[i].replace(/^[^｜]+/,'');
      t1 += str1;t2 += str2;var def=0;
}
复制代码

echo;!adr!       !num!
复制代码