Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
- ::Select Random Name From Input'ed List ::
- ::Created by RU$$ [http://russdev.mooo.com/] ::
- :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
- @ECHO OFF
- @TITLE Pick a random name!
- @SETLOCAL
- @SETLOCAL EnableDelayedExpansion EnableExtensions
- @GOTO GUI
- :GUI
- cls
- echo ============================================================
- echo Current List:
- echo ============================================================
- for /f "tokens=*" %%a in ('type ListFile.txt') do (
- set line=%%a
- echo !line! )
- echo ============================================================
- echo(
- echo --Options--
- echo 1. Pick A Name
- echo 2. Remove All Names
- echo 3. Exit
- echo(
- Echo --Input a name to add to the list--
- Set /p DIR=Name or Option:
- SET DIR=!DIR: =_%!
- IF /I '%DIR%'=='1' GOTO RANDOM
- IF /I '%DIR%'=='2' GOTO DELST
- IF /I '%DIR%'=='3' GOTO :eof
- Echo !DIR! >> ListFile.txt
- goto GUI
- :DELST
- cls
- DEL ListFile.txt
- .>> ListFile.txt
- cls
- Echo STATUS: List Was Deleted.
- Echo(
- Pause
- GOTO GUI
- :RANDOM
- SET "TextFile=ListFile.txt"
- FOR /f %%a IN ('type "%textfile%"^|find /c /v ""') DO SET /a numlines=%%a
- SET /A RandomLine=(%RANDOM% %% %NumLines%)
- IF "%RandomLine%"=="0" (SET "RandomLine=") ELSE (SET "RandomLine=skip=%randomline%")
- FOR /F "usebackq tokens=* %RandomLine% delims=" %%A IN (`TYPE %TextFile%`) DO (
- SET RNAME=%%A
- GOTO COMPLETE
- )
- :COMPLETE
- CLS
- echo ============================================================
- echo RESULTS:
- echo(
- echo Your random name is - %RNAME%
- echo ============================================================
- echo(
- pause
- goto :EOF
Add Comment
Please, Sign In to add comment