Retirar número ou palavra de uma String

[Inside 2]

Caros amigos,

 

tenho uma string assim:

 

id = 8

 

valores = 3,4,8,2,1,

 

 

Como faço para retirar por exemplo o número 8 dessa string e postar assim:

 

3,4,2,1, (Sem o 8)

 

 

Obrigado pela atenção.

[DSerma 19]

De um Split na variavel... utilize um laço FOR para procurar a String a ser removida.. e guarde os valores que deverão ficar em outra variavel concatenada...

 

Att;

[Inside 2]

Cara você falou Grego agora, não entendi nada.

 

Você tem algum exemplo por favor?

[DSerma 19]

Bom... se você acha que falei Grego.. entao está na hora de você estudar MAIS, nao acha?

 

Estou de bom humor hoje e vou te dar a função pronta....

 

 

valores = "3,4,8,2,1"
nValores = Split(Valores,",")
For i = 0 To UBoubd(nValores)
If nValores(i) <> "8" Then
ValorCorreto = ValorCorreto & nValores(i) & ","
End if
Next

A variavel ValorCOrreto terá os valores sem o número 8, como no exemplo que você postou....

 

Att;

[Inside 2]

Caro Darkdemo

 

obrigado pela ajuda, deu certo.

 

Sobre estudar mais, creio que tenho mesmo mas é bom sempre contar com ajuda de vocês experts.

[DSerma 19]

É realmente sempre bom contar com qualquer ajuda... mas a busca por informações e soluções, por mérito próprio é mais eficiente e rápida, pois depende apenas de VOCE...

 

Parabéns pela solução....

 

Att;

[Inside 2]

Caros amigos

 

 

estou com um problema, o código acima funciona mas preciso que retire também a vírgula pois meus valores tem uma vírgula no final:

 

valores = "3,4,8,2,1,"

 

como posso fazer isto?

[Mário Monteiro 179]

Com o mesmo script do Darkdemo

 

apenas adicione a seguinte linha apos o NEXT

 

ValorCorreto = LEFT(ValorCorreto, LEN(ValorCorreto) - 1)

[xanburzum 169]

olha este exemplo, que interessante

 

<%

function remove(tempstr) 'além de usá-lo para string filtragem .. Também é bom para remover htmlcode em uma string

palavras= array ("<b>",",</b>","8") ' adicionar a palavra / texto a ser filtrado aqui
temp=trim(tempstr)

    for x=0 to ubound(palavras)
        temp=replace(temp,palavras(x),"") ' substituir o "com Anyword quiser a partir do texto censurado
    next

remove=temp
end function

%>