TESTE DE STRING

CORAZZI 04/05/2011 22:26:15
#373237
Ola

tenho que testar duas string r=[Ô]aa bb cc dd ee[Ô] like [Ô]cc aa bb[Ô] quero obter true mas retorna false porque não esiste a sequenci aa bb cc , me falaraõ para usar o charlist para identificar que os caracteres aa bb cc existe , alguem pode me ajudar.

obrigado
FNANDOOD 04/05/2011 23:07:28
#373238
Para retornar true, só se colocar o asterisco e for assim: r=[Ô]aa bb cc dd ee[Ô] like [Ô]*cc dd[Ô]
MARCELO.TREZE 04/05/2011 23:12:13
#373242 Resposta escolhida
like vc irá usar em query é isso?

vc pode tentar assim

like [Ô]%cc%aa%bb%[Ô]
CORAZZI 05/05/2011 02:29:25
#373245
Ola

O que eu quero é retornar true quando comparar duas string : primeira string [Ô]*aa bb cc dd ee*[Ô] segunda string [Ô]*cc bb*[Ô] perceba que cc e bb estão fora de posição , ou seja quando a segunda string tiver os elementos que tiver na primeira string mas fora de sequencia , me retorne true.

abraço obrigado
MARCELO.TREZE 05/05/2011 06:48:07
#373246
Bom CORAZZI

se em suas string o espaço sempre for separar as palavras, então bastará fazer assim:

isso é um POG.

Function ConsultaTexto(Texto As String, Pesquisa As String) As Boolean
Dim sArray() As String
sArray = Split(Pesquisa, [Ô] [Ô])
For f = 0 To UBound(sArray)
If InStr(1, Texto, sArray(f)) > 0 Then
ConsultaTexto = True
Else
ConsultaTexto = False
End If
Next f
End Function


para usar é simples

em um botão...

Msgbox ConsultaTexto([Ô]aa bb cc dd ee[Ô], [Ô]cc ee[Ô])


espero que seja isso que procura
CORAZZI 09/05/2011 12:00:47
#373504
Obrigado marcelo

resolvido

Abraço
TECLA 12/05/2011 20:43:56
#373823
Se o problema foi resolvido, ENCERRE o tópico.
Tópico encerrado , respostas não são mais permitidas
Voltar