VBScript - String - first letters to Uppercase

Hello,

Can anyone please help me with a function that takes a string, a name,
and makes all the first letters Uppercase?

Actually I can already kinda do the above but I'm stuck on initials eg
if I get...

"j.earl jones a.watson" I would like to make that "J.Earl Jones
A.Watson"
and of course if I get just "a.watson" turn that into "A.Watson"
or simply change "james" to "James" and "james watson" to James
Watson.

Basically all the 1st letters unless there is a "." in which case the
first letter also after the "."

It would also be nice to put some kind of a check in case I get
"j.earl." and there is nothing after the "." then leave it.

Thank you in advance :-)

Yas

McKirahan
Mon Sep 03 07:13:20 PDT 2007

"Yas" <yasar1@gmail.com> wrote in message
news:1188828431.576261.18550@g4g2000hsf.googlegroups.com...
> Hello,
>
> Can anyone please help me with a function that takes a string, a name,
> and makes all the first letters Uppercase?

What about names where either the first letter should not be
capitalized and/or another letter should also be capitalized?

For example, "Diane von Furstenberg" and "DuPont".

mayayana
Mon Sep 03 07:20:30 PDT 2007

> Actually I can already kinda do the above but I'm stuck on initials eg
> if I get...
>
> "j.earl jones a.watson" I would like to make that "J.Earl Jones
> A.Watson

That's really a syntax error. j.earl should be j. earl
It's the same situation as it would be at the end of
a sentence. How could you decide how to capitalize
in this: "the first sentence.the next sentence here."
...unless you just decide that all characters after "."
are in capitals. Wouldn't it be better to just require
proper syntax for the function to work?

mayayana
Mon Sep 03 09:47:45 PDT 2007


