[文本处理] 根据文本每一行指定位置的相同字符串将该行从指定位置到行尾截取的字符串合并成一行

@echo off&setlocal enabledelayedexpansion
for /f "tokens=*" %%a in ('type "文本.txt"') do (
    set "line=%%a"
    for /f "delims=" %%b in ("!line:~10,6!") do set "#%%b=!#%%b!!line:~10!"
)
set #
pause
复制代码

#*第三方http://www.bathome.net/s/tool/index.html?key=gawk
#*&cls&gawk -f "%~f0" "文本.txt"&pause&exit

{
    if(length($0)>10){
        str=substr($0,11,6);
        arr[str]=arr[str]""substr($0,11);
    }
}
END{ for(b in arr)print b"="arr[b]}
复制代码

powershell -c "(gc '文本.txt'|%%{$_.SubString(11)})|group {$_.SubString(0,6)}|%%{$_.name+'='+-join($_.group)}"
pause
复制代码

//&cls&cscript -nologo -e:jscript "%~f0"<"文本.txt"&pause&exit

var a = {};
while(!WSH.StdIn.AtEndOfStream){
    var str = WSH.StdIn.ReadLine();
    if(!/^\s*$/.test(str)&&str.length>10){
        t = str.substr(11,6);
        if(!a[t])a[t]='';
        a[t]+=str.substr(11);
    }
}
for(var b in a)WSH.Echo(b+'='+a[b]);
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('type 文本.txt') do (
	set a=%%i
	for /f "delims=" %%j in ("!a:~10,6!") do (
		set _%%j=!_%%j!!a:~10!
	)
)
(for /f "tokens=2 delims==" %%i in ('set _') do (
	echo %%i
))>完成.txt
pause
复制代码

@if (0)==(0) echo off
cscript //nologo //e:jscript "%~f0" < a.txt
pause & exit
@end

var arr = WSH.StdIn.ReadAll().replace(/^.{10}/mg, '').match(/[^\r\n]{6,}/g).sort();
var s = ''; arr.push('');
for(var i=0; i<arr.length-1; i++){
    s += arr[i];
    if(arr[i].substr(0,6)!=arr[i+1].substr(0,6)){ WSH.Echo(s); s = ''; }
}
复制代码