| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/nginx/html/JimMartinson/_Archive/CST1861/ExampleFiles/Lab04/ooga/ |
Upload File : |
@echo off
cls
set _answers= ABCDEFGHIJKLMNOPQRSTUVWXUZ
set _thisPathNumber=
setlocal ENABLEDELAYEDEXPANSION
:again
set _choice=0
set _choices=
echo.
for /f "tokens=1,* delims=;" %%p in ("%Path%") do call:parsePathMenu "%%p" "%%q"
set _choices=%_choices%x
::echo %_choices%
echo X) eXit.
echo.
::choice /c:cdx /n /m "Select one of the above: "
choice /c:%_choices% /n /m "Which of the above do you want to do? "
::echo %errorlevel%
::goto:EOF
:: Get that part of the path.
set _thisPathNumber=%errorlevel%
set _thisPathCount=0
set _thisPath=
for /f "tokens=1,* delims=;" %%p in ("%Path%") do call:parsePathMenu "%%p" "%%q"
set _
:: if NOT "_thisPath"=="" goto:removePathPart
goto:EOF
:makeMenu
set /a _choice += 1
set _choices=%_choices%!_answers:~%_choice%,1!
echo !_answers:~%_choice%,1!) %~1
goto:EOF
:parsePathMenu
if defined _thisPathNumber (
call:savePathPart "%~1"
) else (
call:makeMenu " %~1"
)
if NOT "%~2"=="" for /f "tokens=1,* delims=;" %%p in ("%~2") do call:parsePathMenu "%%p" "%%q"
goto:EOF
:savePathPart
set /a _thisPathCount += 1
if %_thisPathCount%==%_thisPathNumber% set _thisPath=%~1
goto:EOF