Скрипт для переименования большого количества файлов на ФИО в содержимом каждого файла

@setlocal enabledelayedexpansion
@for %%f in (*.pdf) do @(
  pdftotext.exe -f 1 "%%f" "%tmp%\%%f"
  for /f "tokens=10,11 delims=/" %%i in ('findstr /ec:FLIGHT "%tmp%\%%f"') do @set "i=%%i %%j"
  if "!i:~-3,1!"=="R" @set "i=!i:~-1!"
  ren "%%f" "!i:~6,-4!%%~xf" & del "%tmp%\%%f"
)

@echo off&setlocal enabledelayedexpansion&chcp 65001>nul
for %%f in (*.pdf) do (
  pdftotext.exe -enc UTF-8 -f 1 "%%f" "%tmp%\%%f"
  for /f delims^= %%i in ('findstr/c:"/NAME" "%tmp%\%%f"') do (
    set "str=%%i"
    for /f "tokens=1-3 delims=/ " %%x in ('echo "!str:~37!"') do (
      set z=&echo `MR`MS`MRS`Г-ЖА`Г-ИН`|find "`%%z`"||set "z= %%~z"
      ren "%%f" "%%~x %%y!z!%%~xf"
    )
  )
  del "%tmp%\%%f"
)

@echo off&setlocal enabledelayedexpansion&chcp 65001>nul
for %%f in (*.pdf) do (
  pdftotext.exe -enc UTF-8 -f 1 "%%f" "%tmp%\%%f"
  for /f "tokens=1* delims=:" %%a in ('findstr/nc:"/Document" "%tmp%\%%f"') do (
    set /a "strnum=%%a + 2"
  )
  
  for /f "tokens=1* delims=:" %%a in ('findstr/n .* "%tmp%\%%f"') do (
    if "%%a"=="!strnum!" set "str=%%b"
  )
  for /f "tokens=1-3 delims=/ " %%x in ('echo "!str!"') do (
    set z=&echo `MR`MS`MRS`Г-ЖА`Г-ИН`|find "`%%z`"||set "z= %%~z"
    ren "%%f" "%%~x %%y!z!%%~xf"
  )
   
  del "%tmp%\%%f"
)