[文件操作] 【已解决】大文件，批处理如何对重复列添加增量序号。

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1*" %%a in (1.txt) do (
	set /a #%%a+=1
	>>2.txt echo %%a!#%%a! %%b
)
endlocal
pause
复制代码

$content = Get-Content -Path "1.txt" -Raw
$count = @{}
$content -split '\r?\n' | ForEach-Object {
    $line = $_
    Select-String -InputObject $line -Pattern "\b[a-zA-Z]+\b" -AllMatches | ForEach-Object {
        $match = $_.Matches[0]
        $word = $match.Value
        if ($count.ContainsKey($word)) {
            $count[$word]++
        } else {
            $count[$word] = 1
        }
        $line = $line.Replace($word, "$word" + $count[$word].ToString())
    }
    $line
} | Out-File -FilePath "2.txt"
复制代码

gawk "{$1=$1(++a[$1]);print $1\"        \"$2}" 1.txt>2.txt
复制代码

@if(0)==(0) echo off
rem 保存为ANSI编码的BAT文件
dir /b *.txt|cscript -nologo -e:jscript "%~0"
pause & exit/b
@end
fso = new ActiveXObject("Scripting.FileSystemObject");
var f = WSH.StdIn.ReadLine();
var Name = f.match(/^(^.+)\.[^\r\n]+/)[1];
var inFile = fso.OpenTextFile(f, 1, false);
var outFile = fso.CreateTextFile(Name + ".log", true);
var dict = {};

while (!inFile.AtEndOfStream) {
  var line = inFile.ReadLine();
  var parts = line.split(/\s+/);
  var key = parts[0];
  var value = parts[1];
  
  if (dict[key] === undefined) {
    dict[key] = 1;
  } else {
    dict[key]++;
  }
  
  var newLine = key + dict[key] + "\t" + value;
  outFile.WriteLine(newLine);
}
inFile.Close();
outFile.Close();
复制代码

var srcFile = '1.txt';
var dstFile = '2.txt';

var obj = {}
var fso = new ActiveXObject('Scripting.FileSystemObject');
var str = fso.OpenTextFile(srcFile, 1).ReadAll();
str = str.replace(
    /^[a-z]+\b/mig,
    function(s){
        if( !obj.hasOwnProperty(s) ) obj[s] = 1;
        return s + obj[s]++;
    }
);

fso.OpenTextFile(dstFile, 2, true).Write(str);
WSH.Echo('Done');
复制代码