求编一个批处理一行一行读取记事本文件 - 中国DOS联盟论坛

在此论垣有一个读一行一行读取记事本文件的批处理，如下面，不过要拖记事本文件到给批处理才行，这样就不能自动完全执行，有没有办法自动读取指定路径记事本文件。请高手上。

::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_______________________

[ Last edited by HAT on 2008-11-12 at 10:24 ]

第1楼　JIANHUILAI	发表于 2008-01-13 19:17
初级用户　发帖 51　积分 116
[已结]求编一个批处理一行一行读取记事本文件在此论垣有一个读一行一行读取记事本文件的批处理，如下面，不过要拖记事本文件到给批处理才行，这样就不能自动完全执行，有没有办法自动读取指定路径记事本文件。请高手上。 ::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_______________________ [ Last edited by HAT on 2008-11-12 at 10:24 ]

第2楼　zh159	发表于 2008-01-13 20:23
金牌会员　发帖 1,467　积分 3,687
删除 if "%~s1"=="" (echo 用法:将文件拖放到此批处理文件上释放即可&pause&exit/b 0) 修改 FOR /F "DELIMS=" %%A IN ('type "文件路径"') DO (CALL;:__;"%%A")

第3楼　lxmxn	发表于 2008-01-13 20:25
版主　发帖 4,938　积分 11,386
http://www.cn-dos.net/forum/viewthread.php?tid=26633&page=10&fpage=1#pid252360

第4楼　JIANHUILAI	发表于 2008-01-13 20:59
初级用户　发帖 51　积分 116
谢谢2,3楼,问题解决

第5楼　jajah	发表于 2008-11-12 10:12
新手上路　发帖 6　积分 10
哈哈，我也学习了！谢谢大家