Commande de compilation...
Commande d'enregistrement des ActiveX...
Commande d'exécution...
Fichiers sources...
upsvtm Com=Charger
annuaire.exe
Dim MUpsKrn As IUpsKrn
Dim MUpsOrb As IUpsOrb
Dim A As IUpsOrbAnnuaire
Private Sub EcrireEcran(ByVal Libelle As String)
' ==============================================
Ecran.AddItem Libelle
End Sub
Private Sub AfficherAnnuaire2(ByVal An As IUpsOrbAnnuaire,
ByVal Chemin As IUpsKrnCaractere)
'
==========================================================================================
Dim L As IUpsKrnListe
Dim C As IUpsKrnCaractere
On Error GoTo GestionErreur
Set L = An.LireArborescenceAnnuaire(Chemin)
If Not MUpsKrn.EstNul(L) Then
Set C = L.ParcoursAuDebut(0)
Do
If MUpsKrn.Booleen2ComVariantBool(Chemin.Different(MUpsKrn.ComBStr2Caractere("")))
Then
EcrireEcran
MUpsKrn.Caractere2ComBStr(Chemin.Additionner(MUpsKrn.ComBStr2Caractere(".")).Additionner(C))
AfficherAnnuaire2 An, Chemin.Additionner(MUpsKrn.ComBStr2Caractere(".")).Additionner(C)
Else
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
AfficherAnnuaire2 An, C
End If
If C.Identique(L.DernierElement()) Then
Exit Do
End If
Set C = L.Suivant(0)
Loop
End If
Exit Sub
GestionErreur:
'=============
EcrireEcran "Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le
source '" + Err.Source + "' :"
EcrireEcran Err.Description
End Sub
Private Sub AfficherAnnuaire(ByVal An As IUpsKrnAnnuaire)
' =======================================================
On Error GoTo GestionErreur
EcrireEcran MUpsKrn.Caractere2ComBStr(An.NomAnnuaire())
AfficherAnnuaire2 An, MUpsKrn.ComBStr2Caractere("")
EcrireEcran ""
Exit Sub
GestionErreur:
'=============
EcrireEcran "Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le
source '" + Err.Source + "' :"
EcrireEcran Err.Description
End Sub
Private Sub Form_Load()
' =====================
Dim L As IUpsKrnListe
Dim C As IUpsKrnCaractere
On Error GoTo GestionErreur
Set MUpsKrn = CreateObject("UpsApp.UpsKrn")
Set MUpsOrb = CreateObject("UpsApp.UpsOrb")
Set A = MUpsOrb.Annuaire1(MUpsKrn.ComBStr2Caractere("MonAnnuaire"))
A.EcrireEntree MUpsKrn.ComBStr2Caractere("coucou"),
MUpsKrn.ComBStr2Caractere("COUCOU")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("hello"),
MUpsKrn.ComBStr2Caractere("HELLO")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("guten tag"),
MUpsKrn.ComBStr2Caractere("GUTEN TAG")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("coucou.coucou"),
MUpsKrn.ComBStr2Caractere("COUCOU.COUCOU")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("hello.coucou"),
MUpsKrn.ComBStr2Caractere("HELLO.COUCOU")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("coucou.hello"),
MUpsKrn.ComBStr2Caractere("COUCOU.HELLO")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("hello.hello"),
MUpsKrn.ComBStr2Caractere("HELLO.HELLO")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("hello.guten tag"),
MUpsKrn.ComBStr2Caractere("HELLO.GUTEN TAG")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("coucou.guten tag"),
MUpsKrn.ComBStr2Caractere("COUCOU.GUTEN TAG")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("guten tag.coucou"),
MUpsKrn.ComBStr2Caractere("GUTEN TAG.COUCOU")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("guten tag.hello"),
MUpsKrn.ComBStr2Caractere("GUTEN TAG.HELLO")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("guten tag.guten tag"),
MUpsKrn.ComBStr2Caractere("GUTEN TAG.GUTEN TAG")
AfficherAnnuaire A
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("coucou")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("coucou.coucou")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("coucou.guten
tag")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("coucou.hello")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("hello")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("hello.coucou")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("hello.guten
tag")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("hello.hello")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("guten
tag")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("guten
tag.coucou")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("guten
tag.guten tag")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("guten
tag.hello")))
EcrireEcran ""
A.SupprimerEntree MUpsKrn.ComBStr2Caractere("hello.hello"), False
A.SupprimerEntree MUpsKrn.ComBStr2Caractere("guten tag"), True
A.EcrireEntree MUpsKrn.ComBStr2Caractere("hello"),
MUpsKrn.ComBStr2Caractere("HELLO !!!")
A.EcrireEntree MUpsKrn.ComBStr2Caractere("coucou.hello"),
MUpsKrn.ComBStr2Caractere("COUCOU.HELLO !!!")
A.RenommerEntree MUpsKrn.ComBStr2Caractere("coucou"),
MUpsKrn.ComBStr2Caractere("salut"), True
A.RenommerEntree MUpsKrn.ComBStr2Caractere("hello.guten tag"),
MUpsKrn.ComBStr2Caractere("good morning.schluss"), False
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("hello")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("salut.hello")))
EcrireEcran MUpsKrn.Caractere2ComBStr(A.LireEntree(MUpsKrn.ComBStr2Caractere("salut")))
EcrireEcran ""
AfficherAnnuaire A
MUpsOrb.AnnuaireLocal().EcrireEntree MUpsKrn.ComBStr2Caractere("coucou"),
MUpsKrn.ComBStr2Caractere("COUCOU")
MUpsOrb.AnnuaireLocal().EcrireEntree MUpsKrn.ComBStr2Caractere("hello"),
MUpsKrn.ComBStr2Caractere("HELLO")
MUpsOrb.AnnuaireLocal().EcrireEntree MUpsKrn.ComBStr2Caractere("guten tag"),
MUpsKrn.ComBStr2Caractere("GUTEN TAG")
MUpsOrb.AnnuaireLocal().SupprimerEntree MUpsKrn.ComBStr2Caractere("hello"),
False
MUpsOrb.AnnuaireLocal().RenommerEntree MUpsKrn.ComBStr2Caractere("guten tag"),
MUpsKrn.ComBStr2Caractere("schluss"), False
AfficherAnnuaire MUpsOrb.AnnuaireLocal()
Set L =
MUpsOrb.LireArborescenceAnnuaireGlobal(MUpsKrn.ComBStr2Caractere(""))
Set C = L.ParcoursAuDebut(0)
Do
EcrireEcran
MUpsKrn.Caractere2ComBStr(C.Additionner(MUpsKrn.ComBStr2Caractere("=")).Additionner(MUpsOrb.LireEntreeAnnuaireGlobal(C)))
If C.Identique(L.DernierElement()) Then
Exit Do
End If
Set C = L.Suivant(0)
Loop
Set A = Nothing
Set L = Nothing
Set MUpsOrb = Nothing
Set MUpsKrn = Nothing
Exit Sub
GestionErreur:
'=============
EcrireEcran "Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le
source '" + Err.Source + "' :"
EcrireEcran Err.Description
End Sub