[文本处理] 【已解决】批处理如何提取多个txt文本的指定列的内容并按指定格式合并输出？

jrx401

[文件举例]
文件名称1：123.txt
文件内容：
a1 231 zdfe4 as vrr
b1 2314 f44fw bs 12ed
b3 23s f4sad 1sdd 1sdd

文件名称2：acb.txt
文件内容：
a1 561 zdfe4 356 nhg
b1 3244 33fw 2dd 1ffd
b3 23 333ad cxd ffd

文件名称3：3j3.txt
文件内容：
a1 561 zdfe4 cc nhg
b1 3244 33fw bb 1ffd
b3 23 333ad 11 ffd

......

有无数类似以上文件(只有第一列是一样的)，如果指定第四列，合并后如下；
文件名称：total.txt
a1 as 356 cc ...
b1 bs 2dd bb ...
b3 1sdd cxd 11 ...

hlzj88

n个文本的的所有同一行的指定列合并为一行，生成新文本。
等看高手风采

jrx401

回复 2# hlzj88


    不知道哪位高手指点一下呢？

pcl_test

@echo off
setlocal enabledelayedexpansion
rem for %%a in (*.txt) do ……
for /f "delims=" %%a in ('dir /a-d/b *.txt') do (
    set n=1000000000
    for /f "tokens=1-4*" %%b in ('type "%%a"') do (
        set /a n+=1
        for %%i in (!n!) do set "#%%i_%%b=!#%%i_%%b! %%e"
    )
)
for /f "tokens=1*delims==" %%a in ('set #') do set "str=%%a"&echo;!str:*_=!!%%a!
pause
复制代码

pcl_test

//&cls&dir /a-d/b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit
var fso=new ActiveXObject('Scripting.Filesystemobject');
var n=4, t={};  //指定第4列
while(!WSH.StdIn.AtEndOfStream){
    var f = fso.OpenTextFile(WSH.StdIn.ReadLine(), 1);
    while(!f.AtEndOfStream){
        var line = f.ReadLine().split(/\s+/);
        if(line != ''){
            if(!line[n-1])line[n-1]='*';
            t[line[0]]=t[line[0]]?t[line[0]]+' '+line[n-1]:line[n-1];
        }
    }
}
for(var i in t)WSH.echo(i+' '+t[i]);
复制代码

jrx401

回复 4# pcl_test


   
感谢板主出手。
我的知识浅薄，研究了一下但是如下无法吃透。
1. 如下代码的# 符号是代表什么呢？
    for %%i in (!n!) do set "#%%i_%%b=!#%%i_%%b! %%e"
2.还有如下部分的 内容，特别是str=%%a"&echo;!str:*_=!!%% 部分。
for /f "tokens=1*delims==" %%a in ('set #') do set "str=%%a"&echo;!str:*_=!!%%a!

还请相助。
或介绍学习资料也可。
非常感谢。