Parsing a string for the first character in each word

[kostrows]

I am having difficulty working with strings in a client side vbscript. I am trying to take a persons first, middle and last name which was taken from an input box then parse the string for their initials then combine their initials into a variable. I have been working on this for a few days and I know this is a very basic concept but I am not getting it. Any help would be appreciated.

 

[trollacious]

The following should handle what you wrote you want without disturbing your original string. The variable username is whatever the person has entered for their first, middle, and last name. This also handles people who have more than one "middle" name. It will not check for the number of names or if spaces weren't put between first, middle, and last names. It does, however, trim off extra spaces if more than one space is used between names.

Dim onename, initials, spaceindex

onename = Trim(username)
initials = Left(onename, 1)
spaceindex = InStr(onename, " &quot
Do While spaceindex > 0
onename = Right(onename, Len(onename)-spaceindex)
onename = Trim(onename)
initials = initials & Left(onename, 1)
spaceindex = InStr(onename, " &quot
Loop

 

[kostrows]

Trollacious, your code does exactly what I needed it to do. I was making this way too complex and ended up trying to write code that went all over the place. This is very easy to understand. Thanks for your help.