Brilliant Ray, this helps pull it all together. I hope others will find this as useful...
thanks, On 6/22/05, Ken Ray <[EMAIL PROTECTED]> wrote: > On 6/22/05 9:12 AM, "Glen Bojsza" <[EMAIL PROTECTED]> wrote: > > > Again, I am trying to dig deeper into custom properties. > > > > I am trying to store the customPropertySet with associated customKeys > > and the associated property contents of the keys into another object's > > custom properties. > > > > I have , thanks to Dan and Scott, been able to store an image and the > > associated customKeys but now I want to do more ... actually all of > > it. > > > > Do you need to create an array of an object's customPropertySet , > > customKeys and property contents and then store it? Or is there more > > a direct method? > > Glen, here's what I use - pass "all" for pSetName if you want all the sets > copied: > > on stsCopyCPSet pSourceObj,pDestObj,pSetName > if pSetName = "" then put "all" into pSetName > if pSetName = "all" then > put the customPropertySets of pSourceObj into tSets > set the customPropertySets of pDestObj to tSets > else > put the customPropertySets of pDestObj into tSets > if tSets = "" then put pSetName into tSets > else put tSets & cr & pSetName into tSets > set the customPropertySets of pDestObj to tSets > end if > repeat for each line tSet in tSets > if pSetName <> "all" and tSet <> pSetName then next repeat > set the customPropertySet of pSourceObj to tSet > set the customPropertySet of pDestObj to tSet > set the customKeys of pDestObj to the customKeys of pSourceObj > put the customKeys of pSourceObj into tKeys > repeat for each line tKey in tKeys > do "set the" && tSet & "[" & q(tKey) & "] of" && pDestObj && "to the" > && tSet & "[" & q(tKey) & "] of" && pSourceObj > end repeat > end repeat > set the customPropertySet of pSourceObj to "" > set the customPropertySet of pDestObj to "" > end stsCopyCPSet > > HTH, > > Ken Ray > Sons of Thunder Software > Web site: http://www.sonsothunder.com/ > Email: [EMAIL PROTECTED] > > _______________________________________________ > use-revolution mailing list > [email protected] > Please visit this url to subscribe, unsubscribe and manage your subscription > preferences: > http://lists.runrev.com/mailman/listinfo/use-revolution > _______________________________________________ use-revolution mailing list [email protected] Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-revolution
