[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

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

回复 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

TOP

回复 2# 牛二和尚
  1. @echo off & setlocal enabledelayedexpansion
  2. :main
  3.     if not exist b md b
  4.     call:fopen A.txt text
  5.     set /A len=fopen_len-1
  6.     for /L %%i in (0,2,%len%) do call:out %%i
  7. pause
  8. goto:eof
  9. :fopen
  10.     rem %~1 为读取文件名,%~2为储存的变量名
  11.     rem 采用数组的方式储存,不储存换行符
  12.     rem 若无%~2,使用%~n1作为储存的变量名
  13.     set fopen_file=%~1
  14.     if "%~2"=="" ( set "fopen_vale=%~n1" ) else ( set "fopen_vale=%~2" )
  15.     set fopen_len=0
  16.     for /F "tokens=1* delims=:" %%i in ('findstr /n .* %fopen_file%') do (
  17.         set %fopen_vale%[!fopen_len!]=%%j
  18.         set /A fopen_len+=1
  19.     )
  20. goto:eof
  21. :out
  22.     set /A next=%~1+1
  23.     set /A name=next/2+1
  24.     echo=!text[%~1]! >b\%name%.txt
  25.     echo=!text[%next%]!>>b\%name%.txt
  26. goto:eof
复制代码
1

评分人数

TOP

回复 3# wujunkai


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

TOP

回复 4# 牛二和尚


    把27行的
  1. echo=!text[%~1]! >b\%name%.txt
复制代码
改为
  1. echo=!text[%~1]! >>b\%name%.txt
复制代码
1

评分人数

TOP

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

回复 4# 牛二和尚


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

TOP

回复 5# wujunkai

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

TOP

回复 6# 牛二和尚


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

评分人数

TOP

回复 8# wujunkai


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

TOP

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

TOP

回复 8# wujunkai


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

TOP

回复 11# 牛二和尚
  1. @echo off & setlocal enabledelayedexpansion
  2. :main
  3.     if not exist b md b
  4.     call:fopen A.txt text
  5.     set /A len=fopen_len-1
  6.     dir b\*.txt /B >txt.tmp
  7.     call:fopen txt.tmp names
  8.     for /L %%i in (0,2,%len%) do call:out %%i
  9.     del txt.tmp
  10. pause
  11. goto:eof
  12. :fopen
  13.     rem %~1 为读取文件名,%~2为储存的变量名
  14.     rem 采用数组的方式储存,不储存换行符
  15.     rem 若无%~2,使用%~n1作为储存的变量名
  16.     set fopen_file=%~1
  17.     if "%~2"=="" ( set "fopen_vale=%~n1" ) else ( set "fopen_vale=%~2" )
  18.     set fopen_len=0
  19.     for /F "tokens=1* delims=:" %%i in ('findstr /n .* %fopen_file%') do (
  20.         set %fopen_vale%[!fopen_len!]=%%j
  21.         set /A fopen_len+=1
  22.     )
  23. goto:eof
  24. :out
  25.     set /A next=%~1+1
  26.     set /A num=%~1/2
  27.     set "name=!names[%num%]!"
  28.     if "%name%"=="" (
  29.         echo the text is too long
  30.         echo=!text[%~1]!,!text[%next%]!
  31.         goto:eof
  32.     )
  33.     echo=!text[%~1]!>>b\%name%
  34.     echo=!text[%next%]!>>b\%name%
  35. goto:eof
复制代码
固定添加到结尾。有一个小bug——如果b文件夹内的txt文档的数目不够将提示
  1. the text is too long
复制代码

TOP

回复 12# wujunkai


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

TOP

回复 13# 牛二和尚


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

评分人数

    • 牛二和尚: 感谢给帖子标题标注[已解决]字样技术 + 1

TOP

返回列表