哆哆Excel插件字符串大小写转换(VB.net代码)

    Private ReadOnly conversionOptions As New Dictionary(Of Integer, (FunctionName As String, Description As String, Example As String)) From {        {1, ("ToUpperCase", "转换为大写形式", "例如: hello -> HELLO")},        {2, ("ToLowerCase", "转换为小写形式", "例如: HELLO -> hello")},        {3, ("ToTitleCase", "标题格式（每个单词首字母大写）", "例如: hello world -> Hello World")},        {4, ("CapitalizeFirst", "句首大写（仅第一个字母大写）", "例如: hello world -> Hello world")}    }

    ''' <summary>    ''' 转换为小写形式    ''' 例如: "HELLO" -> "hello"    ''' </summary>    Public Function ToLowerCase(value As Object) As Object        If value Is Nothing Then Return ""        Return value.ToString().ToLower()    End Function    ''' <summary>    ''' 标题格式（每个单词首字母大写）    ''' 例如: "hello world" -> "Hello World"    ''' </summary>    Public Function ToTitleCase(value As Object) As Object        If value Is Nothing Then Return ""        Dim text As String = value.ToString().ToLower()        Dim textInfo As TextInfo = CultureInfo.CurrentCulture.TextInfo        Return textInfo.ToTitleCase(text)    End Function    ''' <summary>    ''' 句首大写（仅第一个字母大写，其余保持原样）    ''' 例如: "hello World" -> "Hello World"    ''' </summary>    Public Function CapitalizeFirst(value As Object) As Object        If value IsNot Nothing AndAlso value.ToString().Length > 0 Then            Dim str As String = value.ToString()            Return Char.ToUpper(str(0)) & str.Substring(1)        Else            Return If(value Is Nothing, "", value)        End If    End Function