> > Can anyone please help me with a function that takes a string, a name,
> > and makes all the first letters Uppercase?
>
> What about names where either the first letter should not be
> capitalized and/or another letter should also be capitalized?
>
> For example, "Diane von Furstenberg" and "DuPont".
>
That's an interesting point. I don't think it can be
accomodated short of a spell-checker type word list,
though. VB has an option of "proper case" with the
StrConv function, which capitalizes the first letter in
each word, but it won't recognize von in von Furstenburg.
(And unfortunately there's no StrConv in VBScript.)

Yas
Mon Sep 03 10:04:44 PDT 2007

On 3 Sep, 18:47, "mayayana" <mayaXXyan...@mindXXspring.com> wrote:
> > > Can anyone please help me with a function that takes a string, a name,
> > > and makes all the first letters Uppercase?
>
> > What about names where either the first letter should not be
> > capitalized and/or another letter should also be capitalized?
>
> > For example, "Diane von Furstenberg" and "DuPont".
>
> That's an interesting point. I don't think it can be
> accomodated short of a spell-checker type word list,
> though. VB has an option of "proper case" with the
> StrConv function, which capitalizes the first letter in
> each word, but it won't recognize von in von Furstenburg.
> (And unfortunately there's no StrConv in VBScript.)

Hi All,

Thanks for the Input. I actually don't care too much about names that
don't start with capitals nor names where a centre letter should be
capitalised. As these display names are for my own record only so if
von is written as Von it's fine.

So still my requirements are listed above, make every first letter a
capital regardless of type of name make initial and first letter after
"." a capital eg j.jose -> J.Jose.

Many thanks

Yas

Yas
Mon Sep 03 13:31:26 PDT 2007

On 3 Sep, 19:04, Yas <yas...@gmail.com> wrote:
> On 3 Sep, 18:47, "mayayana" <mayaXXyan...@mindXXspring.com> wrote:
>
> > > > Can anyone please help me with a function that takes a string, a name,
> > > > and makes all the first letters Uppercase?
>
> > > What about names where either the first letter should not be
> > > capitalized and/or another letter should also be capitalized?
>
> > > For example, "Diane von Furstenberg" and "DuPont".
>
> > That's an interesting point. I don't think it can be
> > accomodated short of a spell-checker type word list,
> > though. VB has an option of "proper case" with the
> > StrConv function, which capitalizes the first letter in
> > each word, but it won't recognize von in von Furstenburg.
> > (And unfortunately there's no StrConv in VBScript.)

Hi, I think my Function works now....here is what I have...I would be
greatful if anyone can make suggestions/improvments...
Thanks

Function ConvUCase(strName)

Dim name, int, myArray, elm

IF (InStr(strName," ")) Then

myArray = Split(strName, " ")
int = 0
For Each elm in myArray

myArray(int) = UCase(Left(myArray(int),1)) &
Right(myArray(int), Len(myArray(int))-1)

If (InStr(strName,".")) Then

myArray(int) = UCase(Left(myArray(int),InStr(myArray(int),".")+1))
& _
Right(myArray(int),(Len(myArray(int))) - (InStr(myArray(int),".")
+1))

End If
int = int + 1
Next

name = Join(myArray)

Else
If (InStr(strName,".")) Then

name = UCase(Left(strName,1)) & Right(strName,Len(strName)-1)
name = UCase(Left(strName,InStr(strName,".")+1)) & Right(strName,
(Len(strName)) - (InStr(strName,".")+1))
Else
name = UCase(Left(strName,1)) & Right(strName,Len(strName)-1)
End If
End IF

convUCase = name

End Function

Yas
Mon Sep 03 13:31:34 PDT 2007

On 3 Sep, 19:04, Yas <yas...@gmail.com> wrote:
> On 3 Sep, 18:47, "mayayana" <mayaXXyan...@mindXXspring.com> wrote:
>
> > > > Can anyone please help me with a function that takes a string, a name,
> > > > and makes all the first letters Uppercase?
>
> > > What about names where either the first letter should not be
> > > capitalized and/or another letter should also be capitalized?
>
> > > For example, "Diane von Furstenberg" and "DuPont".
>
> > That's an interesting point. I don't think it can be
> > accomodated short of a spell-checker type word list,
> > though. VB has an option of "proper case" with the
> > StrConv function, which capitalizes the first letter in
> > each word, but it won't recognize von in von Furstenburg.
> > (And unfortunately there's no StrConv in VBScript.)

Hi, I think my Function works now....here is what I have...I would be
greatful if anyone can make suggestions/improvments...
Thanks

Function ConvUCase(strName)

Dim name, int, myArray, elm

IF (InStr(strName," ")) Then

myArray = Split(strName, " ")
int = 0
For Each elm in myArray

myArray(int) = UCase(Left(myArray(int),1)) &
Right(myArray(int), Len(myArray(int))-1)

If (InStr(strName,".")) Then

myArray(int) = UCase(Left(myArray(int),InStr(myArray(int),".")+1))
& _
Right(myArray(int),(Len(myArray(int))) - (InStr(myArray(int),".")
+1))

End If
int = int + 1
Next

name = Join(myArray)

Else
If (InStr(strName,".")) Then

name = UCase(Left(strName,1)) & Right(strName,Len(strName)-1)
name = UCase(Left(strName,InStr(strName,".")+1)) & Right(strName,
(Len(strName)) - (InStr(strName,".")+1))
Else
name = UCase(Left(strName,1)) & Right(strName,Len(strName)-1)
End If
End IF

convUCase = name

End Function

Yas
Mon Sep 03 13:31:40 PDT 2007

On 3 Sep, 19:04, Yas <yas...@gmail.com> wrote:
> On 3 Sep, 18:47, "mayayana" <mayaXXyan...@mindXXspring.com> wrote:
>
> > > > Can anyone please help me with a function that takes a string, a name,
> > > > and makes all the first letters Uppercase?
>
> > > What about names where either the first letter should not be
> > > capitalized and/or another letter should also be capitalized?
>
> > > For example, "Diane von Furstenberg" and "DuPont".
>
> > That's an interesting point. I don't think it can be
> > accomodated short of a spell-checker type word list,
> > though. VB has an option of "proper case" with the
> > StrConv function, which capitalizes the first letter in
> > each word, but it won't recognize von in von Furstenburg.
> > (And unfortunately there's no StrConv in VBScript.)

Hi, I think my Function works now....here is what I have...I would be
greatful if anyone can make suggestions/improvments...
Thanks

Function ConvUCase(strName)

Dim name, int, myArray, elm

IF (InStr(strName," ")) Then

myArray = Split(strName, " ")
int = 0
For Each elm in myArray

myArray(int) = UCase(Left(myArray(int),1)) &
Right(myArray(int), Len(myArray(int))-1)

If (InStr(strName,".")) Then

myArray(int) = UCase(Left(myArray(int),InStr(myArray(int),".")+1))
& _
Right(myArray(int),(Len(myArray(int))) - (InStr(myArray(int),".")
+1))

End If
int = int + 1
Next

name = Join(myArray)

Else
If (InStr(strName,".")) Then

name = UCase(Left(strName,1)) & Right(strName,Len(strName)-1)
name = UCase(Left(strName,InStr(strName,".")+1)) & Right(strName,
(Len(strName)) - (InStr(strName,".")+1))
Else
name = UCase(Left(strName,1)) & Right(strName,Len(strName)-1)
End If
End IF

convUCase = name

End Function

John
Mon Sep 03 15:44:06 PDT 2007


"Yas" <yasar1@gmail.com> wrote in message news:1188828431.576261.18550@g4g2000hsf.googlegroups.com...
> Hello,
>
> Can anyone please help me with a function that takes a string, a name,
> and makes all the first letters Uppercase?
>
> Actually I can already kinda do the above but I'm stuck on initials eg
> if I get...
>
> "j.earl jones a.watson" I would like to make that "J.Earl Jones
> A.Watson"
> and of course if I get just "a.watson" turn that into "A.Watson"
> or simply change "james" to "James" and "james watson" to James
> Watson.
>
> Basically all the 1st letters unless there is a "." in which case the
> first letter also after the "."
>
> It would also be nice to put some kind of a check in case I get
> "j.earl." and there is nothing after the "." then leave it.
>
> Thank you in advance :-)
>
> Yas
>

Your own function looks a bit complicated to me. Taking your 'spec' exactly as written and your later clarifications, try this:

Option Explicit

Capitalise ("j.earl jones a.watson")
Capitalise ("j. earl")
Capitalise ("j.earl.")
Capitalise ("a.watson")
Capitalise ("james")
Capitalise ("james watson")


Function Capitalise(strName)

Dim i, capNext

Capitalise = ""
capNext = True

For i = 1 To Len(strName)
If capNext Then
Capitalise = Capitalise & UCase(Mid(strName,i,1))
If Instr(". ",Mid(strName,i,1)) = 0 Then capNext = False
Else
Capitalise = Capitalise & Mid(strName,i,1)
If Instr(". ",Mid(strName,i,1)) > 0 Then capNext = True
End If
Next

Wscript.Echo "Original: " & strName
Wscript.Echo "Capitalised: " & Capitalise

End Function

mayayana
Mon Sep 03 19:32:37 PDT 2007

Here's another approach that uses tokenizing. I don't
know whether this is the most efficient method, but
it's flexible if you want to make adaptations or add
complexity later.
For instance, if you decide that you also want all
letters after a colon or dash to be uppercase - or
not - those variations can be easily coded into
this function:

Function TokenizeProperCase(s1)
Dim i2, LenS1, BooNext, iAsc
Dim A1()
LenS1 = Len(s1)
ReDim A1(LenS1)
For i2 = 1 to LenS1
iAsc = Asc(Mid(s1, i2, 1))
Select Case iAsc
Case 46, 32, 9, 10 '-- ".", " ", vbLf, vbTab
BooNext = True
Case Else
If (BooNext = True) Then
If iAsc > 96 And iAsc < 123 Then iAsc = iAsc - 32
End If
BooNext = False
End Select
A1(i2) = Chr(iAsc)
Next
TokenizeProperCase = Join(A1, "")
End Function

Part of the reason I wrote it the way I did
was to avoid creating, concatenating, and releasing
a lot of little strings. I haven't tested this code on a large
input string to see how fast it is, but it seems like this
approach should be about as efficient as script
can get because while it's doing a lot of comparisons,
aside from loading the array it doesn't need to do any
other operations with variables in memory. It just
builds the new string in the array. (FAR more efficient
would be to have a byte or integer array that is then
converted directly to a string, but VBS can't do that
without doing a Chr() operation on each array
member.)

John
Tue Sep 04 02:05:40 PDT 2007


"mayayana" <mayaXXyana1a@mindXXspring.com> wrote in message news:OLXTmwp7HHA.4584@TK2MSFTNGP03.phx.gbl...
> Here's another approach that uses tokenizing. I don't
> know whether this is the most efficient method, but
> it's flexible if you want to make adaptations or add
> complexity later.
> For instance, if you decide that you also want all
> letters after a colon or dash to be uppercase - or
> not - those variations can be easily coded into
> this function:
>
> Function TokenizeProperCase(s1)
> Dim i2, LenS1, BooNext, iAsc
> Dim A1()
> LenS1 = Len(s1)
> ReDim A1(LenS1)
> For i2 = 1 to LenS1
> iAsc = Asc(Mid(s1, i2, 1))
> Select Case iAsc
> Case 46, 32, 9, 10 '-- ".", " ", vbLf, vbTab
> BooNext = True
> Case Else
> If (BooNext = True) Then
> If iAsc > 96 And iAsc < 123 Then iAsc = iAsc - 32
> End If
> BooNext = False
> End Select
> A1(i2) = Chr(iAsc)
> Next
> TokenizeProperCase = Join(A1, "")
> End Function
>
> Part of the reason I wrote it the way I did
> was to avoid creating, concatenating, and releasing
> a lot of little strings. I haven't tested this code on a large
> input string to see how fast it is, but it seems like this
> approach should be about as efficient as script
> can get because while it's doing a lot of comparisons,
> aside from loading the array it doesn't need to do any
> other operations with variables in memory. It just
> builds the new string in the array. (FAR more efficient
> would be to have a byte or integer array that is then
> converted directly to a string, but VBS can't do that
> without doing a Chr() operation on each array
> member.)
>
>
>

You must have gone wrong somewhere as your function doesn't capitalise the first letter.

John
Tue Sep 04 02:13:50 PDT 2007


"John W" <johnXZwilliams.XZesquire@XZgmail.com> wrote in message news:jKCdnQXEd7GrE0HbnZ2dnUVZ8v-dnZ2d@pipex.net...
>
> "Yas" <yasar1@gmail.com> wrote in message news:1188828431.576261.18550@g4g2000hsf.googlegroups.com...
>> Hello,
>>
>> Can anyone please help me with a function that takes a string, a name,
>> and makes all the first letters Uppercase?
>>
>> Actually I can already kinda do the above but I'm stuck on initials eg
>> if I get...
>>
>> "j.earl jones a.watson" I would like to make that "J.Earl Jones
>> A.Watson"
>> and of course if I get just "a.watson" turn that into "A.Watson"
>> or simply change "james" to "James" and "james watson" to James
>> Watson.
>>
>> Basically all the 1st letters unless there is a "." in which case the
>> first letter also after the "."
>>
>> It would also be nice to put some kind of a check in case I get
>> "j.earl." and there is nothing after the "." then leave it.
>>
>> Thank you in advance :-)
>>
>> Yas
>>
>
> Your own function looks a bit complicated to me. Taking your 'spec' exactly as written and your later clarifications, try this:
>
> Option Explicit
>
> Capitalise ("j.earl jones a.watson")
> Capitalise ("j. earl")
> Capitalise ("j.earl.")
> Capitalise ("a.watson")
> Capitalise ("james")
> Capitalise ("james watson")
>
>
> Function Capitalise(strName)
>
> Dim i, capNext
>
> Capitalise = ""
> capNext = True
>
> For i = 1 To Len(strName)
> If capNext Then
> Capitalise = Capitalise & UCase(Mid(strName,i,1))
> If Instr(". ",Mid(strName,i,1)) = 0 Then capNext = False
> Else
> Capitalise = Capitalise & Mid(strName,i,1)
> If Instr(". ",Mid(strName,i,1)) > 0 Then capNext = True
> End If
> Next
>
> Wscript.Echo "Original: " & strName
> Wscript.Echo "Capitalised: " & Capitalise
>
> End Function
>

Taking the idea of allowing other characters to force the next character to be capitalised, here is my modified code. It also
takes advantage of the fact that 0 = false and >0 = true (the values returned by Instr), so is actually shorter and more efficient
than my original.

Option Explicit

Dim sNames, sName
sNames = Array("j.earl jones a.watson", "j. earl", "j.earl.", _
"a.watson", "james", "james watson")

For Each sName In sNames
Capitalise(sName)
Next


Function Capitalise(strName)

Dim i, capNext, capNextChars

Capitalise = ""
capNextChars = ". " & Chr(9) & Chr(10) '9=tab; 10=linefeed
capNext = True

For i = 1 To Len(strName)
If capNext Then
Capitalise = Capitalise & UCase(Mid(strName,i,1))
Else
Capitalise = Capitalise & Mid(strName,i,1)
End If
capNext = Instr(capNextChars,Mid(strName,i,1))
Next

Wscript.Echo "Original: " & strName
Wscript.Echo "Capitalised: " & Capitalise

End Function

mayayana
Tue Sep 04 05:15:30 PDT 2007


> You must have gone wrong somewhere as your function doesn't capitalise the
first letter.
>
Yes. That would need to be dealt with separately
if necessary. The function sets a flag for *the next
character* when it comes to a space, tab, etc. So
the very first character gets missed. I suppose the
easiest way to deal with that would be to just add
a space in front of the string.

Al
Tue Sep 04 22:25:28 PDT 2007


"John W" <johnXZwilliams.XZesquire@XZgmail.com> wrote in message
news:-ZmdnZAQIPZTvEDbnZ2dneKdnZydnZ2d@pipex.net...
>
> "John W" <johnXZwilliams.XZesquire@XZgmail.com> wrote in message
> news:jKCdnQXEd7GrE0HbnZ2dnUVZ8v-dnZ2d@pipex.net...
>>
>> "Yas" <yasar1@gmail.com> wrote in message
>> news:1188828431.576261.18550@g4g2000hsf.googlegroups.com...
>>> Hello,
>>>
>>> Can anyone please help me with a function that takes a string, a name,
>>> and makes all the first letters Uppercase?
>>>
>>> Actually I can already kinda do the above but I'm stuck on initials eg
>>> if I get...
>>>
>>> "j.earl jones a.watson" I would like to make that "J.Earl Jones
>>> A.Watson"
>>> and of course if I get just "a.watson" turn that into "A.Watson"
>>> or simply change "james" to "James" and "james watson" to James
>>> Watson.
>>>
>>> Basically all the 1st letters unless there is a "." in which case the
>>> first letter also after the "."
>>>
>>> It would also be nice to put some kind of a check in case I get
>>> "j.earl." and there is nothing after the "." then leave it.
>>>
>>> Thank you in advance :-)
>>>
>>> Yas
>>>
>>
>> Your own function looks a bit complicated to me. Taking your 'spec'
>> exactly as written and your later clarifications, try this:
>>
>> Option Explicit
>>
>> Capitalise ("j.earl jones a.watson")
>> Capitalise ("j. earl")
>> Capitalise ("j.earl.")
>> Capitalise ("a.watson")
>> Capitalise ("james")
>> Capitalise ("james watson")
>>
>>
>> Function Capitalise(strName)
>>
>> Dim i, capNext
>>
>> Capitalise = ""
>> capNext = True
>>
>> For i = 1 To Len(strName)
>> If capNext Then
>> Capitalise = Capitalise & UCase(Mid(strName,i,1))
>> If Instr(". ",Mid(strName,i,1)) = 0 Then capNext = False
>> Else
>> Capitalise = Capitalise & Mid(strName,i,1)
>> If Instr(". ",Mid(strName,i,1)) > 0 Then capNext = True
>> End If
>> Next
>>
>> Wscript.Echo "Original: " & strName
>> Wscript.Echo "Capitalised: " & Capitalise
>>
>> End Function
>>
>
> Taking the idea of allowing other characters to force the next character
> to be capitalised, here is my modified code. It also takes advantage of
> the fact that 0 = false and >0 = true (the values returned by Instr), so
> is actually shorter and more efficient than my original.
>
> Option Explicit
>
> Dim sNames, sName
> sNames = Array("j.earl jones a.watson", "j. earl", "j.earl.", _
> "a.watson", "james", "james watson")
>
> For Each sName In sNames
> Capitalise(sName)
> Next
>
>
> Function Capitalise(strName)
>
> Dim i, capNext, capNextChars
>
> Capitalise = ""
> capNextChars = ". " & Chr(9) & Chr(10) '9=tab; 10=linefeed
> capNext = True
>
> For i = 1 To Len(strName)
> If capNext Then
> Capitalise = Capitalise & UCase(Mid(strName,i,1))
> Else
> Capitalise = Capitalise & Mid(strName,i,1)
> End If
> capNext = Instr(capNextChars,Mid(strName,i,1))
> Next
>
> Wscript.Echo "Original: " & strName
> Wscript.Echo "Capitalised: " & Capitalise
>
> End Function

But if the end result is that only the initials are capitalized, shouldn't
perhaps all of the non-initial letters be de-capitalized? Otherwise the
assumption is that all input is lower case. For an example, make this change
to your last script:

> sNames = Array("J.EARL JONES A.WATSON")

/Al

Al
Tue Sep 04 22:18:41 PDT 2007


"mayayana" <mayaXXyana1a@mindXXspring.com> wrote in message
news:uoCLupk7HHA.1900@TK2MSFTNGP02.phx.gbl...
>
>> > Can anyone please help me with a function that takes a string, a name,
>> > and makes all the first letters Uppercase?
>>
>> What about names where either the first letter should not be
>> capitalized and/or another letter should also be capitalized?
>>
>> For example, "Diane von Furstenberg" and "DuPont".
>>
> That's an interesting point. I don't think it can be
> accomodated short of a spell-checker type word list,
> though. VB has an option of "proper case" with the
> StrConv function, which capitalizes the first letter in
> each word, but it won't recognize von in von Furstenburg.
> (And unfortunately there's no StrConv in VBScript.)

Even the spell-checker approach would fail given that more than one
capitalization happens to be valid, i.e."

de Vries
De vries

/Al

McKirahan
Tue Sep 04 23:49:46 PDT 2007

"Al Dunbar" <AlanDrub@hotmail.com.nospaam> wrote in message
news:uqDW2937HHA.1212@TK2MSFTNGP05.phx.gbl...
>

> >> "Yas" <yasar1@gmail.com> wrote in message
> >> news:1188828431.576261.18550@g4g2000hsf.googlegroups.com...
> >>> Hello,
> >>>
> >>> Can anyone please help me with a function that takes a string, a name,
> >>> and makes all the first letters Uppercase?
> >>>
> >>> Actually I can already kinda do the above but I'm stuck on initials eg
> >>> if I get...
> >>>
> >>> "j.earl jones a.watson" I would like to make that "J.Earl Jones
> >>> A.Watson"


> But if the end result is that only the initials are capitalized, shouldn't
> perhaps all of the non-initial letters be de-capitalized? Otherwise the
> assumption is that all input is lower case. For an example, make this
change
> to your last script:
>
> > sNames = Array("J.EARL JONES A.WATSON")

The original post (above) indicated that all letters start in lowercase.

Yas
Wed Sep 05 02:00:15 PDT 2007

On 5 Sep, 08:53, "McKirahan" <N...@McKirahan.com> wrote:
> "Al Dunbar" <AlanD...@hotmail.com.nospaam> wrote in message
>
> news:uqDW2937HHA.1212@TK2MSFTNGP05.phx.gbl...
>
>
>
>
>
>
>
> > >> "Yas" <yas...@gmail.com> wrote in message
> > >>news:1188828431.576261.18550@g4g2000hsf.googlegroups.com...
> > >>> Hello,
>
> > >>> Can anyone please help me with a function that takes a string, a name,
> > >>> and makes all the first letters Uppercase?
>
> > >>> Actually I can already kinda do the above but I'm stuck on initials eg
> > >>> if I get...
>
> > >>> "j.earl jones a.watson" I would like to make that "J.Earl Jones
> > >>> A.Watson"
> > But if the end result is that only the initials are capitalized, shouldn't
> > perhaps all of the non-initial letters be de-capitalized? Otherwise the
> > assumption is that all input is lower case. For an example, make this
> change
> > to your last script:
>
> > > sNames = Array("J.EARL JONES A.WATSON")
>
> The original post (above) indicated that all letters start in lowercase.

This is great! Thanks guys! :-)

Yas

Al
Mon Sep 17 19:11:22 PDT 2007


"McKirahan" <News@McKirahan.com> wrote in message
news:2pCdnVQLOtAXzEPbnZ2dnUVZ_oqhnZ2d@comcast.com...
> "Al Dunbar" <AlanDrub@hotmail.com.nospaam> wrote in message
> news:uqDW2937HHA.1212@TK2MSFTNGP05.phx.gbl...
>>
>
>> >> "Yas" <yasar1@gmail.com> wrote in message
>> >> news:1188828431.576261.18550@g4g2000hsf.googlegroups.com...
>> >>> Hello,
>> >>>
>> >>> Can anyone please help me with a function that takes a string, a
>> >>> name,
>> >>> and makes all the first letters Uppercase?
>> >>>
>> >>> Actually I can already kinda do the above but I'm stuck on initials
>> >>> eg
>> >>> if I get...
>> >>>
>> >>> "j.earl jones a.watson" I would like to make that "J.Earl Jones
>> >>> A.Watson"
>
>
>> But if the end result is that only the initials are capitalized,
>> shouldn't
>> perhaps all of the non-initial letters be de-capitalized? Otherwise the
>> assumption is that all input is lower case. For an example, make this
> change
>> to your last script:
>>
>> > sNames = Array("J.EARL JONES A.WATSON")
>
> The original post (above) indicated that all letters start in lowercase.

Interesting that we expect the user to forget to capitalize the initial
letters, but we take it for granted that is the only possible error. hAVEN'T
YOU EVER HIT THE CAPSLOCK KEY BY MISTAKE? i KNOW i HAVE.

/Al