Somar Vetor

[Glauber Victor 0]

Olá pessoal Estou com uma dúvida acredito que simples mas não estou conseguindo resolver. Como faço para somar um vetor que recebo de uma celula no banco de dados que vem da seguinte forma "1,2,4,8,12," ???????????? O resultado dela deverá ser: 19 Desde já agreço a todos!

[Mário Monteiro 179]

tem qeu ser 19 ou 29?

[Glauber Victor 0]

desculpe é 27 o resultado.

[Mário Monteiro 179]

isso mesmo 27, tambem somei errado

 

podemos fazer a quebra dos valores num array e depois somar usando o laço for

 

assim

 

ASP

Valores = Split(Var,",")

 

Soma = 0

 

FOR I = LBOUND(Valores) TO UBOUND(Valores)

 

Soma = Soma + Valores(I)

 

NEXT

 

No final a soma estaria em na variavel Soma

[Glauber Victor 0]

Está dando o seguinte erro:

 

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'Valores(...)'

 

Meu código ficou assim:

 

<%	sql_sugestao_item = "SELECT *"	sql_sugestao_item = sql_sugestao_item & " FROM vw_sugestao_filial_produto WHERE"	sql_sugestao_item = sql_sugestao_item & " (cd_fabricante = "& session("cd_fabricante")&") AND"	sql_sugestao_item = sql_sugestao_item & " (cd_sugestao = "&cd_sugestao&")"		'response.Write(sql_sugestao_item)	set sugestao_item = conexao.execute(sql_sugestao_item)%><p> </p><table width="80%" border="0" align="center" cellpadding="4" cellspacing="0" class="linha_laranja">  <tr>	<td colspan="11" bgcolor="#FF9900" class="TITULO style1">SUGESTÃO: <%=cd_sugestao%></td>  </tr>  <tr>	<td bgcolor="#FFE1C4" class="TITULO"> </td>	<td bgcolor="#FFE1C4" class="TITULO">CÓD</td>	<td bgcolor="#FFE1C4" class="TITULO">FILIAL</td>	<td bgcolor="#FFE1C4" class="TITULO">MARCA</td>	<td bgcolor="#FFE1C4" class="TITULO">GRUPO</td>	<td bgcolor="#FFE1C4" class="TITULO">LINHA</td>	<td bgcolor="#FFE1C4" class="TITULO">CUSTO UNITÁRIO</td>	<td bgcolor="#FFE1C4" class="TITULO">QTDE TOTAL</td>	<td bgcolor="#FFE1C4" class="TITULO">STATUS</td>	<td bgcolor="#FFE1C4" class="TITULO">AÇÕES</td>	<td bgcolor="#FFE1C4" class="TITULO"> </td>  </tr>  <%   	  quant2 = 1	  while not sugestao_item.EOF			Valores = Split(sugestao_item("vet_quantidades"),",")		Soma = 0		FOR I = LBOUND(Valores) TO UBOUND(Valores)		Soma = Soma + Valores(I)		NEXT	%>  <tr>	<td class="linha_traco_2"><%=quant2%></td>	<td class="linha_traco_2"><%=sugestao_item("cd_id")%></td>	<td class="linha_traco_2"><%=sugestao_item("cd_filial")%></td>	<td class="linha_traco_2"><%=sugestao_item("ds_marca")%></td>	<td class="linha_traco_2"><%=sugestao_item("ds_grupo")%></td>	<td class="linha_traco_2"><%=sugestao_item("ds_linha")%></td>	<td class="linha_traco_2"><%=FormatCurrency(sugestao_item("custoUnitario"))%></td>	<td class="linha_traco_2"><%=sugestao_item("vet_quantidades")%></td>	<td class="linha_traco_2"></td>	<td class="linha_traco_2"><%=soma%></td>	<td class="linha_traco_2"> </td>  </tr>  <% 	  	   quant2 = quant2 + 1	   sugestao_item.movenext 	   wend 	 	 %></table>

[Mário Monteiro 179]

tem algo em sugestao_item("vet_quantidades")?

[Glauber Victor 0]

Sim são estes valores por linha:,,,,,,1,1, 11 1,,1,1,1,1,1,1, 1,1,1,1,1,1,1,1, 1,,,,1,1, 1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,10,1,1,1,1, A primeira linha deveria ser o resultado = 4 a segunda linha deveria ser 7 e assim por diante.

[Mário Monteiro 179]

mas pode ter virgular juntas assim? se puder tem que tratar

[Glauber Victor 0]

Já resolvi aqui, ficou assim:

 

Valores = Split(sugestao_item("vet_quantidades"),",")		Soma = CDbl(0)	FOR I = LBOUND(Valores) TO (UBOUND(Valores)-1)	if isnumeric(Valores(I)) then	 Soma = Soma + CDbl(Valores(I))	end if	NEXT

 

 

Vlw pela força!

[Mário Monteiro 179]

muito bomparabens