批处理读取文本内容并逐字显示

@echo off&setlocal enabledelayedexpansion&cls
set "str= 希 望 论 坛 越 办 越 好"
for %%i in (2,4,6,8,10,12,14,16) do (
ping/n 1 127.1>nul
set/p =!str:~0,%%i!<nul
)
pause
复制代码

@echo off &setlocal enabledelayedexpansion
for %%a in ( 希 望 论 坛 越 办 越 好 ) do (
 set "ko= !ko!"
 echo !ko!%%a
 ping 127.1 >nul
 cls
)
pause
复制代码

@echo off &setlocal enabledelayedexpansion
for %%a in ( 希 望 论 坛 越 办 越 好 ) do (
 set a=%%a
 set b=!b! !a!
 echo !b!
 ping 127.1 -n 2 >nul
 cls
)
pause
复制代码

test.txt 内容为：希 望 论 坛 越 办 越 好
复制代码

@echo off
    setlocal enabledelayedexpansion
    for %%i in (test.txt) do (
    set/p a=<%%i
    for /l %%j in (0 1 14) do (set/p=!!a:~%%j,1!! <nul&ping /n 1 127.1>nul)
    )
    pause
复制代码

@echo off&color 0a
setlocal enabledelayedexpansion
echo 希 望 论 坛 越 办 越 好>%temp%\text.txt     :偷懒直接这样生成txt文本
for /f "delims=" %%i in ('type %temp%\text.txt') do (
	set str=%%i
	for %%i in (!str!) do (
		set /p=%%i<nul    ::不换行地输出
		call :delay 300     ::延时300毫秒
	)		
)
::后期处理
if exist %temp%\delay.vbs del %temp%\delay.vbs
goto exit

:delay
echo wscript.sleep(%1)>%temp%\delay.vbs  ::生成延时的VBS脚本
goto :eof               ::相当于C语言等一些高级语言的return语句

:exit
echo.
pause&exit
复制代码

@echo off
setlocal enabledelayedexpansion
echo 请把文件和这批处理同一目录下
set /p a=请输入文件名：
for /f %%i in (%a%.txt) do (
    set e=%%i
    for /l %%b in (0,1,10000) do (
        if "!e:~%%b,1!" neq "" (
           set /p c=!e:~%%b,1!<nul
           for /l %%d in (0,1,500) do (
               echo %%d>nul
            )
         )
     )
)
pause>nul
复制代码