[文本处理] 【已解决】批处理怎样通过比对目录中的文件更新文本？

pan528

有一a文本，如下：

一、中央立法
1_1_关于中华人民共和国国都、纪年、国歌、国旗的决议
1_10_全国人民代表大会常务委员会批准国务院关于华侨捐资兴办学校办法的决议
1_100_全国人民代表大会常务委员会关于海南省出席第七届全国人民代表大会代表团组成的决定
1_101_中华人民共和国进出口商品检验法
1_102_中华人民共和国传染病防治法
1_103_中华人民共和国行政诉讼法
1_102742_全国人民代表大会常务委员会关于中国银行业监督管理委员会履行原由中国人民银行履行的监督管理职责的决定
1_1029721234_中华人民共和国澳门特别行政区第一届**推选委员会委员守则
2_12167_国务院关于发布《中华人民共和国一九八七年国库券条例》的通知
二、行政法规
2_12180_国务院关于违反财政法规处罚的暂行规定
2_12226_国家土地开发建设基金回收管理试行办法
2_12310_中共中央办公厅、国务院办公厅关于在国内公务活动中严禁用**宴请和有关工作餐的规定
2_122765_全民所有制工业企业承包经营责任制暂行条例（修订）
2_1253070_中华人民共和国进出口关税条例
三、**解释
3_1923_最高人民法院关于房屋典当回赎中几个有关问题的批复
3_1924_最高人民法院关于典当房屋回赎期限计算问题的批复
3_1925_最高人民法院关于韩荷敏等人与宁桂兰等人房屋继承案的批复
3_1926_最高人民法院关于产权人双方在“**”期间互换房屋各自行使权利多年后能否翻悔的批复
3_192250_最高人民**关于印发《关于进一步加强检察机关办案安全防范工作的意见》的通知
四、部门规章
4_11563_提存公证规则
4_11571_**行政机关行政赔偿、刑事赔偿办法
4_11595_律师资格考核授予办法
4_11596_合伙律师事务所管理办法
4_115887_火炬计划标志使用管理办法
4_11590600_大型运动会审计工作暂行规定
复制代码

而四个目录中的文件已发生变化，如下：

law01\
1_1_关于中华人民共和国国都、纪年、国歌、国旗的决议
1_10_全国人民代表大会常务委员会批准国务院关于华侨捐资兴办学校办法的决议
1_100_全国人民代表大会常务委员会关于海南省出席第七届全国人民代表大会代表团组成的决定
1_101_中华人民共和国进出口商品检验法
1_102_中华人民共和国传染病防治法（2012）
1_103_中华人民共和国行政诉讼法（1989）
1_102742_全国人民代表大会常务委员会关于中国银行业监督管理委员会履行原由中国人民银行履行的监督管理职责的决定
1_1029721234_中华人民共和国澳门特别行政区第一届**推选委员会委员守则
2_12167_国务院关于发布《中华人民共和国一九八七年国库券条例》的通知
law02\
2_12180_国务院关于违反财政法规处罚的暂行规定（2010）
2_12226_国家土地开发建设基金回收管理试行办法（2012）
2_12310_中共中央办公厅、国务院办公厅关于在国内公务活动中严禁用**宴请和有关工作餐的规定
2_122765_全民所有制工业企业承包经营责任制暂行条例（修订）
2_1253070_中华人民共和国进出口关税条例（2002）
law03\
3_1923_最高人民法院关于房屋典当回赎中几个有关问题的批复（1980）
3_1924_最高人民法院关于典当房屋回赎期限计算问题的批复（1982）
3_1925_最高人民法院关于韩荷敏等人与宁桂兰等人房屋继承案的批复【失效】
3_1926_最高人民法院关于产权人双方在“**”期间互换房屋各自行使权利多年后能否翻悔的批复【废止】
3_192250_最高人民**关于印发《关于进一步加强检察机关办案安全防范工作的意见》的通知
law04\
4_11563_提存公证规则（2012）
4_11571_**行政机关行政赔偿、刑事赔偿办法【失效】
4_11595_律师资格考核授予办法（2013）
4_11596_合伙律师事务所管理办法（2010）
4_115887_火炬计划标志使用管理办法
4_11590600_大型运动会审计工作暂行规定
复制代码

怎样根据前两位序号来更新文本？请高手指点。

xxpinqz

试试看，通用性不强，只能说解题。

@echo off
(for /f "tokens=1,2* delims=_" %%a in (a.txt) do (
    set strb=
    set/p strb=
    setlocal enabledelayedexpansion
    for /f "tokens=1,2* delims=_" %%i in ("!strb!") do (
        endlocal
        if "%%a_%%b"=="%%i_%%j" (
        	echo,%%a_%%b_%%k
        ) else (
            echo,%%a
        )
    )
))<b.txt>更新.txt
复制代码

pan528

回复 2# xxpinqz

怨我没有讲清楚。
第二部分是四个目录下的文件发生了变化后的情况，不是一个文本。
而且四个目录内不止这些文件，还有其他文件。
但文件的左边的双位代码或文件的名称是相同的，即一半的信息是一致的。

这种情况，应该怎样改代码？

terse

