en una cadena ¿como puedo saber si esta la palabra "guisantes"?

[suntus]

hola pues vereis

tengo una cadena de este tipo

cadena=,hola,lola,que,pasa,guisantes,xxx,xxx

y me gustaria que si en la cadena se encuentra la palabra ,guisantes, me salga en pantalla

response.write "gracias a todos"

espero que puedan ayudarme con esto, lo tengo en la punta de la tecla pero me da error :(

Gracias

[messer]

Puedes colocar el codigo?

creo que es mejor.

Saludos!!

[lexus]

cadena= "hola,lola,que,pasa,guisantes,xxx,xxx"

cadena = split(cadena,",")
largo = ubound(cadena)

for x = 0 to largo
if cadena(x) = "guisantes" then
response.write "gracias a todos"
end if
next

no lo he probado simplemente se me ocurrio en este momento me imagino qeu habra otras opciones mejores.
suerte.

[suntus]

mg=",1,2,3,4,5,6,7,"
buscar="2"
If (instr(""&mg&"",""&buscar&"")=0) Then
Response.Write("no")
else
Response.Write("si")
end if

pues era este el codigo que no me salia, ya veis una tonteria :(

pero gracias por el interes
un saludo

[AlZuwaga]

me imagino qeu habra otras opciones

Código:

cadena= "hola,lola,que,pasa,guisantes,xxx,xxx"
buscar = "guisantes"

If InStr("," & cadena & ",", buscar) <> 0 then response.write "gracias a todos"

Saludos

PD: No lo probé, pero la idea debería funcionar más allá de un error de tecleo

[AlZuwaga]

Jojojo, suntus, coincidimos con la idea y el horario

[suntus]

ostras Al Zuwaga

creo que hemos respondido en el mismo segundo :D

pues si, la idea que me ibas a dar era la que buscaba realmente el error que tenia era un tema de comillas, esq hay tantas :D

gracias por todo

[lexus]

excelente solucion dazuaga, funciona tambien para cuando la palabra guisantes esta de primera o de ultima?

[suntus]

lexus
funciona perfectamente este donde este

creo q hemos escrito los 3 a la vez porque yo cuando empeze a escribir estaba solo la respuesta de messer

saludos

[lexus]

ok ke bien ke te haya servido la ayuda. suerte.

[AlZuwaga]

opss.. hay un pequeño detalle. Si buscar es "guisantes" y en la cadena se encuentra "shdfhdjguisantesfjkdfjdfk", también la encontraría. Modificaría el IF por éste:


If InStr("," & cadena & ",", "," & buscar & ",") <> 0 then response.write "gracias a todos"


Saludos a ambos