[文本处理] 【已解决】批处理：如何使用字典的方式，替换文本内的字符串

思想之翼

A.txt 作为字典，记录数据10万行，格式如下：
0 0 0 0 0=H C A D D F A
0 0 0 0 1=H C G C E B G
0 0 0 0 2=H C C J H B J
............
............
9 9 9 9 7=C A I I I D A
9 9 9 9 8=I F B B A D G
9 9 9 9 9=E G A J A G G

B.txt 是被替换文本，记录数据有重复，行数不定（小于等于10万行），格式如下：
9 9 9 9 9
9 9 9 9 9
9 9 9 9 7
...........
...........
0 0 0 0 2
0 0 0 0 2
0 0 0 0 0

替换结果如下：
E G A J A G G
E G A J A G G
C A I I I D A
.............
.............
H C C J H B J
H C C J H B J
H C A D D F A

注：下列代码太慢了
bwfr.exe "D:\:00\B.txt" -s -f -argfile:A.txt -dlm:"="

terse

回复 8# 思想之翼
WScript.Arguments.Item(0) 这里是a.txt  或者先设置一个变量吧  var file = WScript.Arguments.Item(0) ;查看文件有没有传递进来

思想之翼

回复 3# terse

感谢帮助！
JS 代码 18行 var text = adoLoadText(WScript.Arguments.Item(0), 'utf-8'); 运行出错，下标越界，代码 800A0009
恳望指点！

hfxiang

回复 6# 思想之翼

"C:\SoftWare\gawk.exe" -F"=" "NR==FNR{A[$1]=$2;next}{print A[$0]}" "D:\00\a.txt" "D:\11\b.txt">"D:\22\c.txt"
复制代码

思想之翼

回复 2# hfxiang

gawk -F"=" "NR==FNR{A[$1]=$2;next}{print A[$0]}" a.txt b.txt>c.txt

若 a.txt 在   D:\00\
    b.txt 在   D:\11\
将 c.txt 写入 D:\22\
如何正确添加路径？恳望不吝指教。

思想之翼

感谢大家！

WHY

Test.ps1，右键使用 PowerShell 运行

$myPath = $MyInvocation.MyCommand.Path -replace '\\[^\\]*$', '\';
$fileA = $myPath + 'a.txt';            #源文本A
$fileB = $myPath + 'b.txt';            #源文本B
$fileC = $myPath + 'c.txt';            #目标文本C

If (![IO.File]::Exists($fileA) -or ![IO.File]::Exists($fileB)){
    echo '源文件不存在';
    [Console]::ReadLine();
    exit;
}

$Hash = New-Object System.Collections.HashTable;                              #HashTable，存放文本A数据
$srA = New-Object System.IO.StreamReader($fileA, [Text.Encoding]::Default);   #读文本A
$srB = New-Object System.IO.StreamReader($fileB, [Text.Encoding]::Default);   #读文本B
$swC = New-Object System.IO.StreamWriter($fileC, $false, [Text.Encoding]::Default); #写文件C

while($srA.Peek() -ge 0){
    $strLine = $srA.ReadLine();           #逐行读文本A
    $arr = $strLine.Split('=', 2);        #用'='分割成数组
    If ($arr.Count -eq 2){
        $key = $arr[0];
        $value = $arr[1];
        If (!$Hash.ContainsKey($key)){
            $Hash.Add($key, $value);      #存入HashTable
        }
    }
}
$srA.Dispose();
$srA.Close();

while($srB.Peek() -ge 0){
    $strLine = $srB.ReadLine();           #逐行读文本B
    If ($Hash.ContainsKey($strLine)){
        $strLine = $Hash[$strLine];       #重新赋值
    }
    $swC.WriteLine($strLine);             #写文件C
    $swC.Flush();
}
$srB.Dispose();
$srB.Close();
$swC.Dispose();

echo 'Done';
[Console]::ReadLine();
复制代码

terse

文件太大了BAT会吃不住

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do set "_%%i"
for /f "delims=" %%i in (b.txt) do (
     if defined _%%i (
        echo !_%%i!
     )  else echo;%%i
)
pause
复制代码

JS的

@if (0)==(0) echo off
cscript //nologo //E:JScript "%~0"<"b.txt" "a.txt" 
pause&exit
content
@end;
var fso = new ActiveXObject("Scripting.FileSystemObject");
function adoLoadText(filename, charset) {
  var stream, text;
  stream = new ActiveXObject("ADODB.Stream");
  stream.type = 2;
  stream.charset = charset;
  stream.open();
  stream.loadFromFile(filename);
  text = stream.readText(-1);
  stream.close();
  return text;
}
var text = adoLoadText(WScript.Arguments.Item(0), 'utf-8');
var arr = [];
var newfile = 'c.txt';//保存文件
while (!WScript.StdIn.AtEndOfStream){
    var str = WScript.StdIn.Readline();
    var re = new RegExp(str + "=(.+)","i");
    var r = text.match(re)
    arr.push(r?r[1]:str)
}
var f = fso.OpenTextFile(newfile,2,true,false);
f.WriteLine(arr.join('\n'));
f.Close()
复制代码

hfxiang

试试gawk（ http://bcn.bathome.net/tool/4.1.3/gawk.exe ）

gawk -F"=" "NR==FNR{A[$1]=$2;next}{print A[$0]}" a.txt b.txt>c.txt
复制代码