标题: [已结]逐行读取记事本A，把已读取的行删除，并保存为B [打印本页]
作者: jajah 时间: 2008-11-12 10:52 标题: [已结]逐行读取记事本A，把已读取的行删除，并保存为B
求一个批处理脚本，需要实现下面的功能，请高手不吝赐教哦，谢谢大家。
在与批处理同一目录下放置A.txt，内容为分行的一些序列，数量约1万个。
如：
d45610ad
44cdfjad
4410.874
78910a4d
.......
现在想逐行读取其内容，把读取到的内容输出为变量%str%，同时，把已读取的行从A.txt中删除，并将已读取的行输出为B.txt。
在这个过程中，每运行一次脚本，A.txt就减少一行，B.txt就增加一行。
DOS命令我实在很菜，但我觉得使用DOS执行这样的功能应该比较现实。
再次谢谢大家！:P
[ Last edited by HAT on 2008-11-12 at 21:36 ]
作者: tireless 时间: 2008-11-12 13:00
@echo off
for /f "delims=" %%a in (A.txt) do (
set str=%%a
more +1 A.txt > A_tmp.txt
move /y A_tmp.txt A.txt
echo %%a >> B.txt
goto out
)
:out
echo 变量 str 的值为:
echo.
echo %str%
echo.
pause
for /f "delims=" %%a in (A.txt) do (
set str=%%a
more +1 A.txt > A_tmp.txt
move /y A_tmp.txt A.txt
echo %%a >> B.txt
goto out
)
:out
echo 变量 str 的值为:
echo.
echo %str%
echo.
pause
作者: jajah 时间: 2008-11-12 21:34
非常感谢tireless提供的脚本，测试成功了！
作者: jajah 时间: 2008-11-12 21:47
再问一下，如何使用random命令产生出N个不会重复的序列呢？
我产生10个随机序列，重复的机率很小，但如果产生上万个同格式的序列则会有1%左右的号是重复的。请问如何避免呢？
@echo off&Setlocal Enabledelayedexpansion
set "var=0123456789abcdef"
for /l %%i in (1 1 8) do (
set /a "n=!random!%%16"
call set "str=!str!%%var:~!n!,1%%"
if %%i equ 4 set "str=!str!-"
)