[文本处理] 如何用批处理做到或其它方法做到？

@echo off&setlocal enabledelayedexpansion
(for /f "tokens=1-7 delims= " %%a in (a.txt) do (
  set var=
  for %%i in (%%a %%b %%c %%d %%e %%f) do set .%%i=1
  for /f "delims==." %%i in ('set.') do set "var=!var!%%i"
  if not defined !var!%%g (
    echo %%a %%b %%c %%d %%e %%f %%g
    set !var!%%g=1
  )
  for %%i in (%%a %%b %%c %%d %%e %%f) do set .%%i=
))>b.txt
复制代码

@echo off & setlocal enabledelayedexpansion
>2.txt (
  for /f "delims=" %%h in (1.txt) do (
    set "$=%%h" & set "$=!$:~,-3!" & set "$=!$: =&echo,!"
    set "#="
    for /f %%a in ('(echo !$!^)^| sort') do set "#=!#!%%a"
    if not defined !#!!$:~-2! echo %%h&set "!#!!$:~-2!=1"
) )
start "" 2.txt
复制代码

//Save me as takeline.js
var arr,sr_arr,subarr,str,key,lastnum;
var i,j,flag,outStr;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.OpenTextFile("d:\\test.txt",1,false);
str = f.ReadAll();
f.Close();

arr = sr_arr = str.split('\n');

for(i=0; i<arr.length; i++)
{
	subarr = arr[i].split(' ');
	lastnum = subarr.pop();
	subarr.sort().push(lastnum);
	arr[i] = subarr;
}

outStr = '';
for(i=0; i<arr.length; i++)
{
	flag = 1;
	for(j=0; j<i; j++)
	{
		if(arr[i].toString() == arr[j].toString())
		{
			flag = 0;
			break;
		}
	}
	
	if(flag==1) outStr += sr_arr[i].toString().replace(/\,/g,' ');
}

f = fso.CreateTextFile("d:\\output.txt", true);
f.Write(outStr);
f.Close();

fso = null;
f = null;
WScript.Echo('Succeed.');
复制代码