array

[79Kuntz79]

Ciao ragazzi,
io ho il seguente array:
#fr 2 33 4 55 #66 77 88 99 10 #112 113 114 115 116 #117 118 119 20 223 ####
Dovrei togliere tutti gli ultimi cancelletti avendo quindi il seguente array:
#fr 2 33 4 55 #66 77 88 99 10 #112 113 114 115 116 #117 118 119 20 223
Come posso fare?
P.S. Ovviamente l'array cambia sempre ossia non è sempre della stessa grandezezza.
PS.2 Io programmo in visual basic.
Grazie mille a tutti,
Francesco

[Daniele80]

i cancelletti finali sono sempre gli stessi o anche quelli cambiano?

fai cosi:

i=Ubound(tuo_array)
flag=true
while i>0 and flag=true
   if tuo_array(i)="#" then
      elimini #
   else
     flag=false
   end if
wend

praticamente leggi l'array al contrario e appena trovi un numero esci dal ciclo.

ciao

[79Kuntz79]

Ciao daniela,
i cancelletti alla fine cambino, non sono sempre gli stessi.
Come faccio a fare "elimini #" come hai scritto tu?

[Daniele80]

cos isu 2 piedi mi viene in mente di dirti di fare un Ridimensionamento del vettore. tanto hai partendo dalla fine e scalando l'indice del vettore hai la posizione Ennesima dell'array.

Se il vettore è di 10 caselle inizi il ciclo e vedi che le ultime 2 caselle sono cancelletti avrai il contatore a 8 perciò puoi fare benissimo un ridimensionamento.

PS: nel codice che ti ho scritto devi metter I=I-1 altrimenti fai un ciclo infinito


Poi non capisco come fai a mettere i cancelletti alla fine del vettore. Se il vettore lo riempi dinamicamente i cancelletti non ci dovrebbero essere

[79Kuntz79]

I cancelletti alla fine escono da un query.
Senti daniele tu hai scritto così:
i=Ubound(tuo_array)
flag=true
while i>0 and flag=true
if tuo_array(i)="#" then
elimini #
else
flag=false
end if
end

Io non so fare la riga n.5 ossia (elimini #).
Qual'è il codice per scrivere (elimini #)?

Grazie mille,
francesco

[Daniele80]

te l'ho detto fai un ridimensionamento del vettore

se non sbaglio in ASP era Preserve Redim array(indice)

se il codice è questo:

i=Ubound(tuo_array) 
flag=true 
while i>0 and flag=true 
   if tuo_array(i)="#" then 
     preserve redim tuo_array(i)
   else 
    flag=false 
   end if 
   i=i-1
end

ora non so se la sintassi del ridimensionamento è esatto, quella se è cercatela.