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

思想之翼 · 发表于 2023-2-20 10:07:15

本帖最后由思想之翼于 2023-2-20 12:28 编辑

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:"="

hfxiang · 发表于 2023-2-20 11:03:57

试试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

复制代码

terse · 发表于 2023-2-20 13:16:00

文件太大了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()

复制代码

WHY · 发表于 2023-2-20 13:35:01

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();

复制代码

思想之翼 · 发表于 2023-2-20 15:46:15

本帖最后由思想之翼于 2023-2-20 16:08 编辑

感谢大家！

思想之翼 · 发表于 2023-2-20 16:09:27

本帖最后由思想之翼于 2023-2-20 16:15 编辑

回复 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\
如何正确添加路径？恳望不吝指教。

hfxiang · 发表于 2023-2-20 16:39:51

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

复制代码

思想之翼 · 发表于 2023-2-25 20:29:34

回复 3# terse

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

terse · 发表于 2023-2-25 22:14:12

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

		自动登录	找回密码
密码			注册

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

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

评分

评分

评分

评分

评分