Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off & setlocal enableDelayedExpansion
- prompt $g
- call :emptyVarEnviornment
- for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E & echo on & for %%b in (1) do rem"') do set "DEL=%%a"
- <nul set /p ".=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%" > "'"
- REM call :build_Alphabet
- REM call :func "[I]" 04 "[_]" 0C "[L]" 0E "[O]" 02 "[V]" 0A "[E]" 0B "[_]" 03 "[Y]" 09 "[O]" 01 "[U]" 05
- echo.
- call :func "TEXT" 05 " " 0F "ONE" 9A " " 0F "TWO" 4C
- echo.
- REM call :func "THREE" 2E " " 0F "FOUR" CA " " 0F "FIVE" D3
- set >vars.txt
- del /f /q '
- del /f /q cp.txt
- pause >nul & exit
- :func
- setlocal
- set "args=0"
- :getArgs
- if "%~1" neq "" set /a "args+=1"
- if "%~1" neq "" set "Text[!args!]=%~1"
- if "%~2" neq "" set "color[!args!]=%~2"
- shift & shift
- if "%~1" neq "" ( goto :getArgs )
- set /a "a=1", "p=0", "i=0"
- :getLetter
- if defined text[!a!] (
- call set "ex_str[!a!]=%%text[!a!]:~!p!,1%%"
- call set "currStr=%%ex_str[!a!]%%"
- set /a "i+=1", "p+=1", "noc_[!a!]+=1"
- call set "cha[!a!][!i!]=!currStr!"
- call set "col[!a!][!i!]=%%color[!a!]%%"
- if "!currStr!" equ "" set /a "a+=1", "p=0", "i=0"
- goto :getLetter
- )
- for /l %%a in (1,1,%args%) do (
- for /l %%b in (1,1,!noc_[%%a]!) do if defined cha[%%a][%%b] (>cp.txt ( call echo=!cha[%%a][%%b]!\..\') && findstr /a:!col[%%a][%%b]! /f:cp.txt ".")
- )
- endlocal
- goto :eof
- :build_Alphabet
- for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E & echo on & for %%b in (1) do rem"') do set "DEL=%%a"
- <nul set /p ".=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%" > "'"
- for %%a in (" " " ÛÛ " " ÛÛÛÛÛÛ " "ÛÛÛ ÛÛÛ" "ÛÛÛ ÛÛÛ" "ÛÛÛ ÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛ ÛÛÛ" "ÛÛÛ ÛÛÛ" "ÛÛÛ ÛÛÛ" " " " ") do set /a "a+=1" & set "_A[!a!]=%%~a"
- for %%a in (" " "ÛÛÛÛÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛÛÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " "ÛÛÛÛÛÛ " " " " ") do set /a "b+=1" & set "_B[!b!]=%%~a"
- for %%a in (" " " ÛÛÛÛ " " ÛÛ ÛÛ" " ÛÛ ÛÛ" " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ ÛÛ" " ÛÛ ÛÛ" " ÛÛÛÛ " " " " ") do set /a "c+=1" & set "_C[!c!]=%%~a"
- for %%a in (" " " ÛÛÛÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛÛÛÛ " " " " ") do set /a "d+=1" & set "_D[!d!]=%%~a"
- for %%a in (" " "ÛÛÛÛÛÛÛ " " ÛÛ Û " " ÛÛ " " ÛÛ Û " " ÛÛÛÛÛ " " ÛÛ Û " " ÛÛ " " ÛÛ Û " "ÛÛÛÛÛÛÛ " " " " ") do set /a "e+=1" & set "_E[!e!]=%%~a"
- for %%a in (" " "ÛÛÛÛÛÛÛ " " ÛÛ ÛÛ " " ÛÛ Û " " ÛÛ Û " " ÛÛÛÛÛ " " ÛÛ Û " " ÛÛ " " ÛÛ " "ÛÛÛÛ " " " " ") do set /a "f+=1" & set "_F[!f!]=%%~a"
- for %%a in (" " " ÛÛÛÛ " " ÛÛ ÛÛ" " ÛÛ ÛÛ" " ÛÛ " " ÛÛ " " ÛÛ ÛÛÛ" " ÛÛ ÛÛ" " ÛÛ ÛÛ" " ÛÛÛÛÛ " " " " ") do set /a "g+=1" & set "_G[!g!]=%%~a"
- for %%a in (" " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛÛÛÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " " " ") do set /a "h+=1" & set "_H[!h!]=%%~a"
- for %%a in (" " " ÛÛÛÛÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛÛÛÛÛ " " " " ") do set /a "i+=1" & set "_I[!i!]=%%~a"
- for %%a in (" " " ÛÛÛÛ" " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛÛÛ " " " " ") do set /a "j+=1" & set "_J[!j!]=%%~a"
- for %%a in (" " " ÛÛÛ ÛÛ" " ÛÛ ÛÛ" " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ" " ÛÛÛ ÛÛ" " " " ") do set /a "k+=1" & set "_K[!k!]=%%~a"
- for %%a in (" " "ÛÛÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ Û " " ÛÛ ÛÛ " "ÛÛÛÛÛÛÛ " " " " ") do set /a "l+=1" & set "_L[!l!]=%%~a"
- for %%a in (" " "ÛÛ ÛÛ " "ÛÛÛ ÛÛÛ " "ÛÛÛÛÛÛÛ " "ÛÛÛÛÛÛÛ " "ÛÛ Û ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " " " " ") do set /a "m+=1" & set "_M[!m!]=%%~a"
- for %%a in (" " "ÛÛ ÛÛ" "ÛÛÛ ÛÛ" "ÛÛÛ ÛÛ" "ÛÛÛÛ ÛÛ" "ÛÛ ÛÛ ÛÛ" "ÛÛ ÛÛÛÛ" "ÛÛ ÛÛÛ" "ÛÛ ÛÛÛ" "ÛÛ ÛÛ" " " " ") do set /a "n+=1" & set "_N[!n!]=%%~a"
- for %%a in (" " " ÛÛÛ " "ÛÛÛ ÛÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛÛ ÛÛÛ " " ÛÛÛ " " " " ") do set /a "o+=1" & set "_O[!o!]=%%~a"
- for %%a in (" " "ÛÛÛÛÛÛÛ " " ÛÛ ÛÛ" " ÛÛ ÛÛ" " ÛÛ ÛÛ" " ÛÛÛÛÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " "ÛÛÛÛ " " " " ") do set /a "p+=1" & set "_P[!p!]=%%~a"
- for %%a in (" " " ÛÛÛÛÛÛ " "ÛÛ ÛÛ" "ÛÛ ÛÛ" "ÛÛ ÛÛ" "ÛÛ ÛÛ" "ÛÛ ÛÛ" "ÛÛ ÛÛ" "ÛÛ ÛÛ ÛÛ" " ÛÛÛÛÛÛ " " ÛÛ " " ") do set /a "q+=1" & set "_Q[!q!]=%%~a"
- for %%a in (" " "ÛÛÛÛÛÛÛ " " ÛÛ ÛÛ" " ÛÛ ÛÛ" " ÛÛ ÛÛ" " ÛÛÛÛÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " "ÛÛÛÛ ÛÛÛ" " " " ") do set /a "r+=1" & set "_R[!r!]=%%~a"
- for %%a in (" " " ÛÛÛÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " " ÛÛ " " ÛÛÛ " " ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " " ÛÛÛÛÛ " " " " ") do set /a "s+=1" & set "_S[!s!]=%%~a"
- for %%a in (" " "ÛÛÛÛÛÛÛÛ" "Û ÛÛ Û" " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛÛÛ " " " " ") do set /a "t+=1" & set "_T[!t!]=%%~a"
- for %%a in (" " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛÛÛ " " " " ") do set /a "u+=1" & set "_U[!u!]=%%~a"
- for %%a in (" " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ " " " " ") do set /a "v+=1" & set "_V[!v!]=%%~a"
- for %%a in (" " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ Û ÛÛ " "ÛÛ Û ÛÛ " " ÛÛ ÛÛ " " " " ") do set /a "w+=1" & set "_W[!w!]=%%~a"
- for %%a in (" " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " " ÛÛÛÛÛ " " ÛÛÛ " " ÛÛÛÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " " " " ") do set /a "x+=1" & set "_X[!x!]=%%~a"
- for %%a in (" " "ÛÛ ÛÛ" "ÛÛ ÛÛ" "ÛÛ ÛÛ" " ÛÛ ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛÛÛ " " " " ") do set /a "y+=1" & set "_Y[!y!]=%%~a"
- for %%a in (" " "ÛÛÛÛÛÛÛ " " Û " " Û " " Û " " Û " " Û " " Û " "Û " "ÛÛÛÛÛÛÛ " " " " ") do set /a "z+=1" & set "_Z[!z!]=%%~a"
- for %%a in (" " " " " " " " " " " " " " " " " " " " " " " ") do set /a "sp+=1" & set "_ [!sp!]=%%~a"
- for %%a in (" " " ÛÛ ÛÛ " " ÛÛ ÛÛ " "ÛÛÛÛÛÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " "ÛÛÛÛÛÛÛ " " ÛÛ ÛÛ " " ÛÛ ÛÛ " " " " ") do set /a "ht+=1" & set "_#[!ht!]=%%~a"
- for %%a in (" " " ÛÛÛÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " " " ÛÛ " " ") do set /a "qm+=1" & set "_?[!qm!]=%%~a"
- for %%a in (" " " " " " " ÛÛ ÛÛ " "Û Û Û " "Û Û " " Û Û " " Û Û " " Û " " " " " " ") do set /a "heart+=1" & set "_`[!heart!]=%%~a"
- for %%a in (" " " ÛÛÛÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛ " "ÛÛ ÛÛÛÛ " "ÛÛ ÛÛÛÛ " "ÛÛ ÛÛÛÛ " "ÛÛ ÛÛÛÛ " "ÛÛ " " ÛÛÛÛÛ " " " " ") do set /a "at+=1" & set "_@[!at!]=%%~a"
- for %%a in (" " " ÛÛÛÛÛ " " ÛÛÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛÛÛ " " ÛÛÛÛÛ " " " " ") do set /a "rsb+=1" & set "_[[!rsb!]=%%~a"
- for %%a in (" " " ÛÛÛÛÛ " " ÛÛÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛ " " ÛÛÛÛ " " ÛÛÛÛÛ " " " " ") do set /a "lsb+=1" & set "_][!lsb!]=%%~a"
- for %%a in (" " " ÛÛÛÛÛ " "Û Û " "Û Û Û Û " "Û Û Û Û " "Û Û " "Û Û Û Û " "Û ÛÛÛ Û " "Û Û " " ÛÛÛÛÛ " " " " ") do set /a "hf+=1" & set "_~[!hf!]=%%~a"
- for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z sp ht qm heart at rsb lsb hf) do set "%%a="
- goto :eof
- :emptyVarEnviornment
- set "preserve= preserve path %~1 "
- for /f "delims==" %%v in ('set') do if "!preserve: %%v =!" equ "!preserve!" set "%%v="
- set "preserve="
- goto :eof
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
