vba deep copy/clone issue with class object dictionary -

-

i have dictionary in main sub (key = string; value = class object). class object consists of 2 dictionaries. collect data , check values stored in dictionary values (class object - dictionaries) noticed last values getting stored. mean values in dictionary in main sub pointing same dictionary reference, hence, instances of class objects contain same data. means need make clone of class objects (deep copy?). have done before class objects stored simple values, not dictionaries. need cloning class object contains dictionaries.

main sub

dim dgroup new scripting.dictionary ' main dictionary ' ' loop thru listbox   = 0 userform1.listbox1.listcount - 1     gname = userform1.listbox1.list(i) ' listbox names ' populate temp dictionary     set dic = fnc.get_session_file_elements(mysesfile, gname)  ' ' instantiate new class object     dim newcol new cvm_col     call newcol.init(dic) ' pass dictionary 'constructor'     dgroup.add gname, newcol.clone ' add main sub dictionary '     set dic = nothing ' clear temp dictionary   next

class object

private delms scripting.dictionary  private ddat scripting.dictionary  ' private sub class_initialize()   set delms = new scripting.dictionary   set ddat = new scripting.dictionary end sub ' public sub init(inp scripting.dictionary)   set delms = inp end sub ' public function clone()   set clone = new cvm_col   set clone.delms = delms ' <-- crashes   set clone.ddat = ddat end function

normally clone function works when cloning simple data types string or long or double. i've never had dictionary.

to clone dictionary objects in class objects had make following changes:

class object (modified clone function)

public function clone()   set clone = new cvm_col   clone.elms = delms   clone.dat = ddat end function

(added properties)

public property elms() scripting.dictionary   set elms = delms end property public property let elms(p scripting.dictionary)   set delms = p end property ' public property dat() scripting.dictionary   set dat = ddat end property public property let dat(p scripting.dictionary)   set ddat = p end property

Comments

Post a Comment

Popular posts from this blog

ruby - Trying to change last to "x"s to 23 -

-
i have been playing around irb , have string looks this: irb(main):072:0> puts ["[\"4354 5432 5432 xxxxx\", \"6547 6547 8543 xxxxx\", \"2344 6543 6674 xxxxx\", \"2346 6236 7543 xxxxx\", \"1273 5585 5587 xxxxx\"]"] => nil irb(main):073:0> what want gsub last 2 "x" s of each 17 digit combination, 23 . what i've tried far (i've been using rubular): a.gsub(/\d[x]/,"23") <= grabs "x" s i'm close a.gsub(/\w[x{2}]/,"23") <= grabs "x" s grabs two digits each combination. is there easier way i'm not understanding? a.gsub(/\d{4} \d{4} \d{4} xxx\kxx/, '23') \d{4} = 4 digits what \k drop matched far. can use don't replace entire number, still able validate have in desired format.
Read more

jquery - Clone last and append item to closest class -

-
this bare-bones code on page: <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <di
Read more

c - Unrecognised emulation mode: elf_i386 on MinGW32 -

-
i'm trying make kernel, , cannot link c output assembly. ld . i'm getting error: unrecognized emulation mode: elf_i386 i'm using windows 10 professional mingw32 , msys. code using: link.ld /* * link.ld */ output_format(elf32-i386) entry(start) sections { . = 0x100000; .text : { *(.text) } .data : { *(.data) } .bss : { *(.bss) } } kernel.c /* * kernel.c */ void kmain(void) { const char *str = "my first kernel"; char *vidptr = (char*)0xb8000; //video mem begins here. unsigned int = 0; unsigned int j = 0; /* loops clears screen * there 25 lines each of 80 columns; each element takes 2 bytes */ while(j < 80 * 25 * 2) { /* blank character */ vidptr[j] = ' '; /* attribute-byte - light grey on black screen */ vidptr[j+1] = 0x07; j = j + 2; } j = 0; /* loop writes string video memory */ while(str[j] != '\0') { /
Read more