彩色输出输入的字符 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

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

特殊字符以颜色输出感觉好像不太可能.....用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

原理什么的都很简单就当玩玩吧~ ~

[ Last edited by Fair on 2009-8-23 at 09:25 ]

第1楼　Fair	发表于 2009-08-23 00:14
新手上路　发帖 9　积分 9
彩色输出输入的字符特殊符号也许处理不全出现问题的请回复说明一下好让我改进特殊字符可以输出但是没有颜色如果不是特殊字符就以颜色输出在电脑上测试过了应该没问题了吧也许是漏了几个特殊字符出现问题的请提供下特殊字符以颜色输出感觉好像不太可能.....用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 原理什么的都很简单就当玩玩吧~ ~ [ Last edited by Fair on 2009-8-23 at 09:25* ]

第2楼　Fair	发表于 2009-08-23 01:48
新手上路　发帖 9　积分 9
有谁能帮我一下如何在以上基础上可以实现彩色输出特殊字符我试过那个利用nt文件的它似乎连特殊字符都不支持无论是否加了^ bathome的斑竹发了一个debug的但实在对debug不懂......................... 这里有没有高人能帮我一下