Visual Basic para Aplicaciones - cadena de texto, devolver un resultado

Life is soft - evento anual de software empresarial
   
Vista:

cadena de texto, devolver un resultado

Publicado por luisa (3 intervenciones) el 11/10/2017 17:51:54
Hola
En el campo 1 de un formulario suelo escribir textos como por ejemplo:
"perro verde" o "perro azul" o "perro amarillo"

Quisiera escribir un código que detectara en la cadena de texto la palaba perro; y si fuera sí, devolviera otra frase, en el campo 2; como por ejemplo: "efectivamente hay un perro"

Es decir: escribo en el campo 1: el perro verde de juan

y quiero que si existe la palabra perro en la frase anterior
en el campo 2, aparaceciera la frase: efectivamente hay un perro

Alguien puede decirme que código debo usar con el if..then??

Muchas gracias!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

cadena de texto, devolver un resultado

Publicado por JuanC juanc2942@gmail.com (550 intervenciones) el 11/10/2017 18:19:38
1
2
3
4
5
Dim s$
s = "perro verde"
If VBA.InStr(1, s, "perro") > 0 Then
   MsgBox "hay perro"
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

cadena de texto, devolver un resultado

Publicado por luisa (3 intervenciones) el 11/10/2017 18:25:38
Hola
Mil gracias
La "s" sería el campo1?
y el mgbox, el campo2??
Un saludo!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

cadena de texto, devolver un resultado

Publicado por JuanC juanc2942@gmail.com (550 intervenciones) el 11/10/2017 18:36:03
digamos que sí (supongo que con el ejemplo es suficiente...)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

cadena de texto, devolver un resultado

Publicado por luisa (3 intervenciones) el 12/10/2017 09:40:51
Gracias!!!!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad