Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @Echo Off
- Call :Color A "##" \n E "" C " 21 " E "!" \n B "##" \n
- Pause >Nul
- Exit /B
- :Color
- Subst `: "!Temp!" >Nul &`: &Cd \
- SetLocal DisableDelayedExpansion
- If Not Exist `.7 (
- Echo(|(Pause >Nul &Findstr "^" >`)
- Set /P "=." >>` <Nul
- For /F "delims=;" %%# In (
- '"Prompt $H;&For %%_ In (_) Do Rem"') Do (
- Set /P "=%%#%%#%%#" <Nul >`.3
- Set /P "=%%#%%#%%#%%#%%#" <Nul >`.5
- Set /P "=%%#%%#%%#%%#%%#%%#%%#" <Nul >`.7))
- :__Color
- Set "Text=%~2"
- If Not Defined Text (Set Text=^")
- SetLocal EnableDelayedExpansion
- Set /P "LF=" <` &Set "LF=!LF:~0,1!"
- For %%# in ("!LF!") Do For %%_ In (
- \ / :) Do Set "Text=!Text:%%_=%%~#%%_%%~#!"
- For /F delims^=^ eol^= %%# in ("!Text!") Do (
- If #==#! EndLocal
- If \==%%# (Findstr /A:%~1 . \` Nul
- Type `.3) Else If /==%%# (Findstr /A:%~1 . /.\` Nul
- Type `.5) Else (Echo %%#\..\`>`.dat
- Findstr /F:`.dat /A:%~1 .
- Type `.7))
- If "\n"=="%~3" (Shift
- Echo()
- Shift
- Shift
- If ""=="%~1" Goto :Eof
- Goto :__Color
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement