[mso] Re: Access & Vowels

Glenda--

Oh, finally, an easy one. ;-) Try this:
----------------------------------
Public Function sStripVowels(sIn As String) As String
    Dim asVowels() As Variant
    Dim iLoop As Integer
    sStripVowels = sIn
    
    asVowels() = Array("a", "e", "i", "o", "u", " ")

    For iLoop = 0 To UBound(asVowels)
        sStripVowels = Replace(sStripVowels, asVowels(iLoop), vbNullString)
    Next iLoop
    sStripVowels = UCase(sStripVowels)

End Function
-----------------------------------

Note 1: you can remove any character just by placing it in place if the
vowels.
Note 2: if you don't wish to use uppercase, get rid of tht Ucase function
call.

--Jim

-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf
Of Glenda Wells
Sent: Tuesday, July 26, 2005 8:18 AM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Access & Vowels

In Access, how would one strip all the vowels and spaces out of a street
address?

Example:

421 North Woodland Boulevard

becomes

421NRTHWDLNDBLVRD

Thanks. /glenda


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx
with the word "unsubscribe" (without the quotes) in the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also
allow you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation
with instructions.  Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in 
the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: