array tenere solo gli elementi doppi

[Chimira]

Ciao a tutti,
Mi servirebbe una funzione che applicata ad un'array mi mantenga solamente gli elementi che si ripetono e gli altri li elimini.

Tipo

Array(1,1,2,3,4,2,4,5,6)

Func su Array

Array(1,2,4)

E' un po' che smanetto, ma.....
Avete suggerimenti?

Grazie

[fero]

io farei un ciclo sul primo array memorizzando i dati in una stringa(magari separati da virgola)

a quel punto, sempre in un ciclo dell'array, faccio l'instr del valore

se > 0 spezzo la stringa da quel punto e faccio di nuovo l'instr
se >0 inserisco in un nuovo array il valore.


se intendevi questo posso scriverti un po di codice.....

dim NewArr()
countNewArr=0
str=","

for i=0 to ubound(Array)
   Str=Str & Array(i) & ","
next

for i=0 to ubound(Array)
   if instr(str,"," & Array(i) & "," )>0 then
      newstr=left(str,(len(str)-instr(str,Array(i)))
      if instr(newstr,"," & Array(i) & ",")>0 then
         redim preserve NewArr(countNewArr)
         NewArr(countNewArr)=Array(i)
         countNewArr=countNewArr+1
      end if
   end if
next

un po contorto.....

[Umanista]

oppure puoi fare una cosa del genere. Non so se ne vale la pena.

	arrValori = Array(1,1,2,3,4,2,4,5,6) 
	arrNewArray()
	
	Dim i, j, y
	y = 0
	
	For i = 0 To UBound(arrValori)
		
		For j 0 To UBound(arrValori)
			If arrValori(i) = arrValori(j)
				arrNewArray(y) = arrValori(i)
				y = y + 1
			Then
			
		Next
	
	Next

[Umanista]

Originariamente inviato da Umanista
oppure puoi fare una cosa del genere. Non so se ne vale la pena.

	arrValori = Array(1,1,2,3,4,2,4,5,6) 
	arrNewArray()
	
	Dim i, j, y
	y = 0
	
	For i = 0 To UBound(arrValori)
		
		For j 0 To UBound(arrValori)
			If arrValori(i) = arrValori(j) Then
				arrNewArray(y) = arrValori(i)
				y = y + 1
			End If			
		Next
	
	Next

avevo scritto male

[Chimira]

Grazie a tutti, adesso provo.

[Shagrat]

function totVolte(stringa,carattere)
  tot=0
  for i=1 to len(stringa)
    if(instr(i,stringa,carattere)>0) then
      tot = tot + 1
      i=instr(i,stringa,"c")
    end if
  next
  totVolte=tot
end function

arrValori = Array(1,1,2,3,4,2,4,5,6)

str = UNsplit(arrValori,",")

for i=0 to ubound(arrValori)
 if totVolte(str,""&arrValori(i))>1 and instr(1,exit,""&arrValori(i))=0 then
   exit = exit&","&arrValori(i)
 end if
next

if right(exit,1)="," then
  exit=left(exit,len(exit)-1)
end if

arrDoppi = split(exit,",")

così dovrebbe andare

[Chimira]

Perfetto!!

Grazie mille....ed ho anche capito come funziona