[文本处理] 【已解决】批处理如何实现对比2个txt后找出匹配的字符然后在后面插入指定内容？

@if (0==0) @end/*
@echo off
cscript /e:jscript %0 1.txt 2.txt>3.txt
exit /b */

var fso = new ActiveXObject('Scripting.Filesystemobject')

var ts1 = fso.OpenTextFile(WScript.Arguments(0),1)
var ts2 = fso.OpenTextFile(WScript.Arguments(1),1)

var list=[]
while(!ts1.AtEndOfStream){
	ar = ts1.ReadLine().split(/\|/)
	list.push({name:ar[0],value:'|'+ar[1]})
}
ts1.Close()

var text = ts2.ReadAll().split(/\r?\n/g)
ts2.Close()

for(var i in text){
	var str=text[i]
	for(var j in list){
		if(str.indexOf(list[j].name)!=-1){
			str+=list[j].value
			break
		}
	}
	WScript.Echo(str)
}
复制代码

@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%a in (2.txt) do (
	set "str=%%a"
	set "FLAG="
	for /f "tokens=1,2 delims=|" %%b in (1.txt) do (
		if not defined FLAG if "!str:%%b=!" neq "!str!" (
			set "str=!str!|%%c"
			set FLAG=1
		)
	)
	echo !str!
))>3.txt
复制代码

open(IN,'1.txt');
@text=<IN>;
close(IN);

foreach (@text){
	chop();
	@ar=split(/\|/,$_);
	$list{@ar[0]}='|'.@ar[1];
}

open(IN,'2.txt');
while(chop($line=<IN>)){
	foreach (keys %list){
		if (index($line,$_)>=0) {
			$line .= $list{$_};
			break;
		}
	}
	print $line ."\r\n";
}
close(IN);
复制代码

my %hash;
my @arr;
my $j;
foreach ( &loadf("1.txt") ) {
	$hash{$1}=$2 if /(.*)\|(.*)\n/;
}

open WRT,">:raw:crlf","3.txt" or warn "$!";
foreach ( &loadf("2.txt") ) {
	foreach $j (keys %hash) {
		if (/^$j/) {
			s/\n?$/\|$hash{$j}\n/;
			print WRT $_;
		}
	}
}
close WRT;

sub loadf {
	open READ,"<:raw:crlf", shift or warn "$!";
	@all=<READ>;
	close READ;
	return @all;
}
复制代码