如何檢測元音

Question

我創建了一個彎曲芬蘭語語法的程序，現在我需要一些幫助。爲了使程序正常工作，我必須以某種方式使它能夠檢測元音（a，e，i，o，u，y，ä，ö）。

例如，如果一個單詞以兩個元音結尾，它將以單向彎曲單詞。如果以元音加上'ta'或'tä'結尾，它會以不同的方式彎曲它。如果這個詞與這兩個詞中的任何一個都不匹配，它會以第三種方式彎曲它。

我感謝所有幫助:)

編輯：

' Handle singular 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If InStr(TextBox1.Text, "n") Then 
     TextBox2.Text = TextBox1.Text 
     TextBox2.Text = TextBox2.Text.Remove(TextBox2.TextLength - 1, 1) 
     TextBox3.Text = "älä " & TextBox2.Text 
    Else 
     TextBox1.Text = "fel form" 
    End If 
End Sub 
' Handle plural 
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    Dim str As String 
    str = TextBox6.Text 
    Dim vokal As String 
    vokal = "a" 
    If str.EndsWith(vokal + vokal) = True Then 
     MsgBox("The string ends with a vokal!! ") 
    Else 
     MsgBox("Failure!") 
    End If 

    If InStr(TextBox6.Text, "n") Then 
     TextBox2.Text = TextBox1.Text 
     TextBox2.Text = TextBox2.Text.Remove(TextBox2.TextLength - 1, 1) 
     TextBox3.Text = "älä " & TextBox2.Text 
    Else 
     TextBox1.Text = "fel form" 
    End If 
End Sub 

Answer 1

也許你可以使用一個regular expression：

Dim input As String = ... 
If Regex.IsMatch(input, "[aeiouyäö]{2}$") Then 
    Console.WriteLine("This word ends with two vowels") 
Else If Regex.IsMatch(input, "[aeiouyäö]{2}t[aä]$") Then 
    Console.WriteLine("This word ends with two vowels and 'ta' or 'tä'") 
Else 
    Console.WriteLine("This word does not meet either of the other conditions") 
End If 

解釋一些有關此代碼的詳細信息：

• [aeiouyäö]是一個character class，它匹配單個字符a，e，i，o，u，y，ä，ö。
• {2}是一個quatifier，它匹配前一個字符，字符類或組的任何兩個實例。
• $是一個anchor，它匹配字符串的末尾（或多行模式下的行）。