Проверка переменной по маске

@echo off
set m=[0-9][0-9][0-9][0-9]:[0-9][0-9]:[0-9][0-9]
 
for /f "delims=" %%a in (
 'mshta "javascript:var x=clipboardData.getData('text');if(x)new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(x);close();"'
) do set "z=%%a"& call :#
:: Код дальше
echo %a%
pause& exit
 
:#
 echo %z%|>nul findstr /rc:"^%m%$"&& (set a=%z::=.%)|| (echo ERROR)
exit /b

@echo off
set m=[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]
 
for /f "delims=" %%a in (
 'mshta "javascript:var x=clipboardData.getData('text');if(x)new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(x);close();"'
) do set "z=%%a"& call :#
pause& exit
 
:#
 for /f "tokens=1-3 delims=:" %%a in ("%z%") do (
  echo %%a|>nul findstr /rc:"^%m%$"&& (set a1=%%a)|| (goto err)
  echo %%b|>nul findstr /rc:"^%m%$"&& (set a2=%%b)|| (goto err)
  echo %%c|>nul findstr /rc:"^%m%$"&& (set a3=%%c)|| (goto err)
 )
 echo %a1%.%a2%.%a3%
exit /b
 
:err
 echo ERROR& pause
exit /b

@for /f %%a in (
 'mshta "javascript:var x=clipboardData.getData('text').match(/^\d+\:\d+\:\d+$/);if(x==null){x=0};new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(x);close();"'
) do @if "%%a" neq "0" (echo %%a) else exit