Advertisement
Guest User

Untitled

a guest
Feb 23rd, 2019
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.65 KB | None | 0 0
  1. @ECHO OFF
  2. SETLOCAL ENABLEDELAYEDEXPANSION
  3. SET WORDSCOUNT=0
  4.  
  5. FOR /F "USEBACKQ" %%A IN (%~dp0WORDS.TXT) DO (
  6. SET /A WORDSCOUNT+=1
  7. )
  8.  
  9. FOR %%A IN (%*) DO (
  10. SET CURRENTIDX=0
  11. SET /A "RANDOMIDX=(!RANDOM! * !RANDOM! + !RANDOM!) %% WORDSCOUNT"
  12. FOR /F "USEBACKQ" %%B IN (%~dp0WORDS.TXT) DO (
  13. IF !CURRENTIDX!==!RANDOMIDX! (
  14. SET WORDONE=%%B
  15. )
  16. SET /A CURRENTIDX=!CURRENTIDX! + 1
  17. )
  18. SET CURRENTIDX=0
  19. SET /A "RANDOMIDX=(!RANDOM! * !RANDOM! + !RANDOM!) %% WORDSCOUNT"
  20. FOR /F "USEBACKQ" %%B IN (%~dp0WORDS.TXT) DO (
  21. IF !CURRENTIDX!==!RANDOMIDX! (
  22. SET WORDTWO=%%B
  23. )
  24. SET /A CURRENTIDX=!CURRENTIDX! + 1
  25. )
  26.  
  27. MOVE /Y "%%~A" "%%~dpA!WORDONE! !WORDTWO!%%~xA"
  28. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement