Excel VBA テーブル定義からJavaプロパティ名称作成 - 版の履歴

2020年2月16日 (日) 04:25にPirotoによる

2020-02-16T04:25:16Z

2020年2月15日 (土) 08:35にPirotoによる

2020-02-15T08:35:26Z

2020年2月15日 (土) 08:02にPirotoによる

2020-02-15T08:02:20Z

Piroto: ページの作成:「==Excel VBA テーブル定義からJavaプロパティ名称作成== [Excel VBA] ' ' Upper Snake Case の列定義を、Java プロパティに変換 ' Public…」

2020-02-15T07:32:02Z

ページの作成:「==Excel VBA テーブル定義からJavaプロパティ名称作成== [Excel VBA] ' ' Upper Snake Case の列定義を、Java プロパティに変換 ' Public…」

新規ページ

==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

@@ 1行目: / 1行目: @@
 ==Excel VBA テーブル定義からJavaプロパティ名称作成==
-[[Excel VBA]]
+[[Excel VBA]] |
+  '

@@ 1行目: / 1行目: @@
-==Excel VBA テーブル定義からJavaプロパティ名称作成==
+==[[Excel VBA テーブル定義からJavaプロパティ名称作成]]==
 [[Excel VBA]] |
+  '
-  ' Upper Snake Case の列定義を、Java プロパティに変換
+  ' Upper Snake Case の列定義を、[[Java]] プロパティに変換
+  '
-  Public Function ColumnDefToJavaBeanProperty(coldef As String)
+  Public Function ColumnDefTo[[Java]]BeanProperty(coldef As String)
       Dim c                       As String
       Dim i                       As Integer
@@ 32行目: / 32行目: @@
       Next
-      ColumnDefToJavaBeanProperty = ret
+      ColumnDefTo[[Java]]BeanProperty = ret
   End Function