Domino 9 und frühere Versionen > ND6: Entwicklung

Feldwerte vergleichen

<< < (2/2)

Corty:
hallo an alle,

vielen dank für eure hilfe, @boemitsu du hattes recht mit dem array. hab mal wieder den wald vor lauter.... na ja.

ich hab es aber ein wenig anders gelöst.
anbei der code:
   
   Dim s As New notessession, w As New notesuiworkspace   
   Set uidoc = w.CurrentDocument
   Dim doc As notesdocument
   Dim temp As Variant   'Alte Liste
   Dim temp1 As Variant  'Neue Liste
   Dim inhalt As Variant 'Differenzliste
                'Lese alten Softwarestand
   temp =  Split(w.currentdocument.fieldgettext_("InstalledApps"),",")
                'Lese neuen Softwarestand
   temp1= Split(w.currentdocument.fieldgettext("neu_soft"),",")
                'Vergleiche
   inhalt =   Arrayreplace( temp,temp1,inhalt)
   Messagebox Join(Inhalt)
   
Gruß
Christian

Navigation

[0] Themen-Index

[*] Vorherige Sete