Получить содержимое всех архивов *.arj в папке

@echo off
setlocal enabledelayedexpansion
set "arx=d:\tmp\tmp.arj"
for /f "delims=:" %%a in ('""%ProgramFiles%\7-Zip\7z.exe" l "%arx%"|findstr/rn /c:"^---""') do set/a n+=1& set "v!n!=%%a"& set/a nd=v1+1& set/a kd=v2-1  
for /f "tokens=5*" %%a in ('"for /l %%a in (%nd%,1,%kd%) do @"%ProgramFiles%\7-Zip\7z.exe" l "%arx%"|find /n /v ""|find "[%%a]""') do echo %%b
pause>nul

FOR /F "tokens=* delims=" %%A in ('dir /b /s *.arj') do ("c:\Program Files\7-Zip\7z.exe" l -r "%%A" >> listing.txt)
pause

@echo off
set "exp=arj"
set "arch=%ProgramFiles%\7-Zip\7z.exe"
for /f "delims=" %%a in ('dir /a-d/b "*.%exp%"') do call :# "%%a"
pause& exit
 
:#
 setlocal enabledelayedexpansion
  for /f "delims=:" %%a in ('""%arch%" l "%~1"|findstr /rn /c:"^---""') do set /a n+=1& set "v!n!=%%a"& set /a "nd=v1+1,kd=v2-1"
  echo Содержимое "%~1":
  >>list.txt echo Содержимое "%~1":
  for /f "tokens=5*" %%a in ('"for /l %%a in (!nd!,1,!kd!) do @"%arch%" l "%~1"|find /n /v ""|find "[%%a]""') do (
   echo %%b
   >>list.txt echo %%b
  )
 endlocal
exit /b

@echo off
set "exp=arj"
set "arch=%ProgramFiles%\7-Zip\7z.exe"
for /f "delims=" %%a in ('dir /a-d/b "*.%exp%"') do call :# "%%a"
pause& exit
 
:#
 echo Содержимое "%~1":& >>list.txt echo Содержимое "%~1":
 for /f "tokens=5*" %%a in ('""%arch%" l "%~1"|findstr \.\.\.\."') do echo %%b& >>list.txt echo %%b
exit /b