readtxt.bat

来自「高手lxmxn收集的批处理。包括了批处理教程和他写的几十个很经典的代码。」· Batch 代码 · 共 28 行

::Code by lxmxn @ bbs.cn-dos.net
::CMD逐行读取文本文件的内容,缺点是文件中不能含有CMD的特殊符号
::Modified 20:53 2007-1-12

::_______________________ReadTxt.BAT_______________________
@echo off&setlocal ENABLEDELAYEDEXPANSION
if "%~s1"=="" (echo 用法:将文件拖放到此批处理文件上释放即可&pause&exit/b 0)
FOR /F "DELIMS=" %%A IN ('type %~s1') DO (CALL;:__;"%%A")
Endlocal&PAUSE&goto :EOF

::显示字符子函数————————————-
:__
        SET A="%1"
	SET B=0
	if "%A%"=="" goto end
        :BEGIN
        IF NOT "!A:~%B%,1!"=="" (
                SET/P=!A:~%B%,1!<NUL
                PING 127.1 -N 1 >NUL
                SET/A B+=1
                GOTO BEGIN
        ) else (
        :end
        echo/
        )

::_______________________ReadTxt.BAT_______________________