VB6 Array Leerstellen löschen

[Msp 4. (msp430_crew)]

Hi Leute,
ich habe ein Array in VB6. Aus einer Liste bekomme ich die Stelle des 
Arrays die ich löschen möchte. Nun habe ich das Problem das ich so nur 
Leerstellen in den Arrayteil

 Arr(List1.ListIndex) = ""]

 schreibe.
Wie kann ich den Teil eines Array löschen in VB? In PHO wäre dies 
einfach aber in VB?

Arr(List1.ListIndex) = ""

Dim strPath As String
strPath = "C:\text.txt"

Open strPath For Output As #3
For i = LBound(Arr) To UBound(Arr)
    Print #3, Arr(i)
    MsgBox Arr(i)
Next
Close #3

Danke Euch

[Uhu U. (uhu)]

Versuche mal Nothing zuzuweisen.

[thomas (Gast)]

nimm den Erase Befehl

Erase myArray()

Hier ein Auszug aus der MSDN:



Fixed numeric array Sets each element to zero.
Fixed string array (variable length) Sets each element to a zero-length 
string ("").
Fixed string array (fixed length) Sets each element to zero.
Fixed Variant array Sets each element to Empty.
Array of user-defined types Sets each element as if it were a separate 
variable.
Array of objects Sets each element to the special value Nothing.


Erase frees the memory used by dynamic arrays. Before your program can 
refer to the dynamic array again, it must redeclare the array variable's 
dimensions using a ReDim statement.

[Uhu U. (uhu)]

thomas wrote:
> nimm den Erase Befehl
>
> Erase myArray()

Erase putzt den ganzen Array weg, nicht nur einzelne Elemente.

[Sven P. (Gast)]

VB ist blöd. Die Methodik halt auch (was erwartest du?)
Also:

--> Array A mit n Elementen
--> Element x soll gelöscht werden

for i = x to n - 1
  A(i) = A(i + 1)
next i

n = n - 1;
ReDim A(n)


Sowas in der Art.

[Frank L. (franklink)]

Wenn Du das Array nicht mit sortieren Werten befüllt hast, setze das 
letzte Element an die Stelle des gelöschten und verkleinere das Array um 
ein Element.

Gruß
Frank

[Uhu U. (uhu)]

Arr(List1.ListIndex) = Nothing

[Msp 4. (msp430_crew)]

Danke erstmal. Nutze folgende Funktion von dieser Seite:
http://www.vbarchiv.net/tipps/details.php?id=955

Gruß Patti