Replace Special Vowels with "Regular" (7-bit ASCII) Values

Category:

String Manipulation

Type:

Snippets

Difficulty:

Beginning

Author: Jonathan Poissant

Version Compatibility:

More information:

This is a little function I have found useful to replace strings with accented vowels with their 7-bit ASCII counterparts.

It's my first post ever of VB Code so if you have any comments send an e-mail to: dwarth@hotmail.com

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
'*********************************************************** 'INPUT: Any String 'OUTPUT: The Input String with all special voyel replace 'EXAMPLE Debug.Print ReplaceAccent("… ‚ Ô ˜") 'output = "a e E y") ' '***********************************************************

Code:

Public Function ReplaceAccent(sString As String) As String
    Dim i As Integer
    
' Replace A & a
    For i = 192 To 197
        sString = Replace(sString, Chr(i), "A")
    Next
    For i = 224 To 229
        sString = Replace(sString, Chr(i), "a")
    Next
' Replace C & c
    sString = Replace(sString, Chr(199), "C")
    sString = Replace(sString, Chr(231), "c")
' Replace E & e
    For i = 200 To 203
        sString = Replace(sString, Chr(i), "E")
    Next
    For i = 232 To 235
        sString = Replace(sString, Chr(i), "e")
    Next
' Replace I & i
    For i = 204 To 207
        sString = Replace(sString, Chr(i), "I")
    Next
    For i = 236 To 239
        sString = Replace(sString, Chr(i), "i")
    Next
' Replace D
    sString = Replace(sString, Chr(208), "D")
' Replace N & n
    sString = Replace(sString, Chr(209), "N")
    sString = Replace(sString, Chr(241), "n")
' Replace O & o
    For i = 210 To 214
        sString = Replace(sString, Chr(i), "O")
    Next
    For i = 242 To 246
        sString = Replace(sString, Chr(i), "o")
    Next
' Replace U & u
    For i = 217 To 220
        sString = Replace(sString, Chr(i), "U")
    Next
    For i = 249 To 252
        sString = Replace(sString, Chr(i), "u")
    Next
' Replace Y & y
    sString = Replace(sString, Chr(221), "Y")
    sString = Replace(sString, Chr(253), "y")
    sString = Replace(sString, Chr(255), "y")
    
    ReplaceAccent = sString
End Function