【完结】20元求提取文本

@echo off
(for /f %%i in ('type "a.txt"') do (
    for /f "delims=" %%a in ('findstr "%%i" tmp.txt') do (
        echo "%%i--%%a"
    )
))>b.txt
复制代码

var fso = new ActiveXObject('Scripting.FileSystemObject');
var f1 = fso.OpenTextFile('a.txt', 1);
var f2 = fso.OpenTextFile('tmp.txt', 1);
var arr = [], map = [];

while( !f1.AtEndOfStream ){
    var s = f1.ReadLine();
    if(!/^\s*$/.test(s)) map[s] = 1;
}

while( !f2.AtEndOfStream ){
    var s = f2.ReadLine();
    for(var i=2; i<=7; i++){
        for(var j=0; j<=s.length-i; j++){
            var s1 = s.substr(j,i);
            if(map[s1]) arr.push(s1 + '\t' + s);
        }
    }
}
fso.OpenTextFile('b.txt', 2, true).WriteLine(arr.join('\r\n'));

WSH.Echo('Done')
复制代码

@echo off&title gan
::出现乱码请把文本另存为ANSI编码
::有特殊字符需要在echo后面加""
>b.txt (for /f  %%a in (a.txt) do (
	for /f %%b in ('findstr "%%a" tmp.txt') do echo %%a\t%%b))
pause
复制代码

>b.txt (for /f %%a in ('type a.txt') do (
	for /f %%b in ('type tmp.txt ^| findstr "%%a"') do echo %%a\t%%b))
pause
复制代码