Encontar palabras en una cadena

[hanscruz]

Amigos tengo la siguiente pregunta:
Quisera saber como puedo encontrar determinadas palabras dentro de una cadena de muchas palabras por ejemplo
la cadena seria asi:
cadena="diferente palabras en esta cadena para este ejemplo"
ahora quisera dentro de esta cadena saber si exiten las palbras por ejemplo:
"esta" y "ejemplo"
y deseo que de alguna forma saber si existe si o no i si fuera si saber cuantas palabras existen, osea que me avise qeu si existe la palabra esta y si la palabra ejemplo y saber que existe una de cada una.
saludos

[3pies]

Prueba esto:

Código:

<%
'cadena de texto donde queremos buscar las palabras
cadena = "diferente palabras en esta cadena para este ejemplo"
'palabras que deseamos buscar, y que deben estar separadas por comas.
palabras_a_buscar = "esta,ejemplo"
'separamos todas las palabras que queremos buscar, por las comas
palabra = Split(palabras_a_buscar, ",")
'contamos cuantas palabras hay para buscar en la cadena de texto
response.write "N&uacute;mero total de palabras a buscar: " & UBound(palabra) + 1 & "<br><br>"
'Miramos si cada una de las palabras está en la cadena de texto inicial
For i = 0 To UBound(palabra)
    'Usamos InStr para buscar una cadena dentro de otra,
    'y si está, InStr será distinto de cero
    If InStr(1, cadena, palabra(i), 1) <> 0 Then
        response.write "La palabra """ & palabra(i) & """, <strong>está</strong> en la cadena de texto.<br>"
    Else
        response.write "La palabra """ & palabra(i) & """, <strong>no está</strong> en la cadena de texto.<br>"
    End If
Next
response.write "<br>Se acab&oacute; lo que se daba..."
%>

Si pones como palabras a buscar, estas:

Código:

palabras_a_buscar = "est,ejem"

también te las encuentra, porque están o forman parte de la cadena inicial.
Para solucionarlo, puedes separar las palabras con un espacio al final, de tal forma, que lo que
ahora hay que buscar, no es "ejem", sino "ejem ", y por tanto, no estará ese texto:

Código:

palabras_a_buscar = "est ,ejem "

Salu2

[hanscruz]

ok gracias lo pruebo al tiro