SABER SE PALAVRA ESTA CONTIDA NO TEXT
POR EXE, COMO SABER SE A PALAVRA [Ô]CARTÃO[Ô] ESTA CONTIDA EM UM TEXT ?
veja se isso te ajuda:
Dim s As String
Dim R As Byte
s = [Ô]BOLA é AZUL[Ô]
R = InStr(1, s, [Ô]AZUL[Ô], vbTextCompare)
If R = 0 Then
MsgBox [Ô]PALAVRA NÃO ENCONTRADA[Ô]
Else
MsgBox [Ô]PALAVRA ENCONTRADA, INICIANDO NA POSIÇÃO [Ô] & R
End If
Dim s As String
Dim R As Byte
s = [Ô]BOLA é AZUL[Ô]
R = InStr(1, s, [Ô]AZUL[Ô], vbTextCompare)
If R = 0 Then
MsgBox [Ô]PALAVRA NÃO ENCONTRADA[Ô]
Else
MsgBox [Ô]PALAVRA ENCONTRADA, INICIANDO NA POSIÇÃO [Ô] & R
End If
caraca, e como ajuda. vlw..
Tópico encerrado , respostas não são mais permitidas