Board logo

标题: [文本处理] 大神们，怎么将A文档内容逐行加入到B目录的所有TXT中 [打印本页]
作者: 牛二和尚    时间: 2020-4-4 10:42     标题: 大神们，怎么将A文档内容逐行加入到B目录的所有TXT中

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

将上面的内容每两行加到B目录内的，1.TXT,2.TXT,3.TXT逐次加，加完为止，不重复就行，每个TXT加两行，谢谢，能BAT最好
作者: 牛二和尚    时间: 2020-4-4 12:04

回复 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
作者: wujunkai    时间: 2020-4-4 12:28

回复 2# 牛二和尚 
  1. @echo off & setlocal enabledelayedexpansion

  2. 

  3. :main

  4.     if not exist b md b

  5.     call:fopen A.txt text

  6.     set /A len=fopen_len-1

  7.     for /L %%i in (0,2,%len%) do call:out %%i

  8. pause

  9. goto:eof

  10. 

  11. :fopen

  12.     rem %~1 为读取文件名，%~2为储存的变量名

  13.     rem 采用数组的方式储存，不储存换行符

  14.     rem 若无%~2，使用%~n1作为储存的变量名

  15.     set fopen_file=%~1

  16.     if "%~2"=="" ( set "fopen_vale=%~n1" ) else ( set "fopen_vale=%~2" )

  17.     set fopen_len=0

  18.     for /F "tokens=1* delims=:" %%i in ('findstr /n .* %fopen_file%') do (

  19.         set %fopen_vale%[!fopen_len!]=%%j

  20.         set /A fopen_len+=1

  21.     )

  22. goto:eof

  23. 

  24. :out

  25.     set /A next=%~1+1

  26.     set /A name=next/2+1

  27.     echo=!text[%~1]! >b\%name%.txt

  28.     echo=!text[%next%]!>>b\%name%.txt

  29. goto:eof
复制代码
作者: 牛二和尚    时间: 2020-4-4 12:35

回复 3# wujunkai


    谢谢，A文档里的内容已经在B文档里生成了新的文件，如果不生成新的文件，把这些内容顺次加到B文档已有的文件里呢？
作者: wujunkai    时间: 2020-4-4 13:40

回复 4# 牛二和尚


    把27行的
  1. echo=!text[%~1]! >b\%name%.txt
复制代码
改为
  1. echo=!text[%~1]! >>b\%name%.txt
复制代码
作者: 牛二和尚    时间: 2020-4-4 14:09

本帖最后由 牛二和尚 于 2020-4-4 14:21 编辑

回复 4# 牛二和尚


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

回复 5# wujunkai

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

回复 6# 牛二和尚


    这样会出现一些问题，比如程序获取的文件顺序和你想要加入数据的顺序不一样。。。
    当然还是可以解决的，不过需要更完善的需求
作者: 牛二和尚    时间: 2020-4-4 14:35

回复 8# wujunkai


    随机都可以，只要不重复添加
作者: 牛二和尚    时间: 2020-4-4 14:37

顺序无所谓，只要给每个txt添加的内容不同就行
作者: 牛二和尚    时间: 2020-4-4 14:43

回复 8# wujunkai


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

回复 11# 牛二和尚 
  1. @echo off & setlocal enabledelayedexpansion

  2. 

  3. :main

  4.     if not exist b md b

  5.     call:fopen A.txt text

  6.     set /A len=fopen_len-1

  7.     dir b\*.txt /B >txt.tmp

  8.     call:fopen txt.tmp names

  9.     for /L %%i in (0,2,%len%) do call:out %%i

  10.     del txt.tmp

  11. pause

  12. goto:eof

  13. 

  14. :fopen

  15.     rem %~1 为读取文件名，%~2为储存的变量名

  16.     rem 采用数组的方式储存，不储存换行符

  17.     rem 若无%~2，使用%~n1作为储存的变量名

  18.     set fopen_file=%~1

  19.     if "%~2"=="" ( set "fopen_vale=%~n1" ) else ( set "fopen_vale=%~2" )

  20.     set fopen_len=0

  21.     for /F "tokens=1* delims=:" %%i in ('findstr /n .* %fopen_file%') do (

  22.         set %fopen_vale%[!fopen_len!]=%%j

  23.         set /A fopen_len+=1

  24.     )

  25. goto:eof

  26. 

  27. :out

  28.     set /A next=%~1+1

  29.     set /A num=%~1/2

  30.     set "name=!names[%num%]!"

  31.     if "%name%"=="" (

  32.         echo the text is too long

  33.         echo=!text[%~1]!,!text[%next%]!

  34.         goto:eof

  35.     )

  36.     echo=!text[%~1]!>>b\%name%

  37.     echo=!text[%next%]!>>b\%name%

  38. goto:eof
复制代码
固定添加到结尾。有一个小bug——如果b文件夹内的txt文档的数目不够将提示
  1. the text is too long
复制代码
作者: 牛二和尚    时间: 2020-4-4 15:38

回复 12# wujunkai


    万分感谢，费心了，今天评分超过限制，只有明天了
作者: wujunkai    时间: 2020-4-4 15:43

回复 13# 牛二和尚


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



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2