PROCURAR STRING E REMOVER CASO JA EXISTA.
Bom dia pessoal,
preciso da seguinte ajuda.
Preciso comparar duas Strings, caso ela seja igual, não faz nada, caso diferente, adiciona o texto a string, não estou conseguindo fazer.
Preciso disso pra não salvar elementos repetidos.
varTemp = varNomRaia
if InStr(UCase(varTemp),UCase(varNomRaia))=0 then
varNomRaia =+ varTemp
end if
Alguém tem alguma dica?
Grato.
preciso da seguinte ajuda.
Preciso comparar duas Strings, caso ela seja igual, não faz nada, caso diferente, adiciona o texto a string, não estou conseguindo fazer.
Preciso disso pra não salvar elementos repetidos.
varTemp = varNomRaia
if InStr(UCase(varTemp),UCase(varNomRaia))=0 then
varNomRaia =+ varTemp
end if
Alguém tem alguma dica?
Grato.
Bom se as strings forem iguais seu código está errado, ele está verificando se o valor existe dentro da string:
Seu código:
Dim STRING=[Ô]VBMANIA_TESTE_VBMANIA[Ô]
if instr(STRING,[Ô]TESTE[Ô])=true then
Msg([Ô]Existe[Ô])
Endif
Se forem iguais:
Dim varTemp=[Ô]TESTE[Ô]
Dim varNomRaia=[Ô]TESTE[Ô]
if varTemp=varNomRaia then
Msg([Ô]Iguais[Ô])
Endif
Seu código:
Dim STRING=[Ô]VBMANIA_TESTE_VBMANIA[Ô]
if instr(STRING,[Ô]TESTE[Ô])=true then
Msg([Ô]Existe[Ô])
Endif
Se forem iguais:
Dim varTemp=[Ô]TESTE[Ô]
Dim varNomRaia=[Ô]TESTE[Ô]
if varTemp=varNomRaia then
Msg([Ô]Iguais[Ô])
Endif
Olha só, estou com esse resultado na tela:
Raias:Agente de Registro
Raias:Empresa Contratada
Raias:CSO Jurisdicionante
Raias:Empresa Contratada
Raias:Agente de Registro
Raias:CSO BrasÃlia
Raias:Diges
Raias:CSO São Paulo (Malote)
Raias:CSO São Paulo (Malote)
Raias:CSO jurisdicionante
Raias:Cliente
Raias:Cliente
Raias:Unidade Estratégica
Raias:Diges
Raias:CSO BrasÃlia
Todos são a varNomRaia.
Mas tem raias repetidas.
Eu preciso verificar o nome da raia uma de cada vez, caso não seja repetida, ele add na variavel, caso já exista, ignora e não faz nada.
Raias:Agente de Registro
Raias:Empresa Contratada
Raias:CSO Jurisdicionante
Raias:Empresa Contratada
Raias:Agente de Registro
Raias:CSO BrasÃlia
Raias:Diges
Raias:CSO São Paulo (Malote)
Raias:CSO São Paulo (Malote)
Raias:CSO jurisdicionante
Raias:Cliente
Raias:Cliente
Raias:Unidade Estratégica
Raias:Diges
Raias:CSO BrasÃlia
Todos são a varNomRaia.
Mas tem raias repetidas.
Eu preciso verificar o nome da raia uma de cada vez, caso não seja repetida, ele add na variavel, caso já exista, ignora e não faz nada.
1 - Opção
Usa o SPLIT
Dim str As String = txtStringEntrada.Text
Dim palavras As String() = str.Split(New Char() {[Ô] : [Ô]c})
Dim palavra As String
For Each palavra In palavras
msgbox(palavra)
Next
2 - Opção
Dim val() As String = {Raias:Agente de Registro,Raias:Empresa Contratada,Raias:CSO Jurisdicionante}
Dim lst As New List(Of String)
Dim strVariavel as string=[Ô][Ô]
lst.AddRange(val)
If lst.Contains(varTemp) = False Then
strVariavel+=lst.Contains.tostring
Endif
Usa o SPLIT
Dim str As String = txtStringEntrada.Text
Dim palavras As String() = str.Split(New Char() {[Ô] : [Ô]c})
Dim palavra As String
For Each palavra In palavras
msgbox(palavra)
Next
2 - Opção
Dim val() As String = {Raias:Agente de Registro,Raias:Empresa Contratada,Raias:CSO Jurisdicionante}
Dim lst As New List(Of String)
Dim strVariavel as string=[Ô][Ô]
lst.AddRange(val)
If lst.Contains(varTemp) = False Then
strVariavel+=lst.Contains.tostring
Endif
Onde você esta buscando essas informações? da tela ou um arquivo?
A linguagem é ASP CLASSICO mesmo?
A linguagem é ASP CLASSICO mesmo?
O resultado voce gera dum select ?
um distinct resolve o problema
caso contrario, uma funcaozinha java viria a calhar
um distinct resolve o problema
caso contrario, uma funcaozinha java viria a calhar
Tópico encerrado , respostas não são mais permitidas