tratar vetor

[Glauber Victor 0]

Olá pessoal

 

Estou com a seguinte dúvida

 

Como se faz para para tratar um vetor que está assim: ,1,,,,,1,1,

 

para ficar assim: 0,1,0,0,0,0,1,1,

 

 

Eu estou usando o seguinte metodo:

 

trata_quantidade = replace(sugestao_item("vet_quantidades"), ",,",",0,")	Do while inStr(",,", trata_quantidade) > 0		trata_quantidade = replace(trata_quantidade, ",,",",0,")		Loop

mas ele retorna assim: ,1,0,0,1,1,

 

 

Desde já agradeço a cooperação de todos!!

[Mário Monteiro 179]

testado e aprovado

 

ASP

ValoresNaoTratados = ",1,,1,,1,,1,"

ArrayValores = Split(ValoresNaoTratados, ",")

For I = LBound(ArrayValores) To UBound(ArrayValores)

If Not IsNumeric(ArrayValores(I)) Then

   ArrayValores(I) = 0

End If

Next

ValoresTratados = Join(ArrayValores, ",")

 

 

So esclarecendo que a saida para seu exemplo nao seria esta com a virgula no final

 

0,1,0,0,0,0,1,1,

e sim esta com o zero no final

 

0,1,0,0,0,0,1,1,0

mas se for para ficar a virgula é so adaptar

 

teste e veja se é isso

[Glauber Victor 0]

Era isso mesmo que eu precisava!!!

 

para retirar o último ZERO e deixar a vírgula utilizei o seguinte metodo:

 

quantidade = Split(ValoresTratados,",")		strQuantidade = ""					'Retira o ultimo zero "(UBound(quantidade)-1)"	for i = LBound(quantidade) to (UBound(quantidade)-1)  				...

 

Obrigado!

[Mário Monteiro 179]

De nada tiozinho que bom qeu resolveu seu problema