[特效代码] 谁可以发个简单的逐字显示的批处理？

@echo off&setlocal ENABLEDELAYEDEXPANSION
color 1f
mode con cols=40 lines=15
:w
set "a=我树敌无数却从来帝烧掉它"
for /l %%i in (0 1 11) do set /p=!a:~%%i,1!<nul&ping -n 2 -w 1 127.1>nul
echo --------------------------------------
echo 任意键退出
pause>nul
复制代码

@echo off
setlocal enabledelayedexpansion
set "str=我树敌无数却从来帝烧掉它"
set n=0
:loop
set t=!str:~%n%,1!
if "!t!" neq "" (
    set /p =!t!<nul
    set /a n+=1
    ping -n 2 127.1 >nul
    goto :loop
)
复制代码

@echo off
color 1f
mode con cols=40 lines=15
:w
set "a=我 树 敌 无 数 却 从 来  帝  烧 掉 它"
for %%i in (%a%) do set /p=%%i<nul&ping -n 2 -w 1 127.1>nul
echo --------------------------------------
echo 任意键退出
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
color 1f
mode con cols=40 lines=15
set "a=我树敌无数却从来帝烧掉它"
:w
set/p=!a:~0,1!<nul&ping -n 2 127.0.0.1>nul
set a=!a:~1!
if "!a!" neq "" goto w 
pause>nul
复制代码

@echo off 2>nul 3>nul
rem str中的变量用非英文编写，全角标，半角标没有试。试验的时候最好在单独的文件夹中，如果出错，不明白的尽量“X”掉
setlocal enabledelayedexpansion
set "col=123456789abcdef"
set /a n2=-1,over=15
set "str=枫中残雪：无心，无思，无情，无乡，无缘。没有失去，对我来说也没有珍惜。希望从何来，算了，还是不要明白好了。"
:start
set /a n=%random%%%14+1,n2+=1
if %over% equ %n% goto :start
if "!str:~%n2%,1!" neq "" (
>"!str:~%n2%,1!" set /p "= "<nul
findstr /a:0!col:~%n%,1! .* "!str:~%n2%,1!*"
ping /n 2 127.1>nul
del !str:~%n2%,1!
set "over=%n%"
)&&goto :start
复制代码

:loop

set t=!str:~%n%,1!

if "!t!" neq "" (

    set /p =!t!<nul

    set /a n+=1

    ping -n 2 127.1 >nul

    goto :loop

)
复制代码

set "a=我 树 敌 无 数 却 从 来  帝  烧 掉 它"
set a=%a: =%
echo %a%
复制代码