回复 3# pan528
你是想把第二部分得到的结果 和第一部分对比 如结果第一部分不包含的就加进 或者前面序列一致而后面内容不同的 就修改第一部分 使之和第二部分一致 是这样吗
但还有一处不明 目录怎么处理的
还有 加进去 怎么加

pan528

回复  pan528
你是想把第二部分得到的结果 和第一部分对比 如结果第一部分不包含的就加进 或者前面序列一 ...
terse 发表于 2013-7-16 16:03

第一行的理解是符合我的意思的。
但第二部分是目录中与第一部分相对应的文件，不是文本，因此，按我的理解，是要用第一部分的文本与目录（第二部分）中的文本比对，如果有差异就修正。
想不到好办法筛选，请教各位高手了，先谢了！

CrLf

如果 b.txt 的索引号 a.txt 都有的话，可以试试这样：

@echo off
call :setvar a.txt
call :setvar b.txt

setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=_" %%a in (a.txt) do echo;!ar_%%a_%%b!
endlocal
pause&exit

:setvar
for /f "delims=" %%a in (%~s1) do (
   for /f "tokens=1,2 delims=_" %%b in ("%%a") do set ar_%%b_%%c=%%a
)
复制代码

terse

回复 6# CrLf
按楼主的意思 估计b.txt里序列 a.txt会没有 也有改变 没有的补进去
我在想问题是B.txt多出的 添加到A.txt的那段 因为像一、中央立法 和  law01\ 这样的目录(我这里假设是目录)怎么处理
楼主表述不详细 写这样的代码 其实是体力活 尽可能的表述清楚 才使大家都轻松

pan528

回复  CrLf
按楼主的意思 估计b.txt里序列 a.txt会没有 也有改变 没有的补进去
我在想问题是B.txt多出的 ...
terse 发表于 2013-7-16 22:42

“一、中央立法”是a.txt文本中的目录子栏目
“law01\ ”是文件夹
b.txt 是更新了的文件夹与a.txt文本对应部分的结果。

按我的思路：
1、提取a.txt文本的序号部分，分别与四个文件夹（law01、law02、law03、law04）的文件序号比对，只要序号相同，就用文件夹中文本的文件名替换a.txt文本的相应部分；
2、提取a.txt文本的序号外的文件名部分，分别与四个文件夹（law01、law02、law03、law04）的序号外的文件名比对，只要序号外的文件名相同，就用文件夹中文本的文件名替换a.txt文本的相应部分；
通过上述二步达到更新a.txt文本的目的。
但试了一下，水平太低，代码不能完成，请高手指点。

terse

回复 8# pan528
是的我也知道相信其他人也知道比对后不同的写入a文件
因为2_12167。。。这个有是在一、中央立法 和 二、行政法规 子栏目之间
目录子栏目(一、中央立法....) 与 文件夹(law01...) 是否对应 都是一定数目吗
如若多了一个 2_12168_................. 这个在A文件里是没有的 是要看其所在的文件夹决定吗
还有A文件一般有多大 或大致有多少条目 文件小和大或许处理方式可以不一样

CrLf

想简化处理可以先排除重复的多余行，再排序（排序代码你已经有了）：

@echo off
gawk -F"_" "!a[$1,$2]++" law01\b.txt law02\b.txt law03\b.txt law04\b.txt a.txt
::排序代码
pause
复制代码

只要在除重时把 a.txt 放在最后，就会只保留 b.txt 的内容

xxpinqz

现在看出点门道了，例如：
1_1029721234_中华人民共和国澳门特别行政区第一届**推选委员会委员守则
这个是law01\目录下的一个文件的文件名？很是好奇带*号的文件是如何建的？

按8楼说法，把a.txt和law0?4个目录下的文件名同时分隔成两部分，只要有一部分不同，则用文件名替换a.txt对应内容？

terse

楼主是否还有种情况 就是 a文件里有b文件里没有的
序列是否只考虑一种

pan528

回复 11# xxpinqz

原文不是*号，是网站认为是敏感字，用*替换的。

pan528

回复 12# terse

这种情况正是要更新的，a.txt文本有的文件夹中没有，说明文件夹的文件发生了变化，因此需要更新。

terse

回复 14# pan528
发现代码对于目录问题不完善

@echo off&setlocal enabledelayedexpansion
%1(for /f "tokens=1* delims=_" %%i in ('%~s0 : ^|sort') do echo;%%j)>a.txt&exit
::>b.txt dir /b
(for /f "tokens=1-2 delims=_" %%i in ('findstr .*_.*_.* b.txt') do echo %%i_%%j_)>"%temp%\$"
Findstr /ivbg:"%temp%\$" a.txt |findstr _.*_ >>b.txt
del "%temp%\$"
for /l %%a in (1 1 99) do set "k=!k! "
for /f "tokens=1-2* delims=_" %%i in (b.txt) do  (
    if "%%j" =="" (
       if defined str1 (
          echo !str1:~-99!_%%i
       ) else echo !k!_%%i
    ) else (
        set "str1=!k!%%i"
        set "str2=!k!%%j"
        echo !str1:~-99!!str2:~-99!_%%i_%%j_%%k
    )
)
复制代码