Contar palabras especificas en una cadena

[delorenzis]

Hola, como hacer para contar cuantas palabras especificas existen en una cadena, es decir: especifico 3 palabras por defecto:

hola
naranja
luces

ahora tengo una cadena de textp, y necesito saber:

Si existe alguna de esas palabras, y si existe, cuantas veces se repite.

Algun codigo de ejemplo, gracias.

[Adler]

Hola

Podrías usar expresiones regulares

Código asp:

Dim n, objRegExp, strClave, Coincidencia, cadena, array_cadena, i
Function Encuentra (plbraClave)
cadena = "blanco negro azul blanco azul negro rojo"
array_cadena = Split(plbraClave,"-")
For n=0 to UBound(array_cadena)
i = 0
Response.Write array_cadena(n)
Set objRegExp = new RegExp
With objRegExp
.Pattern = "\b("&array_cadena(n)&")+\b"
.IgnoreCase = True
.Global = True
End With
Set strClave = objRegExp.Execute(cadena)
For Each Coincidencia in strClave
i = i +1
Next
Response.Write " : " & i & "<br />"
Set strClave = nothing
Set objRegExp = nothing
Next 'n
End Function
 
Response.Write Encuentra("blanco-negro-rojo")
 

EDITADO: No siempre se logra a la primera

Suerte

[delorenzis]

Funciona muy bien, pero si la palabra clave contiene caracteres especiales como [] entonces no funciona. Quisiera que me contara las palabras q estan dentro de los corchetes, por ejemplo, que me cuente cuantas palabras

[rojo]

Existen, es decir, que tome en cuenta los simolos []

Gracias.

[Adler]

Iniciado por delorenzis

Funciona muy bien, pero si la palabra clave contiene caracteres especiales como [] entonces no funciona. Quisiera que me contara las palabras q estan dentro de los corchetes, por ejemplo, que me cuente cuantas palabras

[rojo]

Existen, es decir, que tome en cuenta los simolos []

Gracias.

Bien, modifica el patrón

Suerte