[VB][Array] la mia bestia nera :P

[chipdb]

[supersaibal]Originariamente inviato da ladyBlu
non ti basta passargli stringa vuota?

For i = 1 To UBound(Nome)
    If Nome(i) = "Mauro" Then
         Nome(i) = ""
    End If
next

o tu vuoi proprio ridimensionare l'indice? :master: [/supersaibal]

Scusa ma perché tenere in memoria una variabile che non viene utilizzata? Sarebbe come usare una variabile globale per una routine...

Per ridimensionare l'indice é come dice Gigi84, ma prima devi scalare di una posizione quelle precedenti, quindi:

For i = 1 To UBound(Nome)
    If Nome(i) = "Mauro" Then
        'arriva fino al penultimo elemento
        For j = i To UBound(Nome)-1 
            'scala di -1 gli elementi a partire da "mauro"
            Nome(j) = Nome(j+1) 
        Next
        ReDim Preserve Nome(UBound(Nome)-1)
    End If
next

Tieni conto che questo codice ti cancella tutti gli elementi chiamati "mauro"!!

Ciao!