Array e elementi uguali

[s7ar]

Devo verificare se un aray bidimensionale contenga dei valori uguali
io per valori guali intendo:
arr(1,0)=000101000
arr(1,1)= huyu79009
arr(1,2)= 72817290
arr(1,3)= 384938
arr(1,4)= 66

arr(2,0)=000101000
arr(2,1)= huyu79009
arr(2,2)= 72817290
arr(2,3)= 384938
arr(2,4)= 66
questi due per me sono guali io considero come se fossero record di un db
arr(3,0)=000101000
arr(3,1)= huyu79009
arr(3,2)= 72817290
arr(3,3)= 384938
arr(3,4)= 66

Io devo verificare se nell array ci sono dei ''record'' tutti uguali in tutti i campi e se ci sono devo stamparne a video 1 solo dei 3 o 4 o 2 che siano per quelli che nn hanno doppioni devo stamparli direttamente

Grazie in anticipo
e marry xmas

[s7ar]

up up

[albis]

potresti provare una cosa del genere

<%@ Language=VBScript %>

<%
dim arr(11,4)
dim strAppo
dim strTutti
dim strSeparatoreElementi
dim intAppoInstr
dim strAppoBis
dim intAltro
strSeparatoreElementi = "|Separatore{Sperando che Non Compaia nei Valori}|"
	
arr(0,0)= "11"
arr(0,1)= "d"
arr(0,2)= "zz"
arr(0,3)= "384938"
arr(0,4)= "s"

arr(1,0)= "000101000"
arr(1,1)= "huyu79009"
arr(1,2)= "72817290"
arr(1,3)= "384938"
arr(1,4)= "nando" 


arr(2,0)= "y"
arr(2,1)= "huyu79009"
arr(2,2)= "x"
arr(2,3)= "384938"
arr(2,4)= "4"


arr(3,0)= "000101000"
arr(3,1)= "huyu79009"
arr(3,2)= "72817290"
arr(3,3)= "384938"
arr(3,4)= "nando"

arr(4,0)= ""
arr(4,1)= ""
arr(4,2)= ""
arr(4,3)= ""
arr(4,4)= ""

arr(11,0)= "y"
arr(11,1)= "huyu79009"
arr(11,2)= "x"
arr(11,3)= "384938"
arr(11,4)= "4"

'Response.Write UBound(arr,1)

'Response.Write UBound(arr,2)
strTutti = strSeparatoreElementi
for i = 0 to UBound(arr,1)
	strAppo = ""
	for x = 0 to UBound(arr,2)
		strAppo = strAppo & arr(i,x) & strSeparatoreElementi
	next
	intAppoInstr = InStr(1,strTutti,strSeparatoreElementi & strAppo)
	if intAppoInstr > 0 then 
		strAppoBis = Mid(strTutti  ,intAppoInstr + len(strSeparatoreElementi & strAppo))
		intAltro = Left(strAppoBis,InStr(1,strAppoBis,Mid(strTutti  ,intAppoInstr + len(strSeparatoreElementi & strAppo))))
		Response.Write "i valori negli indici " & i &  " e " & intAltro & " sono uguali 
"
		'Response.Write strAppo & "
"
	end if
	strTutti = strTutti &  strAppo & i & "B" &   strSeparatoreElementi
next 
'Response.Write strTutti
%>

[s7ar]

L' array è caricato dimaicamente con un ciclo do while e alla fine i contenuti dell array dovrebbero essere intabellati

ora provo il tuo codice

[Roby_72]

Perché caricare un array di doppioni se poi i doppioni li devi togliere?

Roby

[s7ar]

io avevo pensato di caricare l' array con i dati che escono dai vari controlli per poi verificare se l' aray contiene i doppioni
Roby_72 se hai qualke consiglio per evitare l' array sono bene accetti :P

<%
PF=request.form("PF_UTE")


' dichiaro la variabile che conterrà l'oggetto Connection
Dim conn
Dim rs


'creo l'oggetto Connection
Set conn = Server.CreateObject("ADODB.Connection")
'apro la connessione con la fonte di dati
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(" db.mdb")

Response.Write("<table border=1 cellspacing=0 style=border-collapse: collapse bordercolor=#111111 width=100% id=AutoNumber1>")
Response.Write("  <tr>")
Response.Write("    <td width=>PF</td>")
Response.Write("    <td width=>MATERIALE</td>")
Response.Write("    <td width=>DISEGNO</td>")
Response.Write("    <td width=>DATA INIZIO</td>")
Response.Write("    <td width=>DATA FINE</td>")
Response.Write("  </tr>")



'creo l'oggetto Recordset
Set rs = Server.CreateObject("ADODB.Recordset")
'Eseguo la query SQL SELECT
rs.Open "select DISTINCT PF, Materiale, Disegno, DT_IN, Dt_FIN from exp_lega where PF like '"&PF&"' ORDER BY Disegno, Materiale, DT_IN, DT_FIN ", conn,3,3

c=rs.recordcount
Dim arr()
ReDim arr(c,4)
Dim arr2()
ReDim arr2(c,4)

i=0

Do while NOT rs.EOF

datai= rs("dt_in")
dataf= rs("dt_fin")
mat= rs("materiale")

Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "select DISTINCT PF, Materiale, Disegno, DT_IN, Dt_FIN from exp_lega where PF like '"&PF&"' and materiale like '"&mat&"' ", conn
data2=rs1("dt_in")
data3=rs1("dt_fin")

IF datai<data2 then
datai2=datai
else
datai2=data2
end if

if dataf>data3 then
dataf2=dataf
else
dataf2=data3
end if

 





Response.Write("<tr>")
Response.Write("    <td width=>" + rs("PF") + "</td>")
Response.Write("    <td width=>" + rs("MATERIALE") + "</td>")
Response.Write("    <td width=>" + rs("DISEGNO") + "</td>")
Response.Write("    <td width=>"&datai2&"</td>")
Response.Write("   <td width=>"&data3&"</td>")
Response.Write("  </tr>")


P= ""+ rs("PF") +""
m= ""+ rs("MATERIALE") +""
d= ""+ rs("DISEGNO") +""

arr(i,0) = ""&p&""

arr(i,1) = ""&m&""

arr(i,2) = ""&d&""

arr(i,3) = ""&datai2&""

arr(1,4) = ""&data3&""



i=i+1


rs.Movenext
loop


Response.Write("</table>")

%>

[Roby_72]

Non dicevo di evitare l'array del resto non so bene cosa devi fare, ma semplicemente di evitare di inserire a monte dati duplicati nell'array onde evitare di depurarlo successivamente.

Roby

[s7ar]

Io devo vedere se da quei filtri che faccio vengono fuori dei cloni e se ci sono per esempio 3 uguali devo visualizzarne 1 solo

[s7ar]

Nientaltro??

[Grinder]

Ho un problema simile, ma con un'array semplice. Avendo questa stringa

Dimensione_3|Dimensione_3|Dimensione_3|Dimensione_ 3|Dimensione_3|Ris_Std_4|Ris_Std_4|Ris_Std_4|Ris_S td_4|Freq_Std_5|Dot_Pitch_6|Dot_Pitch_6|Dot_Pitch_ 6|Dot_Pitch_6|Multimediale_7|Colore_9|Colore_9|Cer tificazione_10|Certificazione_10||

Vorrei eliminare gli elementi simili e ottenere

Dimensione_3
Ris_Std_4
Freq_Std_5
Dot_Pitch_6
Multimediale_7
Colore_9
Certificazione_10

E' un giorno che ci sbatto la testa!