Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Problemino: ho un array, devo generare una funzione/routine che mi elimini il valore dato dall'utente attraverso inputbox.. ho provato in 2 modi e tutti e 2 mi danno il solito risultato: mi elimina 2 elementi e nella visualizzazione, mi lascia un elemento vuoto nel vettore..:
La mia idea era: se trovo un elemento uguale al num cercato dall'utente,lo svuoto con v(i)="" e poi ogni volta faccio il controllo che v(i) sia diverso dal vuoto e riassegno il valore con v(i)=v(i) non è una logica buona? a quanto pare sembra di no .. dunque, vi posto ora i miei 2 tentativi (di suicidio! ):
Codice sorgente - presumibilmente Delphi
For i = 1 To n
If cancellami = v(i)Then
v(i)= ""
For j = 1 To n
If v(i) <> "" Then
v(i)= v(i)
n = n - 1
EndIf
Next j
EndIf
Next i
e il secondo:
Codice sorgente - presumibilmente VB.NET
For i = 1 To n
If cancellami = v(i)Then
v(i)=""
canx = canx + 1
EndIf
If v(i) <> ""Then
v(i)= v(i)
EndIf
Next i
n = n - canx
dove "canx" è il contatore degli eliminati, ricordandovi che ogni volta dopo l'eliminazione dell'elemento, faccio via routine e funzione l'ordinamento e la visualizzazione degli elementi in una listbox.. qualcuno ha un ideuzza per risolvere? grazie 1000!
Il Risultato Della ListBox, Con il vettore V(1,2,3,4,5),eliminando 4 per esempio è: -1
-2
-3
-
(questi sono gli elementi della listbox ovvero del vettore..)
mi elimina l'ultimo elemento e mi svuota il penultimo a quanto pare.. pure con il debug di f8 passo passo non ci ho capito niente.. Help
Ultima modifica effettuata da dimxasinteger il 03/04/2008 alle 1:27
Specifica meglio il problema ... intanto il vettore e' di tipo stringa o numerico?
E poi che vuol dire "eliminare" un elemento per te? Devi solamente azzerarlo/svuotarlo o eliminare il numero di elementi e scorrere tutto il contenuto successivo ?
we grazie! mi ci sono 1po ingegnato e ho trovato la soluzione:
Codice sorgente - presumibilmente VB.NET
For i = 1 To n
If canc = i Then
vet(i)= vet(n)
If n <> 1 Then
n = n - 1
ReDim Preserve vet(1 To n)
Else
ciao =MsgBox("Il Minimo Di Elementi di Un Vettore E' 1!!", vbExclamation, "Errore Cancellazione")
EndIf
EndIf
Next i
cmq intendevo appunto l'eliminazione di un elemento del vettore e quindi lo scorrimento degli elementi successivi con il "restringimento" del vettore stesso di tante posizioni quante sono le cancellazioni. grazie 1000 !
si mancava solo quello alla fine, e la logica giusta era:
sostituisco l'ultimo elemento con l'eliminato e ridimensiono il vettore, ordinandolo all'uscita (in un altra routine), ho voluto postare il codice usato per aiutare in futuro chi lo cerca,visto che pure googleando 1 settimana, non ho trovato niente e mi ci so voluto ingegnare e sbatterci il capo ho fatto male?
.. dunque, vi posto ora i miei 2 tentativi (di suicidio! 
):
ho fatto male?