[mso] Re: Access:Stripping Spaces & Vowels
- From: "Greg Chapman" <greg@xxxxxxxxxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Tue, 1 Jun 2004 21:42:03 -0500
You're right, that's ugly but it's very functional. I like it!
Here's the VBA version (no prettier, I'm afraid) with a subroutine made to
test the function:
'====================================================================
Sub TestReplaceSpaces()
strTest = "This is a test string. You capiche? I think another string "
strTest = strTest & "might be good: aeiouAEIOU ."
MsgBox strTest
strTest = ReplaceSpacesVowels(strTest)
MsgBox strTest
End Sub
'====================================================================
Function ReplaceSpacesVowels(strToSearch)
Dim arrCharacters(11)
arrCharacters(0) = "a"
arrCharacters(1) = "e"
arrCharacters(2) = "i"
arrCharacters(3) = "o"
arrCharacters(4) = "u"
arrCharacters(5) = "A"
arrCharacters(6) = "E"
arrCharacters(7) = "I"
arrCharacters(8) = "O"
arrCharacters(9) = "U"
arrCharacters(10) = " "
For I = 0 To 10
strToSearch = Replace(strToSearch, arrCharacters(I), "")
Next I
ReplaceSpacesVowels = strToSearch
End Function
'====================================================================
Greg Chapman
http://www.layer1wireless.com
http://www.mousetrax.com
"Give someone a program and frustrate them
for a day. Teach them to program and
frustrate them for a lifetime!"
> -----Original Message-----
> From: mso-bounce@xxxxxxxxxxxxx
> [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf Of Ray Blake
> Sent: Tuesday, June 01, 2004 2:46 PM
> To: mso@xxxxxxxxxxxxx
> Subject: [mso] Re: Access:Stripping Spaces & Vowels
>
>
> Glenda,
>
> Get ready for this....
>
> CutVersion:
> Replace(Replace(Replace(Replace(Replace(Replace([Field1],"a","
> "),"e","")
> ,"i",""),"o",""),"u","")," ","")
>
> That'll do it, but a custom function in VBA would probably be neater.
>
> Ray
>
> ------------------------------------
> GR Business Process Solutions
> Ray Blake
> Head of Software Design
> ray@xxxxxxxxx
> Braedon
> Newell Road
> Hemel Hempstead
> Herts HP3 9PD
> tel: 01442 396518
> fax: 01442 389353
> www.grbps.com
> ------------------------------------
>
>
> -----Original Message-----
> From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On
> Behalf Of Glenda Wells
> Sent: 01 June 2004 20:30
> To: mso@xxxxxxxxxxxxx
> Subject: [mso] Access:Stripping Spaces & Vowels
>
>
> Hi All.
> I heard something interesting at the conference I attended last week
> that will help me in my daily work but I can't figure out how
> to do it.
>
> In Access, how would one go about removing spaces and vowels
> from a text
> string?
>
> Thanks. /g
>
>
> *************************************************************
> 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).
> //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).
//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:
