Advertisement
IcarusLives

%multiColor% Macro

Jun 30th, 2017
444
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 1.40 KB | None | 0 0
  1. @echo off & setlocal enableDelayedExpansion
  2.  
  3. rem Code for color support
  4. for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E & echo on & for %%b in (1) do rem"') do set "DEL=%%a"
  5. <nul set /p ".=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%" > "'"
  6. rem ------------------------
  7. rem Code for macro support
  8. set ^"LF=^
  9.  
  10. ^" Above empty line is required - do not remove
  11. set ^"\n=^^^%LF%%LF%^%LF%%LF%^^"
  12. rem ------------------------
  13. rem macros
  14. rem %getArgs% '"TEXT".95 "TEXT".BE "TEXT".C1 "TEXT".5D'
  15. set getArgs=for %%# in (1 2) do if %%#==2 ( set "arguments=0" ^& for %%a in ("^!args^!") do (%\n%
  16.     set /a "arguments+=1" ^& for /f "tokens=1,2 delims=." %%0 in ("%%~a") do if "%%1" neq "" (%\n%
  17.         set "T[^!arguments^!]=%%~0"%\n%
  18.         set "c[^!arguments^!]=%%~1"%\n%
  19.         for /f "tokens=*" %%2 in ("T[^!arguments^!]") do set "%%2=^!%%2:~0,-1^!"%\n%
  20.     ))%\n%
  21.     for /f "tokens=*" %%2 in ("c[^!arguments^!]") do set "%%2=^!%%2:~0,-1^!"%\n%
  22.     set "T[1]=^!T[1]:~3^!"%\n%
  23. ) else set args=
  24.  
  25. set "colorArgs=(for /l %%a in (1,1,^!arguments^!) do ( echo=^!t[%%a]^!\..\')^>cp.txt ^&^& findstr /a:^!c[%%a]^! /f:cp.txt ".") & echo."
  26. rem ------------------------
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33. echo.
  34. %getArgs% ""Macro test".5A "  1  ".4E "   Unlimited parameters".9B"
  35. %colorArgs%
  36. echo.
  37. %getArgs% ""Macro test".DC "  2  ".2D"
  38. %colorArgs%
  39. echo.
  40. %getArgs% ""Macro test".32 "  3  ".47"
  41. %colorArgs%
  42. echo.
  43. %getArgs% ""Macro test".91 "  4  ".F6"
  44. %colorArgs%
  45. pause & exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement