Excel VBA テーブル定義からJavaプロパティ名称作成

Excel VBA テーブル定義からJavaプロパティ名称作成

Excel VBA |

'
' Upper Snake Case の列定義を、Java プロパティに変換
'
Public Function ColumnDefToJavaBeanProperty(coldef As String)
    Dim c                       As String
    Dim i                       As Integer
    Dim ret                     As String
    Dim isFirstAlphaFound       As Boolean
    Dim isSep                   As Boolean
    
    coldef = LCase$(coldef)
    
    isFirstAlphaFound = False
    
    For i = 1 To Len(coldef)
        c = Mid$(coldef, i, 1)
        If c = "_" Then
            isSep = True
        Else
            
            If isSep And isFirstAlphaFound Then
                c = UCase$(c)
            End If
            
            isFirstAlphaFound = True
            isSep = False
            ret = ret + c
        End If
    Next
    
    ColumnDefToJavaBeanProperty = ret
End Function