文本框句子問題

Question

所以下面的代碼基本上將文本框中的任何內容轉換爲句子格式。雖然它沒有把字母「我」的字母大寫，對此有什麼幫助？由於

Public Shared Function SentenceCase(ByVal Input As String) As String 
     Dim SentenceBreakers As String = System.Text.RegularExpressions.Regex.Escape(".!?" & vbCrLf) 
     Dim Pattern As String = "((?<=^[^" & SentenceBreakers & "\w]{0,})[a-z]|(?<![" & SentenceBreakers & "])(?<=[" & SentenceBreakers & "][^" & SentenceBreakers & "\w]{0,})[a-z])" 
     Return System.Text.RegularExpressions.Regex.Replace(Input, Pattern, Function(m) m.Value(0).ToString().ToUpper() & m.Value.Substring(1)) 
    End Function 

Answer 1

您可以嘗試在最後

Return System.Text.RegularExpressions.Regex.Replace(Input, Pattern, Function(m) m.Value(0).ToString().ToUpper() & m.Value.Substring(1)).Replace(" i "," I ")