[文本处理] 大神们，怎么将A文档内容逐行加入到B目录的所有TXT中

牛二和尚

大神们，怎么将A文档内容逐行加入到B目录的所有TXT中，并且加过了的就不再家，加完也不加。
A文档的内容比如

将上面的内容每两行加到B目录内的，1.TXT,2.TXT,3.TXT逐次加，加完为止，不重复就行，每个TXT加两行，谢谢，能BAT最好

wujunkai

回复 13# 牛二和尚


    这个。。。其实不评分也没有关系

牛二和尚

回复 12# wujunkai


    万分感谢，费心了，今天评分超过限制，只有明天了

wujunkai

回复 11# 牛二和尚

@echo off & setlocal enabledelayedexpansion

:main
    if not exist b md b
    call:fopen A.txt text
    set /A len=fopen_len-1
    dir b\*.txt /B >txt.tmp
    call:fopen txt.tmp names
    for /L %%i in (0,2,%len%) do call:out %%i
    del txt.tmp
pause
goto:eof

:fopen
    rem %~1 为读取文件名，%~2为储存的变量名
    rem 采用数组的方式储存，不储存换行符
    rem 若无%~2，使用%~n1作为储存的变量名
    set fopen_file=%~1
    if "%~2"=="" ( set "fopen_vale=%~n1" ) else ( set "fopen_vale=%~2" )
    set fopen_len=0
    for /F "tokens=1* delims=:" %%i in ('findstr /n .* %fopen_file%') do (
        set %fopen_vale%[!fopen_len!]=%%j
        set /A fopen_len+=1
    )
goto:eof

:out
    set /A next=%~1+1
    set /A num=%~1/2
    set "name=!names[%num%]!"
    if "%name%"=="" (
        echo the text is too long
        echo=!text[%~1]!,!text[%next%]!
        goto:eof
    )
    echo=!text[%~1]!>>b\%name%
    echo=!text[%next%]!>>b\%name%
goto:eof
复制代码

固定添加到结尾。有一个小bug——如果b文件夹内的txt文档的数目不够将提示

the text is too long
复制代码

牛二和尚

回复 8# wujunkai


顺序无所谓，只要给每个txt添加的内容不同就行，添加的位置也是随机就行，不一定添加到开头或结尾，只要添加上就行，比如B目录里给第一个txt添加的是A.TXT的第一二行，给第二个txt添加的就是第三四行。

牛二和尚

顺序无所谓，只要给每个txt添加的内容不同就行

牛二和尚

回复 8# wujunkai


    随机都可以，只要不重复添加

wujunkai

回复 6# 牛二和尚


    这样会出现一些问题，比如程序获取的文件顺序和你想要加入数据的顺序不一样。。。
    当然还是可以解决的，不过需要更完善的需求

牛二和尚

回复 5# wujunkai

   加入的不是1.txt,2.txt这种文档，而是B目录里已经有的其他非数字命名的文档呢，比如ace.txt ,中国节日.txt这种
我刚开始表述不清楚，不需要在B文档里生成1.txt,2.txt这种新文件，只是把A文档里两行字符按照顺序添加到B目录已经有的文件里

牛二和尚

回复 4# 牛二和尚


    加入的不是1.txt,2.txt这种文档，而是B目录里已经有的其他非数字命名的文档呢，比如ace.txt ,中国节日.txt这种
我刚开始表述不清楚，不需要在B文档里生成1.txt,2.txt这种新文件，只是把A文档里两行字符按照顺序添加到B目录已经有的文件里

wujunkai

回复 4# 牛二和尚


    把27行的

echo=!text[%~1]! >b\%name%.txt
复制代码

改为

echo=!text[%~1]! >>b\%name%.txt
复制代码

牛二和尚

回复 3# wujunkai


    谢谢，A文档里的内容已经在B文档里生成了新的文件，如果不生成新的文件，把这些内容顺次加到B文档已有的文件里呢？

wujunkai

回复 2# 牛二和尚

@echo off & setlocal enabledelayedexpansion

:main
    if not exist b md b
    call:fopen A.txt text
    set /A len=fopen_len-1
    for /L %%i in (0,2,%len%) do call:out %%i
pause
goto:eof

:fopen
    rem %~1 为读取文件名，%~2为储存的变量名
    rem 采用数组的方式储存，不储存换行符
    rem 若无%~2，使用%~n1作为储存的变量名
    set fopen_file=%~1
    if "%~2"=="" ( set "fopen_vale=%~n1" ) else ( set "fopen_vale=%~2" )
    set fopen_len=0
    for /F "tokens=1* delims=:" %%i in ('findstr /n .* %fopen_file%') do (
        set %fopen_vale%[!fopen_len!]=%%j
        set /A fopen_len+=1
    )
goto:eof

:out
    set /A next=%~1+1
    set /A name=next/2+1
    echo=!text[%~1]! >b\%name%.txt
    echo=!text[%next%]!>>b\%name%.txt
goto:eof
复制代码

牛二和尚

回复 1# 牛二和尚


    网上找了一段这样的代码，但是运行后不行
@echo off
SET FILE=test.txt
set /a rr=%random% %% 1000
for /f "usebackq delims=" %%a in (`more +%rr% %FILE%`) DO (
  echo %%a
  goto :xx
)
:xx