Advertisement
IcarusLives

Untitled

Mar 1st, 2017
1,113
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 1.37 KB | None | 0 0
  1. :: --------------------------------------------------------------------------------------------------------------------------------------------------------------------
  2. :: :bigText  displays color in desired from from :build_alphabet function (NOT COMPLETE)
  3. ::
  4. :: call :bigText "Hello" 54 " " 1f "World" c3
  5. :: --------------------------------------------------------------------------------------------------------------------------------------------------------------------
  6. :bigText
  7.     setlocal
  8.         set "a=1"
  9.         :getArgs
  10.             if "%~1" neq "" set /a "args+=1" & set "t[!args!]=%~1"
  11.             if "%~2" neq "" set "c[!args!]=%~2"
  12.             shift & shift & if "%~1" neq "" ( goto :getArgs )
  13.  
  14.         :getLetter
  15.             if defined t[%a%] (
  16.                 set "e[%a%]=!t[%a%]:~%p%,1!" & set "cs=!e[%a%]!"
  17.                 set /a "p+=1", "n[%a%]+=1"
  18.                 set "cha[%a%][!n[%a%]!]=!cs!"
  19.                 if "!cs!" equ "" set /a "a+=1", "p=0"
  20.                 goto :getLetter
  21.             )
  22.            
  23.         for /l %%c in (1,1,%b_a_btMAX%) do for /l %%a in (1,1,%args%) do for /l %%b in (1,1,!n[%%a]!) do call set "o[%%a][%%c]=!o[%%a][%%c]!%%_!cha[%%a][%%b]![%%c]%%"
  24.         for /l %%b in (1,1,%b_a_btMAX%) do ( for /l %%a in (1,1,%args%) do (>cp.txt ( echo=!o[%%a][%%b]!\..\') && findstr /a:!c[%%a]! /f:cp.txt ".") ) & echo.
  25.     endlocal
  26. goto :eof
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement