1 svar · 278 visningar · startad av mrblonde
Hej, jag får spatt i huvet av att tänka på detta.
Jag har en egen Type array som heter user.groups() som har två fält user.groups().name och user.groups().type
I ett visst fal måste jag dynamiskt utöka den här arrayen enligt följande logik.
Det kommer alltid att finnas 2 grupper, så koden startar emd detta:
Redim User.Groups(1)
User.groups(0).Name = "Grupp1"
User.groups(0).Type = "Type1"
User.groups(1).Name = "Grupp2"
User.groups(1).Type = "Type1"
Sen har jag en variabel som innehåller ihop pipe:ade gruppnamn. För varje gruppnamn som finns i den här variabeln skall jag skapa 3 grupper.
Tillexempel:
strVariable = "namn3|namn4"
'skall resulterar i:
User.groups(2).Name = "namn3" & strSpecialNamnstillägg1
User.groups(2).Type = "Type1"
User.groups(3).Name = "namn3" & strSpecialNamnstillägg2
User.groups(3).Type = "Type1"
User.groups(4).Name = "namn3" & strSpecialNamnstillägg3
User.groups(4).Type = "Type1"
User.groups(5).Name = "namn4" & strSpecialNamnstillägg1
User.groups(5).Type = "Type1"
User.groups(6).Name = "namn4" & strSpecialNamnstillägg2
User.groups(6).Type = "Type1"
User.groups(7).Name = "namn4" & strSpecialNamnstillägg3
User.groups(7).Type = "Type1"
Jag började skriva kod för att splitta strVariable på | men sen när jag skulle få ihop redimmandet och loopen mm fick jag hjärnsläpp. Jag känner mig helt sne i huvet. Hjälp!
v_Variable = Split(strVariable,"|")
i = ((UBound(v_Variable)+1)*3)+1 'HÄR FICK JAG SLAG!
ReDim Preserve User.Groups(i)
For i = 2 To UBound(User.Groups) Step 3
'...
Next
Jag hade tänkt rätt, i princip blev koden såhär:
User.Groups(0).Name ="Standard1"
User.Groups(1).Name = "Standard2"
v_Variable = Split(strVariable,"|")
i = ((UBound(v_Variable)+1)*3)+1 'Detta blev rätt
ReDim Preserve User.Groups(i)
k = 0
For i = 2 To UBound(User.Groups) Step 3
User.Groups(i).Name = v_Variable(k)
User.GRoups(i+1).Name = v_Variable(k) & "Special2"
User.GRoups(i+2).Name = v_Variable(k) & "Special3"
k = k +1
Next