Sommare valori presenti in un array

[mcviper909]

Salve a tutti.

Dovrei sommare tutti i valori presenti in array ho fatto una cosa del genere ma non funge :

	for i = 0 to ubound(netto_tot)
		Dim netto_fornitore_totale
		netto_fornitore_totale = 0
		netto_fornitore_totale = netto_fornitore_totale + netto_tot(i)
	Response.write netto_fornitore_totale & "
"		
	Next

Help me

Grazie

[marco_c]

e' ovvio che non funziona. perche' inizializzi OGNI VOLTA la variabile a 0 dentro il ciclo. devi inizializzarla una volta sola FUORI dal ciclo.

[GudFella]

Dim netto_fornitore_totale
netto_fornitore_totale = 0

for i = 0 to ubound(netto_tot)
    netto_fornitore_totale = netto_fornitore_totale + netto_tot(i)
Next

Response.write netto_fornitore_totale

[mcviper909]

Originariamente inviato da marco_c
e' ovvio che non funziona. perche' inizializzi OGNI VOLTA la variabile a 0 dentro il ciclo. devi inizializzarla una volta sola FUORI dal ciclo.

Scusa faccio ammaenda....
Non sono un idiota bensì
"L'IDIOTA "

[mcviper909]

Non va...
Allora io prendo in input una stringa dal DB del tipo:
635.24, 508.56, 1160.76, 3561, 768.24, 10.8, 1120.33
La splitto per la , e la do in pasto al ciclo sopracitato.
L'output che ho è stranissimo
15414515414515414515414515414530829030829030829042 2982
Posto tutto il codice dal recordset in poi.

	Dim sql_netto_fatture_selezionate
	sql_netto_fatture_selezionate = "SELECT * FROM FATTURE_SELEZIONATE"
	
	Dim rs_netto_fatture_selezionate
	Set rs_netto_fatture_selezionate = Server.CreateObject("ADODB.Recordset")
	rs_netto_fatture_selezionate.open sql_netto_fatture_selezionate, conn
	
	while not rs_netto_fatture_selezionate.EOF
	
	netto_tot = Split(rs_netto_fatture_selezionate("NETTO_AL_FORNITORE"), ",")

		Dim netto_fornitore_totale
		netto_fornitore_totale = 0

	for i = 0 to ubound(netto_tot)
		netto_fornitore_totale = netto_fornitore_totale + netto_tot(i)
	Next
	
	Response.write netto_fornitore_totale
	
	rs_netto_fatture_selezionate.MoveNext()
	wend
	
	rs_netto_fatture_selezionate.close
	set rs_netto_fatture_selezionate = nothing

[GudFella]

Originariamente inviato da mcviper909

	Dim sql_netto_fatture_selezionate
	sql_netto_fatture_selezionate = "SELECT * FROM FATTURE_SELEZIONATE"
	
	Dim rs_netto_fatture_selezionate
	Set rs_netto_fatture_selezionate = Server.CreateObject("ADODB.Recordset")
	rs_netto_fatture_selezionate.open sql_netto_fatture_selezionate, conn
	
	while not rs_netto_fatture_selezionate.EOF
	
	netto_tot = Split(rs_netto_fatture_selezionate("NETTO_AL_FORNITORE"), ",")

		Dim netto_fornitore_totale
		netto_fornitore_totale = 0

	for i = 0 to ubound(netto_tot)
		response.write "netto_fornitore_totale=" & netto_fornitore_totale
		response.write "
"
		response.write "netto_tot(i)=" & netto_tot(i)
		response.write "
"
		netto_fornitore_totale = netto_fornitore_totale + netto_tot(i)

		response.write "netto_fornitore_totale dopo la somma=" & netto_fornitore_totale
		response.write "
"		
	Next
	
	Response.write netto_fornitore_totale
	
	rs_netto_fatture_selezionate.MoveNext()
	wend
	
	rs_netto_fatture_selezionate.close
	set rs_netto_fatture_selezionate = nothing

fai un po di debug e vedi cosa esce

[mcviper909]

Mi esce
422982
come somma
che dovrebbe essere quella giusta solo che gli ultimi due numeri dovrebbero essere decimali
Sarà perchè i numeri glieli passo con il . come separatore dei decimali e lui si aspetta la ,

Prova a fare un Replace

for i = 0 to ubound(netto_tot)
		response.write "netto_fornitore_totale=" & netto_fornitore_totale
		response.write "
"
		response.write "netto_tot(i)=" & Replace(netto_tot(i), ".", ",") 		
                response.write "
"
		netto_fornitore_totale = netto_fornitore_totale + Replace(netto_tot(i), ".", ",")

		response.write "netto_fornitore_totale dopo la somma=" & netto_fornitore_totale
		response.write "
"		
	Next

[mcviper909]

for i = 0 to ubound(netto_tot)
		netto_fornitore_totale = netto_fornitore_totale + Replace(netto_tot(i), ".", ",")
		valore_da_visualizzare = netto_fornitore_totale
	Next	
	rs_netto_fatture_selezionate.MoveNext()
	wend
	
	Response.write valore_da_visualizzare

Ok così funge thanks.