Sub LanguageMatch(StringToRead As String, LanguageWords() As String) As Float
Dim CheckString As String= " " & StringToRead.ToLowerCase & " "
Dim Punctuation As String = ",;:.!?()/"
For I = 0 To Punctuation.Length - 1
CheckString.Replace(Punctuation.CharAt(I), " ")
Next I
Dim NumHits As Int = 0
For I = 0 To LanguageWords.Length - 1
If CheckString.Contains(" " & LanguageWords(I) & " ") Then
NumHits = NumHits + 1
End If
Next I
Return NumHits / LanguageWords.Length
End Sub
Dim EnglishWords() As String = Array Of String("the", "be", "to", "of", "and", "a", "in", "that", "have", "i")
Dim FrenchWords() As String = Array Of String("oui")
Dim GermanWords() As String = Array Of String("ja")
Dim BestLanguage As String = "it" 'default to Italian
Dim BestLanguageMatch As Float = 0
Dim Temp As Float
Temp = LanguageMatch(StringToRead, EnglishWords)
If Temp > BestLanguageMatch Then
BestLanguage = "en"
BestLanguageMatch = Temp
End If
Temp = LanguageMatch(StringToRead, FrenchWords)
If Temp > BestLanguageMatch Then
BestLanguage = "fr"
BestLanguageMatch = Temp
End If
Temp = LanguageMatch(StringToRead, GermanWords)
If Temp > BestLanguageMatch Then
BestLanguage = "de"
BestLanguageMatch = Temp
End If