中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 彩色输出输入的字符

Fair
新手上路

积分 9
发帖 9
注册 2009-8-20
状态离线

『楼主』: 彩色输出输入的字符

特殊符号也许处理不全出现问题的请回复说明一下好让我改进
特殊字符可以输出但是没有颜色如果不是特殊字符就以颜色输出在电脑上测试过了应该没问题了吧也许是漏了几个特殊字符出现问题的请提供下

特殊字符以颜色输出感觉好像不太可能.....用findstr必须建立文件但文件名绝不可能是特殊字符所以只好把特殊字符按原来的输出了还有t这个字母(**t)这个也一定要按原来的输出

::code by Fair_Jm@http://hi.baidu.com/fair_Jm

@echo off&setlocal EnableDelayedExpansion

title 彩色逐字输出您输入的字符 made by Fair_Jm

color F8

set q=0

set /p z=输入一句话:

:begin

set /a x=%random%%%9+1

set "o=!z:~0,1!"

set o=!o:^<= !

set o=!o:^>= !

set o=!o:^.= !

set o=!o:^|= !

set o=!o:^&= !

set o=!o:^:= !

set o=!o:^"= !

set o=!o:^\= !

set o=!o:^/= !

set o=!o:t= !

if "!o!"==" " set /p= !z:~0,1!<nul&goto :next

set /p= <nul>"!z:~0,1!" 2>nul&findstr /a:F!x! .* *!z:~0,1! 2>nul&del "!z:~0,1!" 2>nul

:next

set z=!z:~1!

ping /n 1 127.1 >nul

set q=0

if defined z goto :begin

pause>nul

exit

这个是输入文件的：

::code by Fair_Jm@http://hi.baidu.com/fair_Jm

@echo off&setlocal EnableDelayedExpansion

title 彩色逐字输出您文件内的字符 made by Fair_Jm

color F8

:new

cls

set op=jm

set /p op=请将文本直接拖入：

cls

if "%op%"=="jm" echo 无文本&ping /n 2 127.1 >nul&goto new

for /f "delims=" %%i in ('findstr /n .* "%op%"') do (

    set "z=%%i"

    setlocal enabledelayedexpansion

    set z=!z:*:=!

    call :begin

    endlocal

    echo.

)

echo.&echo.

echo 显示完毕 按回车键重新开始

pause>nul

goto new

:begin

if not defined z (goto :eof)

set /a x=%random%%%9+1

set "o=!z:~0,1!"

set o=!o:^<= !

set o=!o:^>= !

set o=!o:^.= !

set o=!o:^|= !

set o=!o:^&= !

set o=!o:^:= !

set o=!o:^"= !

set o=!o:^\= !

set o=!o:^/= !

set o=!o:t= !

if "!o!"==" " set /p= !z:~0,1!<nul&goto :next

set /p= <nul>"!z:~0,1!" 2>nul&findstr /a:F!x! .* *!z:~0,1! 2>nul&del "!z:~0,1!" 2>nul

:next

set z=!z:~1!

ping /n 1 127.1 >nul

goto :begin