Imports System
Imports System.Text.RegularExpressions
Imports System.Globalization
Public Class Program
Public Shared Function GetPascalCase(ByVal input As String) As String
If Not input.Contains(" ") Then
input = Regex.Replace(input, "(?<=[a-z])(?=[A-Z])", " ")
End If
Dim s As String = CultureInfo.CurrentCulture.TextInfo.ToTitleCase(input.ToLower()).Replace(" ", "").Replace("_", "")
Return s
End Function
Public Shared Sub Main()
Console.WriteLine(GetPascalCase("get file content"))
Console.WriteLine(GetPascalCase("get_file_content"))
Console.WriteLine(GetPascalCase("get______file___content"))
Console.WriteLine(GetPascalCase("get______file____ content"))
Console.WriteLine(GetPascalCase("GET FILE CONTENT"))
Console.WriteLine(GetPascalCase("get file content"))
Console.WriteLine(GetPascalCase("getFileContent"))
End Sub
End Class
' run:
'
' GetFileContent
' GetFileContent
' GetFileContent
' GetFileContent
' GetFileContent
' GetFileContent
' GetFileContent
'
