buyiyang

ps1

$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"
复制代码