i00 Spell Check and Control Extensions - No Third Party Components Required!

'i00 .Net Spell Check
'©i00 Productions All rights reserved
'Created by Kris Bennett
'----------------------------------------------------------------------------------------------------
'All property in this file is and remains the property of i00 Productions, regardless of its usage,
'unless stated otherwise in writing from i00 Productions.
'
'Anyone wishing to use this code in their projects may do so, however are required to leave a post on
'VBForums (under: http://www.vbforums.com/showthread.php?p=4075093) stating that they are doing so.
'A simple "I am using i00 Spell check in my project" will surffice.
'
'i00 is not and shall not be held accountable for any damages directly or indirectly caused by the
'use or miss-use of this product.  This product is only a component and thus is intended to be used 
'as part of other software, it is not a complete software package, thus i00 Productions is not 
'responsible for any legal ramifications that software using this product breaches.

Partial Public MustInherit Class Dictionary

    Partial Class Formatting

#Region "Text Formating"

#Region "Check Case"

        Public Shared Function ContainsNumbers(ByVal CompareWord As String) As Boolean
            For Each item In CompareWord
                If Char.IsDigit(item) Then Return True
            Next
        End Function

        Public Shared Function AllInCaps(ByVal CompareWord As String) As Boolean
            If CompareWord = System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToUpper(CompareWord) Then
                'all letters in this word are caps
                Return True
            End If
        End Function

        Public Shared Function CaseOK(ByVal CompareWord As String, ByVal DictionaryWord As String) As Boolean
            If DictionaryWord = LCase(DictionaryWord) Then
                'check for funny case ... if we have more than one letter and the word isn't in upper case
                If CompareWord.Length > 1 AndAlso CompareWord.ToUpper <> CompareWord Then
                    Dim AllButFirst = CompareWord.Substring(1)
                    If AllButFirst <> AllButFirst.ToLower Then
                        'interesting case
                        'Return False
                    Else
                        Return True
                    End If
                Else
                    Return True
                End If
            Else
                'word is case sensitive :(
                For iLetter = 1 To Len(DictionaryWord)
                    Dim DicLetter = CChar(Mid(DictionaryWord, iLetter, 1))
                    Dim Letter = CChar(Mid(CompareWord, iLetter, 1))
                    If DicLetter = UCase(DicLetter) Then
                        'this letter needs to be in caps... so check it in the orig word
                        If Letter = DicLetter Then
                            'we are ok
                            Return True
                        Else
                            'we couldn't match this letter case
                            'Return False
                        End If
                    End If
                Next
            End If

            Return AllInCaps(CompareWord)
        End Function

#End Region

#Region "Word Breaks"

        Public Shared Function RemoveWordBreaks(ByVal Text As String) As String
            If Text <> "" Then
                'replace all chrs
                'Dim arr = (From xItem In WordBreakChrs Select System.Text.RegularExpressions.Regex.Escape(xItem)).ToArray
                Text = System.Text.RegularExpressions.Regex.Replace(Text, regexWordBreakChrs, New System.Text.RegularExpressions.MatchEvaluator(Function(x As System.Text.RegularExpressions.Match) New String(" "c, x.Length)))

                'regex below removes "'" but only for words ending in this eg "chris'" = "chris ", but "heather's" <> "heather s"
                Text = System.Text.RegularExpressions.Regex.Replace(Text, "'(?![A-Z0-9_])", " ", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
            End If
            Return Text
        End Function

        'These do not work:
        ' Chr(146) & " "    "’ "

        Public Shared Function regexWordBreakChrs() As String
            Dim arr = (From xItem In WordBreakChrs Select System.Text.RegularExpressions.Regex.Escape(xItem)).ToArray
            'qwertyuiop - below should be "[\s|^|$|\t|\r|\n]{1,}" but doesn't work for start of string starting with ' for eg???
            arr = (From xItem In arr Select Replace(xItem, "\ ", "([\s|^|$|\t|\r|\n]{1,}|^{1}){1}")).ToArray
            regexWordBreakChrs = Join(arr, "|")

        End Function

        Private Shared WordBreakChrs As String() = New String() {vbCr, vbLf, ".", ",", ";", ":", "?", "!", ")", "]", "}", Chr(146) & " ", """", "/", "\", "(", "[", "{", " '", " " & Chr(145), "-", Chr(147), Chr(148)}

#End Region

#Region "For words with 's"

        Friend Shared Function RemoveApoS(ByVal text As String) As String
            Return System.Text.RegularExpressions.Regex.Replace(text, "(?<!s)['\x92]s", "", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
            'Dim Last2 = LCase(Right(Word, 2))
            'If Last2 = "'s" OrElse Last2 = Chr(146) & "s" Then
            '    Word = Left(Word, Len(Word) - 2)
            'End If
            'Return Word
        End Function

#End Region

#End Region

    End Class


End Class