VB: Arrays dynamisch vergrössern

Computer: Software & Programmierung Programmierung allgemein
#1

Hallo…
ich stehe vor folgendem Problem in VisualBasic:

dim gefunden(1000) as string
dim anzahl as integer

sub suche()
’ mach was
if erfolgreich then
gefunden(anzahl)=„blbla“
anzahl=anzahl+1
end if
if anzahl=1000 then
’ FEHLER: Maximale Array-Grösse erreicht
end
end if
end sub

Auf deutsch: Ich definiere ein Array mit einer bestimmten grösse, die ich nicht auf „supergross“ setzten will (Speicherschonend), weiss aber nicht, wieviel ich wirklich brauche. Wie kann ich zur Laufzeit das Array vergrössern?

#2

so gehts:

Dim gefunden() As String
Dim anzahl As Integer

If erfolgreich Then
anzahl = anzahl + 1
ReDim Preserve gefunden(anzahl)
gefunden(anzahl) = „blbla“
End If

greets from MichL (Vienna)

#3

Danke!
genau das habe ich gesucht… auf REDIM mauss man ja auch erst mal kommen.

#4

Beachte dabei, dass dein Array bei 32767 Einträgen überläuft. Baue deshalb ein Errorhandling ein.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]