EsbOtlGetAttributeSpecifications

アウトラインの属性指定を取得します。

構文

            EsbOtlGetAttributeSpecifications
             (
            hOutline
            , 
            AttrSpecs
            )
ByVal 
            hOutline
              As Long
      
            AttrSpecs
             As ESB_ATTRSPECS_T

パラメータ	説明
hOutline	アウトラインのハンドル
AttrSpecs	属性指定

備考

この関数は、開かれたアウトラインから情報を戻すということを除けば、EsbGetAttributeSpecifications()と同様の関数です。
アウトラインの属性指定を設定するには、EsbOtlSetAttributeSpecifications()を使用します。
属性指定は、次のような場合に使用します:
- ロング名の生成
- 日時属性のフォーマットの指定
- 数値属性のバケットのタイプの指定
- 属性計算次元名およびそこで使用される値の名前の提供

戻り値

正常終了の場合はSTS = 0が戻されます。それ以外の場合、エラー・コードが戻されます。

アクセス

この関数を使用するのに、特別な権限は必要ありません。

例

         Sub ESB_OtlGetAttributeSpecifications()
        Dim OutAttrSpecs As ESB_ATTRSPECS_T
        Dim test As String
        Dim sts as long
        hOutline = ESB_OtlOpenOutline
        If hOutline = vbNull Then Out "ESB_OtlOpenOutline() failed: " & sts: Exit Sub
        sts = EsbOtlGetAttributeSpecifications(hOutline, OutAttrSpecs)
        If sts <> 0 Then Out "ESB_OtlGetAttributeSpecifications failed" & sts: Exit Sub
        Out "ESB_OtlGetAttributeSpecifications passed: " & sts
        Out "DefaultTrueString : " & OutAttrSpecs.DefaultTrueString
        Out "DefaultFalseString : " & OutAttrSpecs.DefaultFalseString
        Out "DefaultAttrCalcDimName : " & OutAttrSpecs.DefaultAttrCalcDimName
        Out "DefaultSumMbrName : " & OutAttrSpecs.DefaultSumMbrName
        Out "DefaultCountMbrName : " & OutAttrSpecs.DefaultCountMbrName
        Out "DefaultAverageMbrName : " & OutAttrSpecs.DefaultAverageMbrName
        Out "DefaultMinMbrName : " & OutAttrSpecs.DefaultMinMbrName
        Out "DefaultMaxMbrName : " & OutAttrSpecs.DefaultMaxMbrName
        test = OutAttrSpecs.GenNameBy
        Select Case test
                Case ESB_GENNAMEBY_PREFIX
                        Out "GenNameBy : ESB_GENNAMEBY_PREFIX"
                Case ESB_GENNAMEBY_SUFFIX
                        Out "GenNameBy : ESB_GENNAMEBY_SUFFIX"
                Case Else
                        Out "GenNameBy : invalid"
        End Select
        test = OutAttrSpecs.UseNameOf
        Select Case test
                Case ESB_USENAMEOF_NONE
                        Out "UseNameOf : ESB_USENAMEOF_NONE"
                Case ESB_USENAMEOF_PARENT
                        Out "UseNameOf : ESB_USENAMEOF_PARENT"
                Case ESB_USENAMEOF_GRANDPARENTANDPARENT
                        Out "UseNameOf : ESB_USENAMEOF_GRANDPARENTANDPARENT"
                Case ESB_USENAMEOF_ALLANCESTORS
                        Out "UseNameOf : ESB_USENAMEOF_ALLANCESTORS"
                Case ESB_USENAMEOF_DIMENSION
                        Out "UseNameOf : ESB_USENAMEOF_DIMENSION"
                Case Else
                        Out "UseNameOf : invalid"
        End Select
        test = OutAttrSpecs.Delimiter
        Select Case test
                Case ESB_DELIMITER_UNDERSCORE
                        Out "Delimiter : ESB_DELIMITER_UNDERSCORE"
                Case ESB_DELIMITER_PIPE
                        Out "Delimiter : ESB_DELIMITER_PIPE"
                Case ESB_DELIMITER_CARET
                        Out "Delimiter : ESB_DELIMITER_CARET"
                Case Else
                        Out "Delimiter : invalid"
        End Select
        test = OutAttrSpecs.DateFormat
        Select Case test
                Case ESB_DATEFORMAT_MMDDYYYY
                        Out "DateFormat : ESB_DATEFORMAT_MMDDYYYY"
                Case ESB_DATEFORMAT_DDMMYYYY
                        Out "DateFormat : ESB_DATEFORMAT_DDMMYYYY"
                Case Else
                        Out "Delimiter : invalid"
        End Select
        test = OutAttrSpecs.BucketingType
        Select Case test
                Case ESB_UPPERBOUNDINCLUSIVE
                        Out "BucketingType : ESB_UPPERBOUNDINCLUSIVE"
                Case ESB_LOWERBOUNDINCLUSIVE
                        Out "BucketingType : ESB_ESB_LOWERBOUNDINCLUSIVE"
                Case ESB_UPPERBOUNDNONINCLUSIVE
                        Out "BucketingType : ESB_UPPERBOUNDNONINCLUSIVE"
                Case ESB_LOWERBOUNDNONINCLUSIVE
                        Out "BucketingType : ESB_LOWERBOUNDNONINCLUSIVE"
                Case Else
                        Out "BucketingType : invalid"
        End Select
End Sub