DOS逐字显示
@echo off
4 ~3 k" G1 e( L$ Ocolor 9F
" G' a4 w% M0 @: _title 秋枫 QQ 85929896 E$ N! G. d* H( w
:: 逐行逐字阅读文本，并且原样显示文本内容1 d( P1 m( u$ o
:: ① 为了显示文本的所有内容，使用了for+findstr的句式
( K/ _2 A5 A- s& B/ G6 V:: ② 为了能原样显示文本，使用变量延迟并在合适的位置终止延迟
: q2 p2 }& }* O3 a:: ③ 为了能正确显示引号和等号，在语句 set /p= !str:~0,1!<nul 中，等号后空一格，并使用退格键& A" V3 \0 p! l) i& K9 K5 M5 Y
for /f "delims=" %%i in ('findstr /n .* test.txt') do (
0 N+ W" d# I2 {2 M. V; u set "str=%%i"
) y" O2 O4 V4 _ setlocal enabledelayedexpansion
$ |) V; i& I3 e. O$ s/ D set str=!str:*:=!
6 P% z9 L7 K; Z call :pickup
: r) h! h) E7 Q' M# {: m- U endlocal
4 T2 V2 a% Y* q)
; d& B1 Y Z) j, w, w6 ]pause+ @6 Z; F; @# E0 C( B1 W$ X
goto :eof
: |6 }0 Q# J) y7 k:pickup( |- O% g& I! j8 v
ping -n 1 127.1>nul) R/ L. n% M) P6 H7 U
if defined str (/ `6 H) X q Q, X/ z$ R
set /p= !str:~0,1!<nul
: \1 _) G, o+ I- o6 y! [8 C set str=!str:~1!9 c$ p7 d k; d7 {
goto pickup
" J8 H, ~5 b& D' N5 O0 n)
+ i1 {, o+ ?5 L2 S* Techo.
8 V" V$ S( \8 X! f( y+ ^goto :eof, W) \" s3 w! }3 N* x: h% ?# a
- A# k9 J6 R: m O @
" D1 @4 O; z$ V9 y9 n+ B以上代码存为：DOS逐字显示.bat
. P$ \. e# l7 d5 ?) D* V1 W随便找个文本命名为：test.txt
( {7 _0 b8 [% a- y9 c$ U. _
" y( a5 j7 ?6 T! Q6 Z" p运行脚本，看看效果如何！
