by Deven K Trivedi (1 Submission)
Category: String Manipulation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 7th April 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Formating text by making first letter upper case.
Dim tempstring As String
tempstring = UCase(Left(m_string, 1))
Dim makeupper As Boolean
Dim i As Integer
makeupper = False
For i = 2 To Len(m_string)
If Mid(m_string, i, 1) = " " Or Mid(m_string, i, 1) = "," Or Mid(m_string, i, 1) = "." Or Mid(m_string, i, 1) = "-" Or Mid(m_string, i, 1) = "(" Or Mid(m_string, i, 1) = ")" Then
makeupper = True
End If
If makeupper And (Mid(m_string, i, 1) <> " " And Mid(m_string, i, 1) <> "," And Mid(m_string, i, 1) <> "." And Mid(m_string, i, 1) <> "-" And Mid(m_string, i, 1) <> "(" And Mid(m_string, i, 1) <> ")") Then
tempstring = tempstring + UCase(Mid(m_string, i, 1))
Else
tempstring = tempstring + LCase(Mid(m_string, i, 1))
End If
If Not (Mid(m_string, i, 1) = " " Or Mid(m_string, i, 1) = "," Or Mid(m_string, i, 1) = "." Or Mid(m_string, i, 1) = "-" Or Mid(m_string, i, 1) = "(" Or Mid(m_string, i, 1) = ")") Then
makeupper = False
End If
Next
wordcap = tempstring
End Function