Ada beberapa sumber yang mungkin berguna bagi Anda. Anda dapat menemukannya disini , dan di sini . Yang pertama adalah kemungkinan pertanyaan duplikat dengan beberapa fungsi lagi yang mungkin membantu Anda memecahkan masalah Anda. Yang kedua adalah artikel yang saya temukan saat Googling pertanyaan Anda. Ternyata menjadi bacaan yang bagus.
Sesuatu yang lebih praktis adalah ini:
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
(Sumber - Anda harus menggulir ke bawah, Bob Strunz-lah yang mengklaim bahwa itu berhasil untuknya!)
Semoga membantu, saya lebih suka pertanyaan ini (upvote). Itu menyenangkan, informatif, dan menarik!
-sf
