EsbOtlGetAliasTableLanguages

指定した別名テーブルに関連付けられた言語コードの数が戻され、EsbGetNextItem()からアクセス可能な別名テーブルの文字列のリストが生成されます。

構文

            ESB_FUNC_M 
            EsbOtlGetAliasTableLanguages
             (
            hOutline
            , 
            pszAliasTable
            , 
            pItems
            )
ByVal   
            hOutline
                    As Long
ByVal   
            pszAliasTable
               As String
        
            pItems
                      As Long
         

戻り値

アクセス

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

例

         Declare Function EsbOtlGetAliasTableLanguages Lib "esbotln" (ByVal hOutline As Long, ByVal pszAliasTable As String, pulCount As Long) As Long
Declare Function EsbOtlSetAliasTableLanguage Lib "esbotln" (ByVal hOutline As Long, ByVal pszAliasTable As String, ByVal pszLanguageCode As String) As Long
Declare Function EsbOtlClearAliasTableLanguages Lib "esbotln" (ByVal hOutline As Long, ByVal pszAliasTable As String) As Long

Sub ESB_Sub ()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim Items As Long
Dim AliasLang As String * ESB_ALIASNAMELEN

Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
sts = EsbOtlOpenOutline(hCtx, Object,
ESB_YES, ESB_YES, hOutline)
If sts = 0 Then
   sts = EsbOtlCreateAliasTable(hOutline, 
    "French Alias Table")
End If
If sts = 0 Then
   sts = EsbOtlSetAliasTableLanguage(hOutline, 
    "French Alias Table", "fr")
End If
If sts = 0 Then
   sts = EsbOtlSetAliasTableLanguage(hOutline, 
    "French Alias Table", "fr-CA")
End If

If sts = 0 Then
   sts = EsbOtlGetAliasTableLanguages(hOutline, 
    "French Alias Table", Items)
   If sts = 0 Then
	For N = 1 To Items
     		sts = EsbGetNextItem(hCtx, ESB_ALIASLANG_TYPE, ByVal AliasLang)
   	Next
   End If
End If

If sts = 0 Then
   sts = EsbOtlClearAliasTableLanguages(hOutline, 
    "French Alias Table")
End If

End Sub

      

関連トピック

• EsbOtlClearAliasTableLanguages
• EsbOtlSetAliasTableLanguage