Найти файл по маске, в нём найти определённую запись и вывести её в текстовый файл на "Рабочий стол"

@ 2>nul (for %%i in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do @for /f "delims=" %%j in ('dir/a-d/b/s "%%i:\*.txt"')

@echo off
Setlocal EnableDelayedExpansion
set "v=13.04.1800"
for /f "delims=" %%a in (1.txt) do (
set c=%%a
for  %%b in (!c!) do  if "%%b"=="%v%" echo 1
)

@echo off 
FINDSTR BD=*-*-*-* "%userprofile%\Desktop\*.txt > Your_Birth_Day.txt
Your_Birth_Day.txt

@echo off
 
for  /f "tokens=*" %%a in ('findstr "13.04.1800" 1.txt') do (
for %%b in (%%a) do if "%%b"=="13.04.1800" echo 1
)
 
pause

@echo off
 
set n=BD^=May-03-1800
for  /f "tokens=*" %%a in ('findstr "%n%" 1.txt') do (
set c=%%a
)
if defined c (echo %n%>234.txt) else (echo 2)
move %cd%\234.txt %userprofile%\Desktop\234.txt
 
pause

@echo off
for %%a in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
 for /f "tokens=2 delims=:" %%b in ('findstr /s /lc:"BD=*-*-*-*" "%%a:\*.txt"') do (
  echo.%%b>"%Userprofile%\Desktop\Your_Birth_Day.txt"
))
exit

 for /f "tokens=2* delims=:" %%b in ('findstr /irsc:"BD=[A-Z][A-Z]*-[0-3][0-9]-[0-9][0-9][0-9][0-9]" "%%a:\*.txt"') do (
  echo.%%c>"%Userprofile%\Desktop\Your Birthday.txt"

@echo off
 
>"%USERPROFILE%\Desktop\Your Birthday.txt" (
 for %%i in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do @(
  2>nul dir %%i:\:| >nul find ":"&& for /f "tokens=2* delims=:" %%j in (
   'findstr/irsc:"BD=[A-Z][A-Z]*-[0-3][0-9]-[0-9][0-9][0-9][0-9]" "%%i:\*.txt"'
  ) do @echo %%k
 )
)
 
exit/b

@echo off
 
>"%USERPROFILE%\Desktop\Your Birthday.txt" (
 for %%i in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do @(
  for /f "delims=" %%j in ('2^>nul dir/a-d/b/s "%%i:\*.txt"') do @(
   findstr/irc:"BD=[A-Z][A-Z]*-[0-3][0-9]-[0-9][0-9][0-9][0-9]" "%%j"&& exit/b
  )
 )
)

@echo off
 
>"%USERPROFILE%\Desktop\Your Birthday.txt" (
 for %%i in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do @(
  for /f "delims=" %%j in ('2^>nul dir/a-d/b/s "%%i:\*.txt"') do @(
   findstr/irc:"BD=[A-Z][A-Z]*-[0-3][0-9]-[0-9][0-9][0-9][0-9]" "%%j"&& exit/b
  )
 )
)

@echo off
 
>"%USERPROFILE%\Desktop\Your Birthday.txt" (
 for %%i in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do @(
  for /f "delims=" %%j in ('2^>nul dir/a-d/b/s "%%i:\*.txt"') do @(
   findstr/irc:"BD=[0-9][0-9]*-[A-Z][A-Z]*-[0-3][0-9]-[0-9][0-9][0-9][0-9]" "%%j"&& exit/b
  )
 )
)

@echo off
 
>"%USERPROFILE%\Desktop\Your Birthday.txt" (
 for %%i in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do @(
  for /f "delims=" %%j in ('2^>nul dir/a-d/b/s "%%i:\*.txt"') do @(
   findstr/irc:"BD=[^-][^-]*-[^-][^-]*-[^-][^-]*-[^-][^-]*" "%%j"&& exit/b
  )
 )
)