Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function RemoveAccent(thestring As String)
- Dim A As String * 1
- Dim B As String * 1
- Dim i As Integer
- Const AccChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
- Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
- For i = 1 To Len(AccChars)
- A = Mid(AccChars, i, 1)
- B = Mid(RegChars, i, 1)
- thestring = Replace(thestring, A, B)
- Next
- RemoveAccent = thestring
- End Function
Advertisement
Add Comment
Please, Sign In to add comment