Return First Letter of Every Word in a String 1

[JordanR]

I know this is probably simple, but I haven't figured it out.
I want to take a string from a form input and return the first letter of each word. The input would be a business name so it wouldn't be a very long string.

exp. input = Tek Tips, Inc.
return = TTI

Thanks for the help.

 

[ChrisHirst]

How about this?

function Initials(Phrase)
dim wordarray
dim i
dim temp

temp = ""
WordArray = Split(Phrase," ")

for i = 0 to ubound(wordarray)
   temp = temp & ucase(left(wordarray(i)))
next
Initials = temp
end function

Not tested.



Chris.

Indifference will be the downfall of mankind, but who cares?

http://www.candsdesign.co.uk

A website that proves the cobblers kids adage.

http://www.cram-system.com

Nightclub counting systems

So long, and thanks for all the fish.

 

[ChrisHirst]

missed something

   temp = temp & ucase(left(wordarray(i),1))

Chris.

Indifference will be the downfall of mankind, but who cares?

http://www.candsdesign.co.uk

A website that proves the cobblers kids adage.

http://www.cram-system.com

Nightclub counting systems

So long, and thanks for all the fish.

 

[JordanR]

Hey, That worked great!