Ler valores únicos de uma string

[FabianoSouza 5]

Nessa linha response.write Split(var, ",")(ultimoIndice)

Troque por response.write Split(var, ",")(i)

 

Qualquer dúvida é só postar...

Hmm ainda não foi. Veja na íntegra.

Dim var_string, vet, var
var_string = "4,4,4,5,5,5,5,5,6,6,6,7,8,9,9,9,10,"
vet = Split(var_string, ",")
For i = 0 To UBound(vet) - 1
    If InStr(var, vet(i)) = 0 Then
        var = var & vet(i) & ","
    End If
Next
		For i=0 to ultimoIndice
		response.write Split(var, ",")(i)
		Next

Só a aparece um valor, o 4

[Gustavo Emygdio Barboza 24]

é por que vc não atribuiu a variável ultimoIndice ... veja agora:

 

Dim var_string, vet, var

var_string = "4,4,4,5,5,5,5,5,6,6,6,7,8,9,9,9,10,"

vet = Split(var_string, ",")

For i = 0 To UBound(vet) - 1

If InStr(var, vet(i)) = 0 Then

var = var & vet(i) & ","

End If

Next

ultimoIndice = ubound(split(var,","))

For i=0 to ultimoIndice

response.write Split(var, ",")(i)

Next

teste ai!!

[xanburzum 169]

o que realmente quer fazer...

 

ler os valores sem repetir ? se for dá uma olhada no fórum tem vários exemplos... ou especifique o que quer

[Gustavo Emygdio Barboza 24]

pow vai fazer o cara procurar algo que acima de seu post? o propósito não sei pra que mas também o sistema é dele e o problema é somente esse agora como ele vai aplicar ele resolve.... ele só precisa entender como funciona... e está chegando lá!!

[FabianoSouza 5]

pow vai fazer o cara procurar algo que acima de seu post? o propósito não sei pra que mas também o sistema é dele e o problema é somente esse agora como ele vai aplicar ele resolve.... ele só precisa entender como funciona... e está chegando lá!!

 

 

é por que você não atribuiu a variável ultimoIndice ... veja agora:

 

Dim var_string, vet, var

var_string = "4,4,4,5,5,5,5,5,6,6,6,7,8,9,9,9,10,"

vet = Split(var_string, ",")

For i = 0 To UBound(vet) - 1

If InStr(var, vet(i)) = 0 Then

var = var & vet(i) & ","

End If

Next

ultimoIndice = ubound(split(var,","))

For i=0 to ultimoIndice

response.write Split(var, ",")(i)

Next

teste ai!!

 

Aeeeee!!!! Agora sim!!!

Gustavo, muitíssimo obrigado pela ajuda e pela paciência.

Me ajudou a resolver uma grande bucha do meu sistema!

Fico te devendo um almoço. Anota na conta kkkk

 

xanburzum, minha necessidade era essa: ler uma string que tem valores repetidos, filtra-la e exibi-la sem as duplicidades.

Fiz algumas ilustrações no começo do post pra facilitar a compreensão.

Tenho certeza que se eu ficasse uns três dias pesquisando no fórum acharia algo pra me ajudar.

Mas vc há concordar que uma forma direta assim é muito melhor, não? O tempo é sempre curtíssimo.

De todo modo, muito obrigado. Seus conhecimentos me ajudaram várias vezes neste fórum!

 

Abração pessoal!

[Gustavo Emygdio Barboza 24]

Show de bola é isso ai sucesso!

[xanburzum 169]