批处理之家 - Powered by Discuz! Board

标题: [文本处理] 各位老师，请教批处理文本替换的问题 [打印本页]

作者: gcbgczhang 时间: 2023-9-5 11:52 标题: 各位老师，请教批处理文本替换的问题

原因：由于源数据没处理好，18位的信用码，在电子表格中显示15位，最后三个为000，好在大库bb1.txt中有这完整的码，现在想把带000的换成正确的。

待处理文件aa1.txt

32452346727MA6854h    刘备    领导
bgjyt84jyytur6t000    张民    平民
6587469870654e5330    又鸟    学生
65856987lggu595000    马户    老师

bb1.txt（这个是大库，如果找到就换正确的输出，找不到按原样输出）
bgjyt84jyytur6t789
65856987lggu595809
32452346727MA6854h
...

按aa1.txt的顺序输出cc1.txt
32452346727MA6854h    刘备    领导
bgjyt84jyytur6t789    张民    平民
6587469870654e5330    又鸟    学生
65856987lggu595809    马户    老师

作者: Batcher 时间: 2023-9-5 14:47

回复 1# gcbgczhang

请参考Q-04和Q-05把bat文件和txt文件都保存为ANSI编码：
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA[/url]

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
(for /f "tokens=1*" %%a in ('type "aa1.txt"') do (
    set "StrCol=%%a"
    if "!StrCol:~-3!" equ "000" (
        set "StrPrefix=!StrCol:~0,-3!"
        set "StrFull=X"
        for /f %%i in ('findstr "!StrPrefix!" "bb1.txt"') do (
            set "StrFull=%%i"
        )
        if "!StrFull!" neq "X" (
            echo !StrFull!      %%b
        ) else (
            echo %%a      %%b
        )
    ) else (
        echo %%a      %%b
    )  
))>"cc1.txt"
复制代码

作者: hfxiang 时间: 2023-9-5 15:13

回复 1# gcbgczhang
把aa1.txt及bb1.txt保存为ANSI编码格式，下载gawk（ http://bcn.bathome.net/tool/5.1.0/gawk.exe ），执行如下脚本即可

gawk "NR==FNR{if(length($1)==18)a[substr($0,1,15)]=$1}NR>FNR{A=substr($0,1,15);if(substr($0,16,3)==\"000\")if(A in a)$0=a[A] substr($0,19,length($0)-18);print}" bb1.txt aa1.txt>cc1.txt
复制代码

作者: Nsqs 时间: 2023-9-5 18:26

powershell -noprofile -executionpolicy bypass "$b=gc bb1.txt;$a=(gc aa1.txt);$a|?{$_ -match '.+000 *.+' -and $b -match [regex]::Matches($_,'(.+)000').groups[1].value}|%%{$a=$a.Replace([regex]::Matches($_,'.+000').value,$b -match [regex]::Matches($_,'(.+)000').groups[1].value)};$a >new_aa1.txt"
复制代码

作者: gcbgczhang 时间: 2023-9-5 18:39

回复 4# Nsqs

谢谢老师

作者: gcbgczhang 时间: 2023-9-5 18:40

回复 3# hfxiang

谢谢老师

作者: gcbgczhang 时间: 2023-9-5 18:43

本帖最后由 gcbgczhang 于 2023-9-5 18:54 编辑

谢谢各位老师，
我之前是在a的各行中直接取前15位到b中找到并输出，但有很多重复。各位都师的都比我的先进。但是仅用含有000的行中的前15位去匹配，仍然有重复的。怪我没有说清楚，前15位是有相同的行的，我侥幸心理，以为都15位了不至于有相同的，事实证明确实的，说明无法用批处理，但从老师位的代码中我学习到了新东西，谢谢老师

作者: gcbgczhang 时间: 2023-9-5 18:46

回复 2# Batcher

谢谢老师！

作者: gcbgczhang 时间: 2023-9-5 18:47

回复 4# Nsqs

谢谢老师！

欢迎光临批处理之家 (http://bbs.bathome.net/)