Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- :: --------------------------------------------------------------------------------------------------------------------------------------------------------------------
- :: :bigText displays color in desired from from :build_alphabet function (NOT COMPLETE)
- ::
- :: call :bigText "Hello" 54 " " 1f "World" c3
- :: --------------------------------------------------------------------------------------------------------------------------------------------------------------------
- :bigText
- setlocal
- set "a=1"
- :getArgs
- if "%~1" neq "" set /a "args+=1" & set "t[!args!]=%~1"
- if "%~2" neq "" set "c[!args!]=%~2"
- shift & shift & if "%~1" neq "" ( goto :getArgs )
- :getLetter
- if defined t[%a%] (
- set "e[%a%]=!t[%a%]:~%p%,1!" & set "cs=!e[%a%]!"
- set /a "p+=1", "n[%a%]+=1"
- set "cha[%a%][!n[%a%]!]=!cs!"
- if "!cs!" equ "" set /a "a+=1", "p=0"
- goto :getLetter
- )
- 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]%%"
- 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.
- endlocal
- goto :eof
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement