Фильтрация вводимой информации

@echo off
SetLocal EnableExtensions EnableDelayedExpansion
chcp 866>nul
 
:Main
cls
set input=
set /p input="Введите имя (просто Enter - отмена операции): "
if %input%=="" exit /b
call :Validate "%input%" "code"
if !code! GTR 0 (
echo+ Имя должно содержать только символы латиницы и\или цифры
pause
goto :Main
)
echo %time:~0,8% - Идет работа
pause
goto :Main
 
:Validate [Входная строка] [Переменная для кода возврата]
set "string=%~1"
set err=0
echo.%string%|findstr /R /C:"[^a-z^A-Z^0-9^_]">nul&&set /a err+=2||set /a err-=1
echo.%string%|findstr /R /C:"[0-9_]">nul&&set /a err-=1
set "%~2=%err%"
exit /b

:Validate
echo."%~1"|findstr /V /R /C:"[^A-Za-z0-9_\"] >nul && set %~2=0 || set %~2=1
exit /b

if "%input%"=="" exit /b

@echo off
SetLocal EnableExtensions EnableDelayedExpansion
chcp 866>nul
 
:Main
cls
set input=
set /p input="Введите имя (просто Enter - отмена операции): "
if "%input%"=="" exit /b
call :Validate "%input%" "code"
rem echo !code!
if !code! GTR 0 (
echo+ Имя должно содержать только символы латиницы и\или цифры
rem pause
goto :Main
)
echo %time:~0,8% - Идет работа
pause
goto :Main
 
:Validate [Входная строка] [Переменная для кода возврата]
echo."%~1"|findstr /V /R /C:"[^A-Za-z0-9_\"]>nul&&set "%~2=0"||set "%~2=1"
exit /b

@set @x=0; /*
@echo off
SetLocal EnableExtensions
chcp 866>nul
 
:Main
cls
set input=
set /p "x=Введите имя (просто Enter - отмена операции): "<NUL
For /F "delims=" %%a in ('cscript //E:JScript //nologo "%~f0"') do set "input=%%a"
if "%input%"=="" exit /b
if "%input%"=="/FAILURE/" (
  echo+ Имя должно содержать только символы латиницы и\или цифры
  pause
  goto Main
)
echo %time:~0,8% - Идет работа
pause
goto Main
 
*/var st = WScript.StdIn.ReadLine();
if (st.length == 0) WScript.Quit();
var patt=/[^a-z\d_]/i;
if (patt.test(st) == false) WScript.Echo(st); else WScript.Echo('/FAILURE/');

@set @x=0; /*
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
chcp 866>nul
 
:Main
cls
echo+
echo+
set input=
set /p "x=Введите имя (просто Enter - отмена операции): "<NUL
 call :Validate "input"
if "%input%"=="" exit /b
if "%input%"=="/FAILURE/" (
call :MessageBox "Имя должно содержать только символы латиницы и\или цифры" "Ошибка проверки" OK 16
goto :Main
)
 
echo %time:~0,8% - Идет работа
pause
goto :Main
::
:Validate [Входная строка]
For /F "delims=" %%a in ('cscript //E:JScript //nologo "%~f0" "Validate"') do set "%~1=%%a"
exit /b
::
:MessageBox [Сообщение] [Заголовок] [Вид кнопок - YesNo или OK] [Critical - 16, Question - 32, Exclamation - 48, Information - 64]{noWait - опционально, чтобы не дожидаться нажатия ОК}
:: JS-имитация окна MSGBOX с возвратом кода ошибки при нажатой клавише: 0 - Нет, 1 - Да]
  if /i "%~3"=="YesNo" (set ButtonConst=4) else (set ButtonConst=0)
  set "infIcon=%~4"
  set /a ButtonConst=!ButtonConst!+!infIcon!
  if /i "%~5"=="noWait" (start "" /MIN cscript.exe //nologo //e:jscript "%~f0" "MessageBox" "%~1" "%~2" "%ButtonConst%"& exit /b)
  for /f %%a in ('cscript.exe //nologo //e:jscript "%~f0" "MessageBox" "%~1" "%~2" "%ButtonConst%"') do set msg_err=%%a
  set msg_retCode=0
  if "%msg_err%"=="6" set "msg_retCode=1"
  if "%msg_err%"=="7" set "msg_retCode=0"
exit /b %msg_retCode%
::
::
:: JS injection
::
::
 
*/try {
  var WSHShell = new ActiveXObject('WScript.Shell');
  var ShellApp = new ActiveXObject('Shell.Application');
 
  switch (WScript.Arguments(0)) {
    case "MessageBox": {
      WScript.Echo (WSHShell.Popup (WScript.Arguments(1).replace(/\\n/g,'\n'),-1,WScript.Arguments(2),+WScript.Arguments(3)));
      break;
    }
    case "Validate": {
      var st = WScript.StdIn.ReadLine();
      if (st.length == 0) WScript.Quit();
      var patt=/[^a-z\d_]/i;
      if (patt.test(st) == false) WScript.Echo(st); else WScript.Echo('/FAILURE/');
      break;
    }
  }
}
catch (e) { }

goto metka
:metka