Переименовать файл по данным внутри него

::Рога и Копыта
for /F "delims=. tokens=1-3" %%a in ('echo %date:.=%') do rename *.txt "#r%%c%%b%%a.txt"
move /y "C:\файл\Рога и Копыта\*.txt" "\\192.168.1.1\Рога и Копыта\файл"
::Рога и Копыта 2
for /F "delims=. tokens=1-3" %%a in ('echo %date:.=%') do rename *.txt "#r%%c%%b%%a.txt"
move /y "C:\файл\Рога и Копыта2\*.txt" "\\192.168.1.1\Рога и Копыта2\файл"
::Рога и Копыта 3
for /F "delims=. tokens=1-3" %%a in ('echo %date:.=%') do rename *.txt "#r%%c%%b%%a.txt"
move /y "C:\файл\Рога и Копыта3\*.txt" "\\192.168.1.1\Рога и Копыта3\файл"

@echo off
set "f=file.txt"
set z=
 
<"%f%" (for /f "tokens=2 delims==" %%a in ('more') do @if not defined z set "z=%%a")
echo %z%
pause

for /F "delims=. tokens=1-3" %%a in ('echo %date:.=%') do rename *.txt "#r%%c%%b%%a.txt"
move /y "C:\выгрузка\Рога и Копыта\*.txt" "\\192.168.1.1\выгрузка\Рога и Копыта\"
for /F "delims=. tokens=1-3" %%a in ('echo %date:.=%') do rename *.txt "#r%%c%%b%%a.txt"
move /y "C:\выгрузка\Рога и Копыта2\*.txt" "\\192.168.1.1\выгрузка\Рога и Копыта2\"

@echo off
>nul chcp 1251
set "d=C:\papka"
set "sp=ДатаНачала"
set "exp=txt"
set "t=#r"
 
setlocal enabledelayedexpansion
 pushd "%d%"
  for /f "delims=" %%a in ('dir /a-d/b "%t%*.%exp%"') do (
   <"%%a" (for /f "tokens=2-4 delims==." %%a in ('find "%sp%"') do @set "hh=%%c"& set "sdn=%t%%%a%%b!hh:~0,2!")
   echo !sdn!
  )
 popd
endlocal
pause& exit

ren "%%a" "!sdn!.%exp%"