Making First Letters Upper Case in a String

[Krus1972]

I have the following string:

list = "nintendo games;blackberry phone;baby toys"

I have tried developing several small ASP scripts with no success that will parse the above string and make only the first letter of each word upper case. I am trying to achieve the following output:

Nintendo Games
Blackberry Phone
Baby Toys

I am at a lost here because everything I develop produces the following output:

NiNteNdo Games
BlackBerry Phone
BaBy Toys


Can anyone help?

Thanks

 

[Spork52]

Something like this might work:

Use the split function on semicolons to turn the string into an array of phrases.

phrasearray = split(list, ";")

Loop through the phrase array and split array elements on spaces to get arrays of words.

Loop through the word arrays and convert to proper case:

wordarray(i) = UCase(left(wordarray(i), 1) & LCase(Right(wordarray(i), len(wordarray(i)) - 1)

After the words loop is done reconstruct each phrase with join(word, " ")

Then move on to the next phrase.

 

[johnwm]

There are several VBScript versions of the TitleCase function. Google found this one first:

http://www.15seconds.com/howto/pg000078.htm

___________________________________________________________
If you want the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller
Steam Engine Prints

 

[ChrisHirst]

thread333-1230357

Chris.

Indifference will be the downfall of mankind, but who cares?
Woo Hoo! the cobblers kids get new shoes.
People Counting Systems

So long, and thanks for all the fish.

 

[jfdabiri]

try this simple one:
i think tsuji or one of the other guru's gave me this one

data = "THIS IS DATA, AS YOU CAN SEE THE WORDS" & " before conversion"
wscript.echo data
With New RegExp
	.Global = True
	.IgnoreCase = True

	.Pattern = "\b(\w)(\w*?)\b"
	WScript.echo .Replace(data, GetRef("ProperCase")) & " after conversion"

	.Pattern = "\b([a-z])([a-z]*?)\b"
	WScript.echo .Replace(data, GetRef("ProperCase")) & " after conversion" 
End With

Function ProperCase(match, submatch1, submatch2, index, source)
ProperCase = UCase(submatch1) & LCase(submatch2)
End Function

 

[travisbrown]

Is it simply for output in HTML? If it's merely style, then use the CSS transformation:

text-transform:capitalize