The Weird and The Wonderful

Quote:

one thing that confuses me with programming is putting lines in the correct order

Nagy Vilmos wrote:

robust approaches

Function Namecase(ByVal Sourcestring As String) As String
    Dim ConvertChar As Integer, Jock As Integer
    Dim StringLength As Integer, loopvar As Integer
    Dim Newstring As String, Nextchar As String
    Dim MacPos As Integer, Maclen As Integer, TestMac As String

    On Error GoTo HandleErr
    'Lowercase the whole string

    StringLength = Len(Sourcestring)
    Sourcestring = LCase$(Sourcestring)

    For loopvar = 1 To StringLength
        'loop through the string letter by letter and
        'Convert the letter to uppercase if it is :-

        'The First Character in the text box
        ConvertChar = (loopvar = 1)

        'or character following space, hypen or apostrophe
        If Not ConvertChar Then ConvertChar = InStr(" -' ", Mid$(Sourcestring, (loopvar - 1), 1))

        ''or first character following a Mc for the Scots amongst us
        '    If Not ConvertChar Then
        '        If loopvar > 2 Then ConvertChar = (Mid$(SourceString, (loopvar - 2), 2) = "mc")
        '    End If

        Nextchar = Mid$(Sourcestring, loopvar, 1)
        If ConvertChar Then        'Convert character to uppercase if it meets the criteria
            Nextchar = UCase$(Nextchar)
        End If
        Newstring = Newstring & Nextchar        'Concatenate to destination
    Next loopvar
    TestMac = "|" & Newstring & "|"
    MacPos = (InStr("|Machin|Macaskill|Mack|Mackie|Macaly|Macy|Mace|Macari|Macley|Macnamara|Mackay|", TestMac))
    Jock = (MacPos = 0)
    If Jock Then
        MacPos = InStr(Newstring, "Mac")
        Maclen = Len(Newstring)
        If MacPos > 0 Then
            Newstring = left$(Newstring, MacPos + 2) & (UCase$(Mid$(Newstring, MacPos + 3, 1)) & right$(Newstring, (Maclen - (MacPos + 3))))
        End If
        MacPos = InStr(Newstring, "Mc")
        If MacPos > 0 Then
            Newstring = left$(Newstring, MacPos + 1) & (UCase$(Mid$(Newstring, MacPos + 2, 1)) & right$(Newstring, (Maclen - (MacPos + 2))))
        End If
    End If
    Namecase = Newstring        'return the completed string

ExitHere:
    Exit Function

    ' Error handling block added by Error Handler Add-In. DO NOT EDIT this block of code.
    ' Automatic error handler last updated at 09-21-2004 10:35:07   'ErrorHandler:$$D=09-21-2004    'ErrorHandler:$$T=10:35:07
HandleErr:
    Select Case Err.Number
        Case Else
            MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "modFunctions.Namecase"        'ErrorHandler:$$N=modFunctions.Namecase
    End Select
    ' End Error handling block.
End Function