@echo off
(for /f "tokens=1* delims=," %%a in ('sort 1.txt') do (
   set str=%%a
   setlocal enabledelayedexpansion
   if !last!==!str! echo !str!,%%b
   endlocal
   set last=%%a
))>重复.txt
复制代码

@echo off&setlocal enabledelayedexpansion
(for /f "tokens=1* delims=," %%a in ('sort a.txt')do (title %%a,%%b
   if "%%a"=="!str1!" (echo !str2!&set f=y)else (
      if defined f (set f=&echo !str2!)
      set str1=%%a)
   set str2=%%a,%%b)
if defined f echo.!str2!
)>b.txt
复制代码

@echo off
sort a.txt /o tmp.txt
(for /f "tokens=1* delims=," %%a in (tmp.txt) do (
...
复制代码

@set @n=0//&cscript.exe -e:jscript "%~f0"&exit /b

file = "a.txt";

strConnect = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.;'
    + 'Extended Properties="text;HDR=no;FMT=Delimited;";';
AdoCnn = new ActiveXObject("ADODB.Connection");
AdoCnn.Open(strConnect);
//AdoCnn.Execute("Select * into [result.csv] FROM ["+file+"] where [F1] in (select [F1] from ["+file+"] group by [F1] having count([F1])>1)");
AdoRs = new ActiveXObject("ADODB.Recordset");
AdoRs.Open("SELECT * FROM ["+file+"] where [F1] in (select [F1] from ["+file+"] group by [F1] having count([F1]) > 1)", AdoCnn, 3);
n = AdoRs.RecordCount
s = AdoRs.GetString(2, n, ",", "\r\n");
AdoRs.Close();
AdoCnn.Close();
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.OpenTextFile('result.txt', 2, true).write(s);
WScript.Echo("共有"+n+"条重复数据，结果保存在result.txt");
复制代码