Make Initials Capitals
Makes the initials characters capital. ie. character after space/hyphen/dot
Public Function MakeInitialsCapital(str As String) As String
Dim i As Integer, L As Integer
Dim Prev_char As String * 1
Dim c As String * 1
Dim S As String
Prev_char = " "
L = Len(str)
i = 1
S = ""
Do While i <= L
c = Mid(str, i, 1)
If Prev_char = " " Or Prev_char = "-" Or Prev_char = "." Then
c = UCase(c)
Else
c = LCase(c)
End If
If c = "M" Then
If Mid(str, i + 1, 1) = "g" Or Mid(str, i + 1, 1) = "l" Then
c = "m"
End If
End If
S = S + c
Prev_char = c
i = i + 1
Loop
str = S
MakeInitialsCapital = S
End Function
Special Instructions
This code originally appeared on AndreaVB.com, and has been republished here with the permission of Andrea Tincani.
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.