Functions/Get-WordCount.ps1
|
function Get-WordCount { <# .SYNOPSIS Gets summary statistics of all the words and how many of each there are .DESCRIPTION Gets summary statistics of all the words and how many of each there are .PARAMETER Path The path of the file .PARAMETER Exclude The path to a file containing strings you want excluded from the count .EXAMPLE For all the examples assume you have a file called Sample.txt that contains the following: unicorn unicorn unicorn unicorn cat cat cat dog dog fish Assume further you have another file called Exclude.txt that contains the following: unicorn .EXAMPLE Get-WordCount -Path .\Sample.txt Name Value ---- ----- unicorn 4 cat 3 dog 2 fish 1 .EXAMPLE Get-WordCount -Path .\sample.txt -Exclude .\Exclude.txt Name Value ---- ----- cat 3 dog 2 fish 1 .NOTES Updated logic around keys to the working hash. If any of the words in the file match PowerShell keywords you'll get a bunch of error messages. Workaround stores hash in slightly different manner. #> [CmdletBinding()] [Diagnostics.CodeAnalysis.SuppressMessageAttribute('PSUseDeclaredVarsMoreThanAssignments', '')] param ([Parameter(Mandatory, HelpMessage = 'Please enter a filename so we can count the words', ValueFromPipeline)] [string] $Path, [string] $Exclude ) begin { Write-Verbose -Message "Starting [$($MyInvocation.Mycommand)]" } process { Write-Verbose -Message "PATH = [$($Path)]" $textString = $(Get-Content -Path $Path) -join ' ' $textString = $textString -replace "`n", ' ' $textString = $textString -replace '[^a-z| ]' $textWords = $textString -split '\s+' $statistic = $textWords | ForEach-Object -Begin { $hash = @{} } -Process { $tmp = $_ $hash."'$tmp'" ++ } -End { $hash } if ( $exclude ) { Write-Verbose -Message "EXCLUDE = $Exclude" $excludeString = $(Get-Content -Path $exclude) -join ' ' $excludeString = $excludeString -replace "`n", ' ' $excludeString = $excludeString -replace '[^a-z| ]' $excludeWords = $excludeString -split '\s+' $excludeWords | ForEach-Object { if ($statistic.ContainsKey($_)) { $statistic.Remove($_) } } } Write-Verbose -Message 'Word frequency in descending order' $statistic.GetEnumerator() | Sort-Object -Property Value -Descending | Select-Object -Property @{Name='Name';Expr={$_.Name -replace "'"}}, Value } end { Write-Verbose -Message "Ending [$($MyInvocation.Mycommand)]" } } #EndFunction Get-WordCount |