PROCURAR UMA STRING EM OUTRA STRING
Pessoal, gostaria de saber como faço para pesquisar se uma string está contida em outra, ou seja, se um determinado nome está contidom uma caixa de texto. Grato
Dim VarTexto As String
VarTexto = [Ô]Marco Antonio Lacera[Ô]
If InStr(UCase(VarTexto), UCase([Ô]ANTONIO[Ô])) > 0 Then
MsgBox [Ô]Encontrado Antonio no Nome[Ô]
Else
MsgBox [Ô]Não Encontrado Antonio no Nome[Ô]
End If
Você pode utilizar o comendo INSTR(<TEXTO ORIGINAL>,<TEXTO QUE SERÃ PROCURADO>).
O retorno do comando é a posição na string original onde se inicia a string a ser procurada. Se o retorno é zero, então não existe. O exemplo do MARCOLACERA procura o texto digitado não importando a digitação de maiúsculas ou minúsculas e resolve seu problema.
Se a pesquisa envolver um comando SQL, você pode utilizar o comando LIKE.
No caso de ACCESS utilize: CAMPO LIKE [ô]%BLABLABLA%[ô]
No caso de outros SGBDs utilize: CAMPO LIKE [ô]*BLABLABLA*[ô]
O retorno do comando é a posição na string original onde se inicia a string a ser procurada. Se o retorno é zero, então não existe. O exemplo do MARCOLACERA procura o texto digitado não importando a digitação de maiúsculas ou minúsculas e resolve seu problema.
Se a pesquisa envolver um comando SQL, você pode utilizar o comando LIKE.
No caso de ACCESS utilize: CAMPO LIKE [ô]%BLABLABLA%[ô]
No caso de outros SGBDs utilize: CAMPO LIKE [ô]*BLABLABLA*[ô]
Pode também utilizar o LIKE:
[ô]...........
[ô]se quizer não diferenciar Maiúsculas e Minúsculas:
[ô]TEXTO
A = [Ô]O RATO ROEU A ROUPA DO REI[Ô]
[ô]PARTE A SER PROCURADA
B = [Ô]RATO[Ô]
If A Like [Ô]*[Ô] & B & [Ô]*[Ô] = True Then
[ô]CONTéM
Else
[ô]NÃO CONTEM
End If[ô]...........
[ô]se quizer não diferenciar Maiúsculas e Minúsculas:
If UCase(A) Like [Ô]*[Ô] & UCase(B) & [Ô]*[Ô] = True Then
[ô]...
Tópico encerrado , respostas não são mais permitidas