damientheoriginal

Untitled

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