DosTips.com

Code: Select all

@echo off

setlocal EnableDelayedExpansion

set /a UserProfileNo=0

FOR /F "delims=" %%I IN ('dir /a:d /b "%SystemDrive%\Users\"') do (

    set "UserProfileName=%%~I"
    set /a UserProfileNo+=1
    set "UserProfileName[!UserProfileNo!]=!UserProfileName!"

)

FOR /L %%k IN (1, 1, %UserProfileNo%) DO echo  %%~k !UserProfileName[%%~k]!
    set /p choice=Enter a Profile Number: 

FOR %%f IN (%choice%) DO if "!UserProfileName[%%~f]!" == "" (
    echo Error in the input
    goto end
    )

echo NO Error in the input

:end

pause

exit
Thank you

Code: Select all

@echo off
setlocal EnableDelayedExpansion

set /a "UserProfileNo=0"
set "choices="

FOR /F "delims=" %%I IN ('dir /a:d /b "%SystemDrive%\Users\"') do (
	set /a UserProfileNo+=1
	call :ResolveChar !UserProfileNo!
	set UserProfileName!retval!=%%I
	set choices=!choices!!retval!
	echo [!retval!] %%I
)

choice /c !choices! /cs /m "Enter a Profile Letter: " /n
call :ResolveChar %errorlevel%
set "Profile=!UserProfileName%retval%!"
echo Profile: %Profile%

pause
goto :eof

:ResolveChar
SETLOCAL
  set "keys=_ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  set "_startchar=%1"
  CALL SET "char=%%keys:~%_startchar%,1%%"
ENDLOCAL & SET "retval=%char%"

goto :eof

Code: Select all

C:\Users\Squashman\Desktop>so.bat
[A] All Users
[B] Beavis
[C] Butthead
[D] Devil
[E] Default User
[F] Marvin
[G] Squashman
[H] Public
Enter a Profile Letter: G
Profile: Squashman
Press any key to continue . . .

Code: Select all

@echo off
setlocal EnableDelayedExpansion
:::::
:: Advanced user input in batch [using xcopy]
:: https://gist.github.com/Grub4K/2d3f5875c488164b44454cbf37deae80
:::::
:: Returns by echoing result.
:: Fetching using for /f from main
:::::
set "prompt="
:: the input prompt
set "symbol="
:: the symbol that displays instead
set "length="
:: the max length of the input
set "allowed="
:: allowed characters ("a b c A B C")
set "invalid="
:: invalid characters ("b c d B C D")
:: allowed characters will override invalid
:::::

:: parse flags dict
:flags
if not "%~1" == "" (
    set "%~1"
    shift
    goto flags
)

:: Fetch needed characters
for /f %%A in ('copy /Z "%comspec%" nul') do set "CR=%%A"
for /f %%A in ('"prompt $H&for %%B in (1) do rem"') do set "BS=%%A"
:: start of program
if defined symbol set "symbol=%symbol:~0,1%"
set "input=."
<NUL set /p "=.!BS! !BS!!prompt!" >CON
:input
set "key="
for /f "delims=" %%A in ('xcopy /w "%comspec%" "%comspec%" 2^>nul') do if not defined key set "key=%%A"
set "key=!key:~-1!"
if !key! equ !BS! (
    if NOT "!input!" == "." (
        set "input=!input:~0,-1!"
        <NUL set /p "=!BS! !BS!" >CON
    )
) else if !key! equ !CR! (
    echo+ >CON
    echo+!input:~1!
    exit /B 0
) else (
    if defined length (
        if "!input:~-%length%!" == "!input!" (call)
    ) else (
        (call)
    )
) || (
    if defined allowed (
        for %%A IN (!allowed!) DO if %%A equ !key! (
            set "input=!input!!key!"
            if defined symbol (
                <NUL set /p "=!symbol!" >CON
            ) else (
                <NUL set /p "=.!BS!!key!" >CON
            )
        )
    ) else (
        for %%A IN (!invalid!) DO if %%A equ !key! goto input
        set "input=!input!!key!"
        if defined symbol (
            <NUL set /p "=!symbol!" >CON
        ) else (
            <NUL set /p "=.!BS! !BS!!key!" >CON
        )
    )
)
goto input