कुछ संसाधन हैं जो आपके लिए उपयोगी हो सकते हैं। आप उन्हें पा सकते हैं यहां , और यहां . पहला कुछ और कार्यों के साथ एक संभावित डुप्लिकेट प्रश्न है जो आपकी समस्या का पता लगाने में आपकी सहायता कर सकता है। दूसरा एक लेख है जिस पर मैंने आपके प्रश्न को गुगल करते समय ठोकर खाई। यह एक उत्कृष्ट पठन निकला।
यह कुछ और व्यावहारिक था:
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
(स्रोत - आपको नीचे स्क्रॉल करना होगा, यह बॉब स्ट्रुन्ज़ था जिसने दावा किया था कि यह उसके लिए काम करता है!)
आशा है कि यह मदद करता है, मुझे यह प्रश्न पसंद आया (अपवोट)। यह मजेदार, जानकारीपूर्ण और दिलचस्प था!
-एसएफ
