devxlogo

ConvertCamelCase – Convert from a string in camel case

ConvertCamelCase – Convert from a string in camel case

' change a sentence in CamelCase to a sentence with spaces' for example ConvertCamelCase("FileExchange") => "File Exchange"Public Function ConvertCamelCase(ByVal Value As String) As String    Dim i As Long    For i = 1 To Len(Trim$(Value))        ' If the character is uppercase, then insert a space before        If Asc(Mid$(Value, i, 1)) = Asc(UCase$(Mid$(Value, i, _            1))) And i  1 Then            ConvertCamelCase = ConvertCamelCase & " " & Mid$(Value, i, 1)        Else            ConvertCamelCase = ConvertCamelCase & Mid$(Value, i, 1)        End If    Next iEnd Function'###########################################################'#'#   This rountime has been brought to you by'#   Pragmatic Software Co. Inc, the creators of Defect Tracker,'#   the tool of choice for tracking functional specifications,'#   test cases and software bugs.'#   Learn more at http://www.DefectTracker.com.'#   Affiliate program also available at'#   http://www.PragmaticSW.com/AffiliateSignup.'#'###########################################################

devx-admin

Share the Post: