[文本处理] [已解决]批处理如何实现文本逐字原样输出？

@echo off & setlocal EnableDelayedExpansion
for /f "delims=," %%i in (b.txt) do (
        set /a "num+=1"
        set "wind!num!=%%i"
        rem 把文本的值赋给wind!num!
        )
for /l %%j in (1,1,!num!) do (
        rem 把每一行的值都赋给a
        set "a=!wind%%j!" && for /l %%k in (0,1,15) do (
        rem 开始逐字显示
    set "b=!a:~%%k,1!"
        set/p=!a:~%%k,1!<nul
        if "!b!" equ "#" echo.
        rem 换行
        ping -n 1 127.1>nul
        )
)
echo/
pause>nul
复制代码

@echo off & setlocal EnableDelayedExpansion
for /f "delims=," %%i in (b.txt) do (
    set /a "num+=1"
    set "wind!num!=%%i"
    rem 把文本的值赋给wind!num!
)
for /l %%j in (1,1,!num!) do (
    rem 把每一行的值都赋给a
    set "a=!wind%%j!" 
    for /l %%k in (0,1,15) do (
        rem 开始逐字显示
    set "b=!a:~%%k,1!"
        if "!b!" equ "#" (echo/) else set/p=!b!<nul
        rem 换行
    ping -n 1 -w 1 127.1>nul
    )
)
pause>nul
复制代码

@echo off&color 1f&mode con lines=5
if defined flag goto next
set "flag=a"
start /b %~nx0
title 按任意键退出
set "str=只是为何当初你是不听所有纷纷扰扰满天流言漫天风雨你会选择了我？只是为何如今我们不顾一切追求真爱坚持到底苦尽甘来你会放弃了我？再说你也不会懂，心再痛你能做什么，只有把自己深锁，错了又错。。。"
for /l %%i in (1,1,40) do call,set "kong=%%kong%%　"
:again
set "a=%kong%%str%"
:lp
cls&echo.&echo.
set /p=%a:~,40%<nul&set "a=%a:~1%"
for /l %%i in (1,1,1000) do echo>nul
if defined a goto lp
goto again
:next
pause>nul
taskkill /f /fi "windowtitle eq 按任意键退出*" /im "cmd.exe">nul 2>nul
exit
复制代码