borderAndreaVB free resources for Visual Basic developersborder
AndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2017 Andrea Tincani
:: Make Initals Capitals

Author  

Raju V

Language  

VB5, VB6

Operating Systems  

Windows 95, 98, NT, 2k, Me and XP
Module
Option Explicit

' MODULE
' 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
Usage
' USAGE
'Create a form with a button and a text box
Private Sub Command1_Click()
    Text1 = MakeInitialsCapital(Text1)
End Sub
:: Navigation

Home

Beginners Corner

Previous Tip

Next Tip

:: Search this site
Google
borderAndreaVB free resources for Visual Basic developersborder
borderAndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2017 Andrea Tincaniborder