Chuẩn hóa tất cả ký tự UTF8 thành định dạng chuẩn nhất

Có một số tài nguyên có thể hữu ích cho bạn. Bạn có thể tìm thấy chúng tại đây và tại đây . Đầu tiên là một câu hỏi có thể trùng lặp với một vài chức năng khác có thể giúp bạn tìm ra vấn đề của mình. Thứ hai là một bài báo mà tôi tình cờ gặp được trong khi Googling câu hỏi của bạn. Nó hóa ra là một bài đọc xuất sắc.

Một cái gì đó thực tế hơn là thế này:

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

( Nguồn - bạn sẽ cần phải cuộn xuống dưới cùng, chính Bob Strunz đã tuyên bố rằng nó phù hợp với anh ta!)

Hy vọng rằng sẽ hữu ích, tôi khá thích câu hỏi này (ủng hộ). Nó rất vui, nhiều thông tin và thú vị!

-sf