G
Guest
I know this is probably a very overworked issue but thought I'd share the
code below to convert words in a text string to capitalize the first letter
of the word using an array of word delimiters. Hope it not too simplistic
for posting on thie newsgroup:
Private Overloads Function CapWords(ByVal textstring As String, ByRef
Delimiters() As Char) As String
If textstring Is Nothing OrElse textstring.Length <= 0 Then Return
Nothing
If textstring.length=1 then return textstring.ToUpper
Dim i As Integer = 1
Dim c() As Char = textstring.ToCharArray
c(0) = Char.ToUpper(c(0))
While i < c.Length - 1
If Array.IndexOf(Delimiters, c(i)) >= 0 Then c(i + 1) =
Char.ToUpper(c(i + 1))
i += 1
End While
Dim b As New StringBuilder
Return b.Append(c).ToString
End Function
Private Overloads Function CapWords(ByVal textstring As String, ByRefl
Delimiter As Char) As String
Dim Delimiters() As Char = {Delimiter}
Return CapWords(textstring, Caps, Delimiters)
End Function
code below to convert words in a text string to capitalize the first letter
of the word using an array of word delimiters. Hope it not too simplistic
for posting on thie newsgroup:
Private Overloads Function CapWords(ByVal textstring As String, ByRef
Delimiters() As Char) As String
If textstring Is Nothing OrElse textstring.Length <= 0 Then Return
Nothing
If textstring.length=1 then return textstring.ToUpper
Dim i As Integer = 1
Dim c() As Char = textstring.ToCharArray
c(0) = Char.ToUpper(c(0))
While i < c.Length - 1
If Array.IndexOf(Delimiters, c(i)) >= 0 Then c(i + 1) =
Char.ToUpper(c(i + 1))
i += 1
End While
Dim b As New StringBuilder
Return b.Append(c).ToString
End Function
Private Overloads Function CapWords(ByVal textstring As String, ByRefl
Delimiter As Char) As String
Dim Delimiters() As Char = {Delimiter}
Return CapWords(textstring, Caps, Delimiters)
End Function