EsbOtlClearAliasTableLanguages

指定した別名テーブルに関連付けられた言語コードのセットが消去されます。

構文

            ESB_FUNC_M 
            EsbOtlClearAliasTableLanguages
             (
            hOutline
            , 
            pszAliasTable
            )
ByVal   
            hOutline
                    As Long
ByVal   
            pszAliasTable
               As String

         

戻り値

アクセス

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

例

         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

      

関連トピック

• EsbOtlGetAliasTableLanguages
• EsbOtlSetAliasTableLanguage