[vb] records tellen in een user-defined data type

[wboard]

Bij records (een user-defined data type) kun je de functie (For Each ....) niet gebruiken om het aantal array elementen te tellen.
Ik heb overal op het forum gezocht en ook op google, ik krijg er alleen weinig uit.

Weet iemand hoe je het aantal items in zo'n array bepaalt, want for each kun je niet gebruiken.

Bij een 1-dimensionale array kun je het aantal items zo bepalen:

Visual Basic:

For Each X In Kwartaal3
       I = I + 1
Next X
                        
LastIndexNumberOfArray = I

hopelijk heeft iemand een oplossing hiervoor

[gorgi_19]

Had een array geen UBound? Althans, in VBScript heb je zo eentje.

Geen idee verder, maar VB.Net heeft de count property bij een array. Geen idee of deze ook al geimplementeerd is in VB6.

[wboard]

Met ubound bepaal je de laatste gedeclareerde index, althans dat retourneert hij als ik dat gebruik

[Gerco]

Kun je dan niet gewoon UBound(array) - LBound(Array) + 1 doen?

[wboard]

nee want dan returned hij gewoon 100, dat is het getal waar ik de array mee gedeclareerd heb array(100), dus dat werkt niet echt want array is leeg

[gorgi_19]

* gorgi_19 gaat gokken..

http://www.fawcette.com/v.../blackbelt/default_pf.asp

[wboard]

ik zie daar niets over het aantal array elementen tellen (wel met de for each, alleen dat werkt niet)

[gorgi_19]

wboard schreef op 11 mei 2003 @ 21:42:
ik zie daar niets over het aantal array elementen tellen (wel met de for each, alleen dat werkt niet)

Neuh.. Daar nemen ze een collection. Maar het was een suggestie, vandaar ook de gokmodus.

[ Voor 11% gewijzigd door gorgi_19 op 11-05-2003 21:46 ]

[wboard]

mmmmmmmmm................ ik kan het uitproberen

[Verwijderd]

je kan toch nog steeds de for loop gebruiken van 0 tot 100 of waar dan ook... ubound()

en kijk gewoon of er iets in zit of niet. of idd. gebruik een collection.

[wboard]

werkt niet echt, moet ik met een ander data type gaan werken, moet ik m'n code gaan wijzigen. Wat al volledig gebaseerd is op een user-defined data type (records), als het echt niet anders kan moet het wel, maar ik zie het graag anders

[Verwijderd]

Visual Basic:

if array(x).udt.field <> 0 then
 counter=counter+1
end if

etc... daarmee count je dus alleen de items waarbij het integer field een waarde bevat, en voor een string "" etc.. maar voor een collection zou je niet zoveel hoeven te herschrijven

collection.add
collection.count
collection.remove

zijn toch simpele regeltjes?

[wboard]

ja, dan moet ik maar ff met collection gaan werken

[nljuggler]

Kun je er niet gewoon voor zorgen dat de array altijd even groot is als het aantal records dat erin staat?

Dit kan je doen door er een dynamische array van te maken en deze iedere keer dat je er een record aan toevoegt te Redim-men (Redim commando).

Dan kan je wel de eerder voorgestelde "UBound(array) - LBound(Array) + 1" gebruiken naar mijn idee.

[Crazy D]

Als je array regelmatig van grote veranderd, is iedere keer redimmen niet zo heel snel. Ik heb het ooit weleens getest met een simpele string-array, en per blok redimmen (zeg per 100, of 1000, of meer...) was stukken sneller dan iedere keer voor 1 item redimmen.