あなたに役立つかもしれないいくつかのリソースがあります。あなたはそれらを見つけることができます
もっと実用的なものはこれでした:
Public Function RemoveAccentMarks(ByVal s As String) As String
Dim stringBuilder As New StringBuilder
Dim c As Char
For Each c In s
Dim v As Char = Chr(Asc(c) And &H7F)
stringBuilder.Append(v)
Next
Return stringBuilder.ToString
End Function
(ソース> -一番下までスクロールする必要があります。それが彼のために働いたと主張したのはボブ・ストランツでした!)
お役に立てば幸いですが、私はむしろこの質問を楽しんでいました(賛成)。楽しく、有益で、面白かったです!
-sf