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

xuexilai · 发表于 2014-8-10 19:45:07

CrLf · 发表于 2014-8-10 20:34:14

@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)
}

复制代码

CrLf · 发表于 2014-8-10 20:40:09

来个纯批：

@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

复制代码

xuexilai · 发表于 2014-8-10 21:27:25

回复 3# CrLf

麻烦了哥哥谢谢你

CrLf · 发表于 2014-8-10 23:31:28

再来个perl

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

复制代码

523066680 · 发表于 2014-8-11 00:17:40

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;
}

复制代码

CrLf · 发表于 2014-8-11 00:58:04

回复 6# 523066680

正则里也可以用 $j 啊...
断断续续看 perl语言入门学习中，有的用法貌似没见过

523066680 · 发表于 2014-8-11 08:47:22

本帖最后由 523066680 于 2014-8-11 08:55 编辑

回复 7# CrLf

可以代入，不过有些情况比如 $j里面带有"\" ，后面的单个字符会被转义，尤其路径匹配可能出错。
有个\Q \E 可以作为绝对引用，这个用法是我看Perl教程的时候看漏了，在CU别人告诉我的，这里提一下。

参考： http://bbs.chinaunix.net/thread-4131501-1-1.html

─────┐
jason680  │
─────┘
─────────────┐
回复 1# 523066680       │
                        │
quotemeta or \Q          │
(perldoc -f quotemeta) │
                        │
$str2 = quotemeta($str2)  │
or                      │
s/\Q$str2//             │
s/\Q$str2\E//          │
─────────────┘

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

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

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

评分

评分

评分