DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / WLangage / Fonctions WLangage / Communication / Fonctions LDAP
LDAPNbValeur (Exemple)
L'exemple suivant présente l'utilisation récursive de la fonction LDAPNbValeur.
// On recherche les attributs
sListeAttributs est une chaîne
sListeAttributs = LDAPListeAttribut("MaSession", "DC=pcs,DC=local")
 
// On recherche les fils
sListeFils est une chaîne
sListeFils = LDAPListeFils("MaSession", "DC=pcs,DC=local")
 
// On recherche récursivement les attributs des fils et leurs nombres
gRechercheSousFilsAttributsNombre(sListeFils, sListeAttributs, "DC=pcs,DC=local")
//============== utilisation récursive de LDAPNbValeur ==============
PROCÉDURE gRechercheSousFilsAttributsNombre(sListeF, sListeA, sDN)
sNomFils est une chaîne
i est un entier = 1
j est un entier = 1
sListeFils est une chaîne
sNomAttribut est une chaîne
nNombre est un entier
// On recherche le nombre de chaque attribut
sNomAttribut = ExtraitChaîne(sListeA, j, RC)
TANTQUE sNomAttribut <> EOT
nNombre = LDAPNbValeur("MaSession", sDN, sNomAttribut)
    // On ajoute les attributs dans le résultat
gsListeAttributsNombre += sNomAttribut + TAB + nNombre + RC
j += 1
sNomAttribut = ExtraitChaîne(sListeA, j, RC)
FIN
sNomFils = ExtraitChaîne(sListeF, i, RC)
TANTQUE sNomFils <> EOT
// On recherche les attributs des fils
sListeAttributs est une chaîne
sListeAttributs = LDAPListeAttribut("MaSession", sNomFils)
// On recommence avec les fils du fils
sListeFils = LDAPListeFils("MaSession", sNomFils)
SI sListeFils <> "" ALORS
gRechercheSousFilsAttributsNombre(sListeFils, sListeAttributs, sNomFils)
SINON
// On recherche le nombre de chaque attribut
j = 1
sNomAttribut = ExtraitChaîne(sListeAttributs, j, RC)
TANTQUE sNomAttribut <> EOT
nNombre = LDAPNbValeur("MaSession", sNomFils, sNomAttribut)
// On ajoute les attributs dans le résultat
gsListeAttributsNombre += sNomAttribut + TAB + nNombre + RC
  j += 1
sNomAttribut = ExtraitChaîne(sListeAttributs, j, RC)
FIN
FIN
i += 1
sNomFils = ExtraitChaîne(sListeF, i, RC)
FIN
Version minimum requise
  • Version 10
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 25/05/2022

Signaler une erreur ou faire une suggestion | Aide en ligne locale