psNetSpell.psm1
|
<#
.Synopsis Checks a document for spelling mistakes .DESCRIPTION Uses the NetSpell .Net spelling library with the default dictionary that comes with it to check a given document for spelling mistakes, and can correct the mistakes in the document. The dictionary and required dll should be automatically loaded from within the module file. The height and width of the form can be adjusted, as well as the font size. .EXAMPLE Invoke-SpellCheck -Path C:\test\document.txt #> function Invoke-SpellCheck { [CmdletBinding()] Param ( # Enter Path to NetSpell Dll [Parameter(Mandatory=$false,Position=2)] #[ValidateScript( { $_.Exists }, "The specified file does not exist.")] [string]$NetSpellDLL = (Join-Path $PSScriptRoot "NetSpell.SpellChecker.dll"), # Dictionary Folder [Parameter(Mandatory=$false, Position=1)] [ValidateScript({ Test-Path $_ -PathType 'Container' })] [string]$DictionaryDirectory = $PSScriptRoot, [Parameter(Mandatory=$true, Position=0)] [System.IO.FileInfo]$Path, [int]$Height = 500, [int]$Width = 700, [int]$fontSize = 12 ) Begin{ if(!(Test-Path $DictionaryDirectory -PathType 'Container')){ Write-Error "Directory '$DictionaryDirectory' does not exist." exit 1 } } Process { Add-Type -Path "$NetSpellDLL" $TextBox = New-Object System.Windows.Forms.TextBox #$TextBox = New-Object System.Windows.Forms.RichTextBox $SpellChecker = New-Object NetSpell.SpellChecker.Spelling $SpellChecker.Dictionary.DictionaryFolder = "$DictionaryDirectory" $SpellChecker.add_MisspelledWord({ param($sender, $args) # Show message box $result = [System.Windows.Forms.MessageBox]::Show( "Misspelled word: $($_.Word)" + [Environment]::NewLine, "Powershell Spell Check", [System.Windows.Forms.MessageBoxButtons]::YesNoCancel, [System.Windows.Forms.MessageBoxIcon]::Information ) if ($result -eq [System.Windows.Forms.DialogResult]::Yes -and $_.Suggestions -ne $null -and $_.Suggestions.Count -gt 0) { # Replace with the first suggestion $start = $TextBox.GetFirstCharIndexFromLine($_.LineIndex) + $_.TextIndex $length = $_.Word.Length $TextBox.Select($start, $length) $TextBox.SelectedText = $_.Suggestions[0].ToString() #$TextBox.SelectedText = $_.Suggestions[0] } }) $SpellChecker.add_EndOfText({ param($sender, $args) # Update text $TextBox.Text = $SpellChecker.Text # Show message box [System.Windows.Forms.MessageBox]::Show("Spell check complete.", "Spell Check", [System.Windows.Forms.MessageBoxButtons]::OK, [System.Windows.Forms.MessageBoxIcon]::Information) }) $SpellChecker.add_DoubledWord({ param($sender, $args) # Update text $TextBox.Text = $SpellChecker.Text # Show message box [System.Windows.Forms.MessageBox]::Show("Doubled word: $($_.Word)", "Spell Check", [System.Windows.Forms.MessageBoxButtons]::OK, [System.Windows.Forms.MessageBoxIcon]::Information) }) # Create spell check window $Form = New-Object System.Windows.Forms.Form $Form.Text = "Spell Check" $Form.Size = New-Object System.Drawing.Size($Height, $Width) $TextBox = New-Object System.Windows.Forms.TextBox $TextBox.Multiline = $true $TextBox.ScrollBars = "Vertical" $TextBox.Dock = "Fill" $TextBox.Font = New-Object System.Drawing.Font("Arial", $fontSize) $TextBox.Text = get-content -Path "$Path" $Form.Controls.Add($TextBox) $Button = New-Object System.Windows.Forms.Button $Button.Text = "Spell Check" $Button.Dock = "Bottom" $Button.add_Click({ # Start Spell Checking $SpellChecker.Text = $TextBox.Text $SpellChecker.SpellCheck() }) $Form.Add_Shown({ # Set the size of the form after it is shown $Form.Width = $Width $Form.Height = $Height }) $Form.Controls.Add($Button) # Show the form $Form.ShowDialog() | Out-Null } End { $Form.add_FormClosed({ # Clean up form resources $Form.Dispose() }) } } #EndRegion '.\Public\Invoke-SpellCheck.ps1' 109 |