[LS] Récupérer L'ACL d'une base en Texte.

[Michael DELIQUE]

montre moi ton code !

[Ahamay]

ok, merci Michael,
Alors, en gardant que ce qui nous interesse :

Dim w As New NotesUIWorkspace
Dim sourceServer As Variant
Dim sourcePath As Variant
Dim dbSource As NotesDatabase

Dim tmpL As Variant

Set uiDoc = w.CurrentDocument
Set curdoc = uiDoc.Document

sourceServer = curdoc.Server(0)
sourcePath =curdoc.PathName(0)

Set dbSource=New NotesDatabase (sourceServer,sourcePath)
tmpL= ArrayList(LCAImage(dbSource),0)


********************
Voila, jusque là c'est ok.... tmpL contient bien l'ACL de dbSource avec tous les roles qui vont bien.
********************

mon champ dans curdoc s'appelle "ArchiveACL" et pour l'instant il est de type text multi value (mais je peux en faire un RT si nécessaire)


Voila, a part ça, ou j'en suis je n'ai modifié aucune de tes fonctions... d'ailleurs, je me répète, mais tmpL contient rigoureusement ce que je veux :\ mais des que j'alimente ArchiveAcl je me retrouve avec des caractères bizares (抈Ӛ抈Ӛ) ???!!!! et une seule value dans l'Item. J'en déduis que les caractères quil récupère sont les séparateurs de liste... qu'il -justement- m'interprete pas en tant que telle.

[Michael DELIQUE]

montre aussi ton code qui renseigne ton champ !

[Ahamay]

Dim tmpL As Variant
tmpL= ArrayList(LCAImage(dbSource),0)

Dim itemA As NotesItem
Forall x In tmpL
Set itemA = curdoc.AppendItemValue( "ArchiveACL", x )
End Forall

---marche po---

Dim itemA As NotesItem
Set itemA = curdoc.AppendItemValue( "ArchiveACL", tmpL )
Call curdoc.Save(False, True)

---marche po---

Dim rtitemA As Variant
Set rtitemA = curdoc.GetFirstItem( "ArchiveACL" )
If ( rtitemA.Type = RICHTEXT ) Then
Call rtitemA.AddNewLine(1)
Call rtitemA.AppendRTItem( tmpL )
End If

---marche po---

curdoc.ArchiveACL=tmpL

---marche po---

[Michael DELIQUE]

bon essais

call curdoc.replaceitemvalue( "ArchiveACL", tmpL )

[Ahamay]

Pfffff.......... ça y est :

Dim tmpL As Variant
tmpL= ArrayList(LCAImage(dbSource),0)
Dim Aclitem As NotesItem
Set Aclitem = curdoc.GetFirstItem( "ArchiveACL" )

Forall x In tmpL
Call Aclitem.AppendToTextList( x )
Call Aclitem.AppendToTextList( Chr$(13) )
End Forall

Call curdoc.Save(False, True)

Purée c'était laborieux.....
Encore merci Michael, sans toi je serai sous la couette la....
ou en train de pétrir la pate

[Michael DELIQUE]

de rien !

mais bon si ça tourne vinaigre tu est formé pour une reconversion dans la boulangerie

[Ahamay]

Ouaip.... mais en attendant je suis bon pour pondre un ptit tip sur ce coup là....

Des que mon usine a gaz sera ok, je soumets