Извлечение файлов из архива по заданным условиям с переименованием

@echo off
set "D1=C:\Inbox"
set "D2=C:\Outbox"
set "arx=%ProgramFiles%\7-Zip\7z.exe"
set "ear=7z"
set "mask=pdf"
 
if not exist "%D2%" md "%D2%"
pushd "%D1%"
 for /f "tokens=3*" %%a in ('dir /a-d/od "*.%ear%"^|findstr/rc:"^[^ ]"') do set "nf=%%b"
 for /f "tokens=2 delims=_" %%a in ("%nf%") do set "nm=%%a"
 call :# "%arx%" "%nf%" $ "*.%mask%" "%nm%" "%D2%"
popd
pause& exit
 
:# [Архиватор] [Архив] [Врем. папка] [Расш. извл. файлов] [Маска имен] [Путь назначения]
 setlocal enabledelayedexpansion
  "%~1" x "%~2" -o"%~3" "%~4" -r
  for /f "delims=" %%a in ('2^>nul dir /a-d/b/s "%~3"') do set /a n+=1& >nul move "%%a" "%~6\%~5_!n!%%~xa"
  rd /s /q "%~3"
 endlocal
exit /b

...
for /f "tokens=3*" %%a in ('dir /a-d/s/od ...
...

for /f "tokens=3*" %%a in ('dir /a-d/s/od "*.расширение"^|findstr/rc:"^[^ ]"') do set "nf=%%b"
echo %nf%
pause