VB Snippet - Capatalize first Letter in all words in string

[James Stanich]

Function UpAllWords(ByVal TEXTIN As String) As String
 
Dim TextinS() As String
 
Dim Letter As String
 
Dim FinalWord As String
 
Dim MyItem As Integer
 
Dim c As Integer
 
TextinS = Split(TEXTIN, " ")
 
MyItem = UBound(TextinS)
 
For c = 0 To MyItem
 
     Letter = Left(TextinS(c), 1)
 
     Letter = UCase(Letter)
 
     FinalWord = (Right(Letter, 1)) & Mid(TextinS(c), 2)
     
     TextinS(c) = FinalWord
 
     If UBound(TextinS) = c Then
          
          UpAllWords = UpAllWords & TextinS(c)
     
     Else
    
          UpAllWords = UpAllWords & TextinS(c) & " "
     
     End If
 
Next c
 
End Function

[MartinLiss]

StrConv("this is a string", vbProperCase)

Does the same thing I think.

[James Stanich]

Never get tired of pissing on my parade, huh?
Yes , you are correct....

[Hawk]

Originally posted by MartinLiss
StrConv("this is a string", vbProperCase)

Does the same thing I think.

There are some downside to STRConv.
MsgBox StrConv("C:\Documents and Settings\All Users", vbProperCase)

Would return something like this.
"C:\documents And Settings\all Users"

I think James method combined with strconv would be the idea choice. I altered your code a little bit James.

Option Explicit

Private Sub Form_Load()
    MsgBox UpAllWords("C:\documents and settings\All users", "\")
End Sub

Function UpAllWords(ByVal TEXTIN As String, Optional ByVal strDelimiter As String = " ") As String
    Dim TextinS() As String
    
    Dim c As Integer
    
    TextinS = Split(TEXTIN, strDelimiter)
    
    For c = 0 To UBound(TextinS)
         TextinS(c) = StrConv(TextinS(c), vbProperCase)
    Next c
    
    UpAllWords = Join(TextinS, strDelimiter)
End Function

[Frans C]

This all sounds very familiar to me.
The code samples are getting repeated.
http://www.vbforums.com/showthread.p...hreadid=231506

[Hawk]

Don't know where James got his original code but my code was trying to enhance his code. As for strConv, I learned years ago and I don't think that is knew to anyone.

The way you did it in the other thread still would not take care something like this

"C:\documents and settings\All users"

[Madboy]

I think this technique is know as "camel writing", because its like a camels hump. Starts high (Ucase) then goes low(Lcase).

Or was it called "donkey writing"?

[MartinLiss]

Originally posted by Madboy
I think this technique is know as "camel writing", because its like a camels hump. Starts high (Ucase) then goes low(Lcase).

Or was it called "donkey writing"?

How does your post contribute to this thread?

[Madboy]

It doesnt as such, but in one of my VB books it mentions this. And i though it would be useful to some, if they need to search such a thing