@echo off
for /f "%_skip% delims=" %%i in ('findstr /n ".*" 1.txt') do (
    set "var=%%i"&set/a line+=1
    setlocal enabledelayedexpansion
    title 第!line!段（右击暂停，CTRL+C停止）
    set "var=!var:*:=!"
:loop
    set/a n+=1&set "str1=!str!"
    call,set "str=%%var:~0,!n!%%"
    if "!str!" equ "!str1!" goto next
    set/p=!str!<nul
    if !n! equ 25 set/a n=0&set "var=!var:~25!"&echo\&echo\
    if not defined var goto next
    for /l %%a in (1,1,50) do set/p=<nul
    for /l %%b in (1,1,100) do ver>nul
    goto loop
:next
    echo\&echo\&endlocal
)
pause
复制代码

 
@echo off
title 文本阅读器（右击暂停，CTRL+C停止）
color 1f&mode con cols=50 lines=30
echo.&echo.&echo.&echo.
set/p file= 请把要阅读的文本拖入窗口:
echo.&set/p m= 开始阅读位置*段(直接回车默认从头开始):
if defined m (set/a m-=1&call,set "_skip=skip=%%m%%")
echo.&set/p speed= 速度(直接回车默认速度为100；数值越小速度越快):
if not defined speed set speed=100
cls&set "line=%m%"
for /f "%_skip% delims=" %%i in ('findstr /n ".*" %file%') do (
    set "var=%%i"&set/a line+=1
    setlocal enabledelayedexpansion
    title 第!line!段（右击暂停，CTRL+C停止）
    set "var=!var:*:=!"
    if defined var call :loop
    echo\&echo\&endlocal
)
echo\&echo               本文完！！！
ping /n 3 127.1 >nul
exit
:loop
set/a n+=1&set "str1=!str!"
call,set "str=%%var:~0,!n!%%"
if "!str!" equ "!str1!" goto :eof
set/p=!str!<nul
if !n! equ 25 set/a n=0&set "var=!var:~25!"&echo\&echo\
if not defined var goto :eof
for /l %%a in (1,1,50) do set/p=<nul
for /l %%b in (1,1,%speed%) do ver>nul
goto loop
复制代码

@echo off&color 9f&mode con lines=15
title txt/bat文件阅读器
cls
echo.&echo.&echo.&echo.&echo.
echo                            txt\bat文件阅读器
ping /n 2 127.1 >nul
cls
color 90
echo.&echo.&echo.&echo.&echo.
echo                 THE CODE IS FOR NAMEJM AND MADE BY ZW19750516
ping /n 4 127.1 >nul&color 9f
:begin
cls
echo.&echo.&echo.&echo.&echo.
set a=1
set /p a=请将要阅读的txt或bat文件拖放到这里：
cls
echo.&echo.&echo.&echo.&echo.
if "%a%"=="1" echo      　　　　　　没有发现要阅读的文件，请返回正确操作。&ping /n 3 127.1 >nul&goto begin
cls
for /f "delims=" %%i in ('findstr /n .* "%a%"') do (
    set "str=%%i"
    setlocal enabledelayedexpansion
    set str=!str:*:=!
    call :pickup
    endlocal
)
cls
echo.&echo.&echo.&echo.&echo.
echo                 　　　　　阅读完毕，请按任意键退出。                              
pause >nul
goto :eof
:pickup
ping -n 1 127.1>nul
if defined str (
    set /p= !str:~0,1!<nul
    set str=!str:~1!
    goto pickup
)
echo.
复制代码